✒️ABAP Los archivos en el servidor y las sentencias TRANSFER, DELETE y CLOSE
ABAP Los archivos en el servidor y las sentencias TRANSFER, DELETE y CLOSE
Sentencia TRANSFER <estructura> TO <archivo>.
La Transferencia se realiza en el Modo en que se apertura el Archivo.
Si el Archivo NO está Abierto para escritura, el sistema intentará abrirlo en BINARY MODE
O utilizando la ultima ejecución del OPEN DATASET
Ejemplo:
* ABRIR archivo
OPEN DATASET p_path FOR OUTPUT IN TEXT MODE ENCONDING DEFAULT.
IF sy-subrc ne 0.
MEESSAGE s000(z_prueba) WITH tet-004.
else.
* transfiero los datos al fichero
st-archivo-dni = '27654315'
st-archivo-nombre_ape = 'Ricardo Alvarez'.
st-archivo-estado_usu = 'A'.
st-archivo-direccion = 'Lavallol 1454' .
st-archivo-codigo_postal = '1568'.
st-archivo-f_nacimiento = '19781097'.
st-archivo-estado_civil = 'S'.
TRANSFER st-archivo TO p_path. ' la estructura a archivo
AUDIO:
Con la tx CG3Y, podremos copiar un archivo alojado en el servidor en nuestra computadora.
basta con pasar la ruta completa del origen y la del destino. Elegir el formato de transferencia que puede ser ascii o binario.
2. Borrado de Archivos del Servidor.
DELETE DATSET <archivo> .
Para Borrar un Archivo debemos primero Abrirlo.
Si el borrado se realiza correctamente es 0, sino es 4
Ejemplo:
* Borrar el archivo
IF NOT p_borrar IS INITIAL.
DELETE DATASET p_path.
ENDIF
3. Cierre de Archivos en el Servidor
Sentencia. CLOSE DATASET <archivo>.
ES AMPLIAMENTE RECOMENDABLE REALIZAR SIEMPRE EL CIERRE DE LOS ARCHIVOS.
Ejemplo:
* Cierro el archivo
CLOSE DATASET p_path.
IF sy-subrc NE 0.
MESSAGE s000(z_prueba) WITH text-006.
ENDIF.
4. Búsqueda de Archivos en el Servidor
Utilizando la funcion /SAPDMC/LSM__SERVER_FILE podemos crear una ventana de navegación en el servidor de aplicaciones para poder seleccionar el archivo que deseamos.
DATA: vl_file(500) type c.
CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
EXPORTING
directory = p_path
filemask = '*'
IMPORTING
Serverfile = vl_file
EXCEPTIONS
canceled_by_user = 1
OTHERS = 2.
IF sy-subrc ne 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy -msgv2 sy_msgv3 sy-msgv4.
ELSE.
MOVE vl_file TO p_path.
ENDIF.
 
 
 
Sobre el autor
Publicación académica de Carlos Alberto Carreira, en su ámbito de estudios para la Carrera Consultor ABAP.
Carlos Alberto Carreira
Profesión: Consultor Técnico en Jde W.s. - Argentina - Legajo: KC15G
✒️Autor de: 92 Publicaciones Académicas
🎓Cursando Actualmente: Consultor ABAP Nivel Inicial
🎓Egresado de los módulos:
Certificación Académica de Carlos Carreira