Leer en el servidor

*-------------------------------------------------------------*
PARA LEER EN EL SERVIDOR
*-------------------------------------------------------------*


REPORT zdataset04 MESSAGE-ID zbc420_04.

TYPES: BEGIN OF gty_data,
texto(100) TYPE c,
END OF gty_data.

DATA: gti_data TYPE TABLE OF gty_data WITH HEADER LINE.

DATA: infile2 LIKE epsf-epsdirnam.
DATA: infile1 LIKE epsf-epsdirnam.

infile1 = '/tmp/prueba1.txt'.
infile2 = '/tmp/prueba_04_otra2.txt'.

OPEN DATASET infile1 FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

DO.
READ DATASET infile1 INTO gti_data.
CASE sy-subrc.
WHEN '0'.
APPEND gti_data.
WHEN '4'.
EXIT.
WHEN '8'.
MESSAGE e000 WITH 'No se puede'.
ENDCASE.
ENDDO.

ELSE.

MESSAGE e000 WITH 'No se puede leer archivo ' infile1.

ENDIF.
CLOSE DATASET infile1.