================= ******** UNIDAD 6 ******** =================
******** Lección 5: "Archivos en Servidor: Sentencias TRANSFER, DELETE Y CLOSE" *********
Usamos la sentencia TRANSFER para transferir datos de nuestros programas a archivos dentro del servidor, debemos abrir previamente.
OPEN DATASET p_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy_subr NE 0.
write: / 'mensaje'
ELSE.
st_archivo-dni = '123456789'.
st_archivo-estado_civil = 'S'.
TRANSFER st_archivo TO p_path.
BORRADO DE ARCHIVOS
Usamos la sentencia DELETE DATASET, que debemos abrir el archivo previamente-
IF NOT p_borrar IS INITIAL.
DELETE DATASET p_path.
ENDIF.
.
CIERRE DE ARCHIVOS
Usamos la sentencia CLOSE DATASET para cerrar archivos.
CLOSE DATASET p_path
IF sy-subrc NE 0.
WRITE 'MESAJE'.
ENDIF.
BUSCANDO ARCHIVOS EN SERVIDOR
Usando la sentencia /SAPDMC/LSM_F4_SERVER_FILE podemos crear una ventana de navegacion.
DATA: vi_file)400) TYPE C.
CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
EXPORTING
directory = p_path
filemask = '*'
IMPORTING
serverfile = vi_file
EXCEPTIONS
canceled_by_user = 1
OTHERS = 2.
IF sy-subrc <> 0 .
MESSAGE ID sy_msgid TYPE sy-msgty NUMBER sy:magno WITH sy_msgv1 sy_msgv2.
ELSE
MOVE vi_file to p_path.
ENDIF.