hello, can somebody translate this piece of code written in PL/SQL into an store procedure for sql/server 7.0 .

Please make special attention to the file access functions.

CREATE OR REPLACE PROCEDURE ClienteEquiposTXT AS

CURSOR c_Datos IS
select t2.SISTEMA,t2.EQUIPO,t2.TIPOEQUIPO,t2.SUBCENTRO,
t1.POS_Y,t1.POS_X,t1.MODELO,t1.VISTA,
t3.ALIASEQUIPO
from EQUIPO_VISTA t1,EQUIPOS_SISTEMA t2,EQUIPOS t3
where (t1.EQUIPO = t2.EQUIPO and t1.EQUIPO = t3.EQUIPO and
t1.SISTEMA = t2.SISTEMA and t1.SISTEMA = t3.SISTEMA)
order by t1.EQUIPO;

v_FileHandle UTL_FILE.FILE_TYPE;

v_SISTEMA Equipo_vista.Sistema%TYPE;
v_EQUIPO Equipo_vista.Equipo%TYPE;
v_TIPOEQUIPO Equipos_sistema.TipoEquipo%TYPE;
v_SUBCENTRO Equipos_sistema.Subcentro%TYPE;
v_POSY Equipo_vista.Pos_y%TYPE;
v_POSX Equipo_vista.Pos_x%TYPE;
v_MODELO Equipo_vista.Modelo%TYPE;
v_VISTA Equipo_vista.Vista%TYPE;
v_ALIASEQUIPO Equipos.AliasEquipo%TYPE;

p_FileDir varchar2(30) := 'C:\TUNEL\Datos';
p_FileName varchar2(30) := 'DatosEquipos.txt';

BEGIN

v_FileHandle := UTL_FILE.FOPEN(p_FileDir, p_FileName, 'w');

OPEN c_Datos;

LOOP
FETCH c_Datos INTO v_SISTEMA,v_EQUIPO,v_TIPOEQUIPO,v_SUBCENTRO,v_POSY,v_POSX,v_MODELO,v_VISTA,v_ALIASEQUIPO;

EXIT WHEN c_Datos%NOTFOUND;

UTL_FILE.PUTF(v_FileHandle, '%s;%s;%s;',v_SISTEMA,v_EQUIPO,v_TIPOEQUIPO);
UTL_FILE.PUTF(v_FileHandle, '%s;%s;%s;',v_SUBCENTRO,v_POSY,v_POSX);
UTL_FILE.PUTF(v_FileHandle, '%s;%s;%s;\n',v_MODELO,v_VISTA,v_ALIASEQUIPO);

UTL_FILE.FFLUSH(v_FileHandle);

END LOOP;

UTL_FILE.FCLOSE(v_FileHandle);

EXCEPTION
WHEN UTL_FILE.INVALID_OPERATION THEN
UTL_FILE.FCLOSE(v_FileHandle);
RAISE_APPLICATION_ERROR(-20061,
'PrintTranscript: Invalid Operation');
WHEN UTL_FILE.INVALID_FILEHANDLE THEN
UTL_FILE.FCLOSE(v_FileHandle);
RAISE_APPLICATION_ERROR(-20062,
'PrintTranscript: Invalid File Handle');
WHEN UTL_FILE.WRITE_ERROR THEN
UTL_FILE.FCLOSE(v_FileHandle);
RAISE_APPLICATION_ERROR(-20063,
'PrintTranscript: Write Error');
WHEN OTHERS THEN
UTL_FILE.FCLOSE(v_FileHandle);
END ClienteEquiposTXT;





Thank you