✒️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 EL SERVIDOR: LAS SENTENCIAS TRANSFER, DELETE Y CLOSE
TRANSFERENCIA DE ARCHIVOS AL SERVIDOR
Utilizaremos la sentencia TRANSFER, para transferir datos desde nuestros programas ABAP a los archivos ubicados en el servidor de aplicaciones.
Ej:
TRANSFER <estructura> TO <archivo>
El modo en que se realiza la transferencia de informacion se corresponde con el modo de apertura del archivo.
Si el archivo no esta abierto para escritura, el sistema intentará abrirlo en BINARY MODE o utilizando la última ejecución de la sentencia OPEN DATASET.
EJ:
OPEN DATASET p_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUNBRC NE 0.
MESSAGE S00(Z_PRUEBA) WITH TEXT-004.
ELSE
*TRANFIERO DATOS AL FICHERO
ST_ARCHIVO_DNI = '27654315'.
ST_ARCHIVO_NOMBRE_APE = RICARDO ALVAREZ'.
ST_ARCHIVO_ESTADO_USU = A'.
ST_ARCHIVO_DIRECCION = LAVALLO1 1454'.
TRANSFER ST_ARCHIVO TO P_PATH.
CON LA TRANSACCION ESTANDAR CG3Y PODEMOS COPIAR UN ARCHIVO ALOJADO EN EL SERVIDOR EN NUESTRA COMPUTADORA, 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 srvidor de aplicaciones.
EJ:
DELETE DATASET <ARCHIVO>.
Para borrar un archivo, previamente debemos abrirlo.
Si el borrado se realizó correctamente, entonces el SY-SUBRC será 0 de lo contrario será 4.
EJ:
IF NOT P_BORRAR IS INITIAL.
DELETE DATASET P_PATH.
ENDIF.
------------------------------------------------------------------------------------------------
CIERRE DE ARCHIVOS DEL SERVIDOR
Utilizaremos la sentencia CLOSE DATASET para cerrar archivod del servidor de aplicaciones. La sintaxis de la sentencia es la siguiente:
CLOSE DATASET <ARCHIVO>.
Es ampliamente recomendable realizar siempre el cierre de los archivos.
EJ:
CLOSE DATASET P_PATH.
IF SY-SUBRC NE 0.
MESSAGE S000(ZPRUEBA) WIRH TEXT-006.
ENDIF.
-------------------------------------------------------------------------------
BUSQUEDA DE ARCHIVOS EN EL SERVIDOR
Utilizando la funcion /SAPDMC/LSM_F4_SERVER_FILE podemos crear una ventana de navegacion en el servidor de aplicaciones para poder seleccionar el archivo que deseamos.
EJ:
DATA: VL_FILE (500) TYPE C.
CALL FUNCTION /SAPDMC/LSM_F4_SERVER_FILE
EXPORTING
DIRECTORY = P_PATH
FILEMARK = '*'
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 Oscar Guillermo Rodriguez Villate, en su ámbito de estudios para la Carrera Consultor ABAP.
Oscar Guillermo Rodriguez Villate
Profesión: Ingeniero de Sistemas - Colombia - Legajo: WM49P
✒️Autor de: 103 Publicaciones Académicas
🎓Egresado de los módulos:
Disponibilidad Laboral: FullTime
Certificación Académica de Oscar Rodriguez