✒️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
ARCHIVOS EN SERVIDOR: LAS SENTENCIAS TRANSFER, DELETE Y CLOSE
1. TRANSFERENCIA DE ARCHIVOS AL SERVIDOR.
- Sentencia TRANSFER: para transferir datos desde nuestros programas ABAP a los archivos ubicados en el servidr de
aplicaciones.
Ej:
TRANSFER <estructura> TO <archivo>.
El modo en q 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 MODE o utilizando la última ejecución de la sentencia OPEN DATASET.
Ej: Transferencia de archivos con TRANSFER
* Abrir Fichero
OPEN DATASET p_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
MESSAGE s000(z_prueba) WITH text-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 = 'Lavallo1 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 utilizarla basta con pasar la ruta completa del origen y la del destino y elegir el formato de transferencia q puede ser ASCII o BINARY.
2. BORRADO DE ARCHIVOS DEL SERVIDOR
- Sentencia DELETE DATASET: para borrar archivos del servidor de aplicaciones.
Ej:
DELETE DATASET <archivo>.
Para borrar un archivo, previamente debemos abrirlo.
Si el borrado se realiza correctamente, entonces el SY-SUBRC = 0. Else 4.
Ej: Borrado de archivos con DELETE DATASET
* Borra el archivo
IF NOT p_borrar IS INITIAL.
DELETE DATASET p_path.
ENDIF.
3. CIERRE DE ARCHIVOS DEL SERVIDOR
- Sentencia CLOSE DATASET: para cerrar archivos del servidor de aplicaciones.
Ej:
CLOSE DATASET <archivo>.
NOTA: Es ampliamente recomendable realizar siempre el cierre de los archivos.
Ej: Cierre de archivos con CLOSE DATASET
* Cierro el fichero
CLOSE DATASET p_path.
IF sy-subrc NE 0.
MESSAGE s000(z_prueba) WITH text-006.
ENDIF.
ENDIF.
4. BUSQUEDA DE ARCHIVOS EN EL SERVIDOR
Utilizando la función /SAPDMC/LSM_F4_SERVER_FILE podemos crear una ventana de navegación en el servidor de aplicaciones para poder seleccionar el archivo q deseamos.
Ej: La función /SAPDMC/LSM_F4_SERVER_FILE'
EXPORTING
directory = p_parh
filemask = '*'
IMPORTING
serverfile = v1_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 v1_file TO p_path.
ENDIF.
Si ejecutamos el código anterior veremos el siguiente mensaje ya q no disponemos de un servidor de aplicaciones para probar.
Ej: Mensaje q nos informa q no disponemos del server
Operating system message: opendir
Si lo tuviéramos, visualizaríamos una ventana de diálogo donde podremos buscar los archivos en el servidor.
 
 
 
Sobre el autor
Publicación académica de Mayra Maria Pino Rodriguez, en su ámbito de estudios para la Carrera Consultor ABAP.
Mayra Maria Pino Rodriguez
Profesión: Licenciada Cibernética Matemática - Republica Dominicana - Legajo: RA62Z
✒️Autor de: 56 Publicaciones Académicas
🎓Egresado del módulo:
Certificación Académica de Mayra Pino