✒️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
Se utiliza la sentencia TRANSFER para transferri datos desde los programas ABAP a los archivos ubicados en el servidor de aplicaciones. La sintaxis es como se explica a continuación.
TRANSFER <estructura> TO <archivo>.
El modo en que se realiza la transferencia de información se corresponde con el modo de apertura del archivo. Si el archivo no está abierto para escritura, el sistema intentará abrirlo en BINARY MDE o utilizando la última ejecución de la sentencia OPEN DATASET.
OPEN DATASET p_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc NE 0. MESSAGE s000(z_prueba) WITH text-004. ELSE. 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.
Con la transacción estándar CG3Y podemos copiar un archivo alojado en el servidor en nuestra computadora, es muy sencillo y basta con pasar la ruta completa del origen y la del destino y elegir el formato de transferencia que puede ser ASCII o Binario.
BORRADO DE ARCHIVOS DEL SERVIDOR
Utilizaremos la sentencia DELETE DATASET para borrar archivos del servidor de aplicaciones. La sintaxis de la sentencia es la siguiente.
DELETE DATASET <archivo>.
Para borrar un archivo, previamente tendrá que haber pasado por el proceso de apertura.
Si el borrado se realiza correctamente entonces el SY-SUBRC será 0.
EJEMPLO:
IF NOT p_borrar IS INITIAL. DELETE DATASET p_path. ENDIF.
CIERRE DE ARCHIVOS DEL SERVIDOR
Utilizamos la sentencia CLOSE DATASET para cerrar archivos del servidor de aplicaciones.
CLOSE DATASET <archivo>.
Siempre sebe realizarse el cierre de los archivos, aquí un ejemplo:
CLOSE DATASET p_path. IF sy-subrc NE 0. MESSAGE s000(z_prueba) WITH text-006. ENDIF.
BUSQUEDA DE ARCHIVOS EN EL SERVIDOR
Utilizando la función /SAPDMC/LSM_F4SERVER_FILE podemos crear una ventana de navegación en el servidor de aplicaciones para poder seleccionar el archivo que deseamos.
FORM abrir_ventana_archivos . 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 <> 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 Jose Alberto Rivera Gonzalez, en su ámbito de estudios para la Carrera Consultor ABAP.
Jose Alberto Rivera Gonzalez
Profesión: Técnico Informático - Mexico - Legajo: LG32F
✒️Autor de: 102 Publicaciones Académicas
🎓Egresado de los módulos:
Certificación Académica de Jose Rivera