[Mauricio Hidalgo]

parameters: p_path like IBIPPARMS-PATH.

* F4 PARA SELECCION DE ARCHIVOS
at selection-screen on value-request for p_path.
IF p_pc = 'X'.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_PATH'
IMPORTING
file_name = P_PATH.
ELSEIF p_unix = 'X'.
CALL FUNCTION 'F4_FILENAME_SERVER' DESTINATION p_server
EXPORTING
pfad = P_PATH
EXCEPTIONS
no_file_on_server = 1
OTHERS = 2.
ENDIF.

*DESPUES USAS OPEN PARA LEER EL ARCHIVO
DATA REC(65000) TYPE C.

OPEN DATASET P_PATH FOR INPUT IN TEXT MODE.
IF sy-subrc = 0.
DO.
READ DATASET P_PATH INTO rec.
IF sy-subrc <> 0.
EXIT.
ELSE.
WRITE / rec.
ENDIF.
ENDDO.
ENDIF.