Code: Alles auswählen.
DATA fname(60) TYPE c VALUE '/Ant/REWER/HS/test1.txt'.
DATA: text(70) TYPE c.
OPEN DATASET fname FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
  WRITE / 'File opened'.
  DO.                      "Für jede Zeile der Datei
    READ DATASET fname INTO text.
      IF sy-subrc = 0.
        WRITE / text.
      ELSE.
        EXIT.                "Schleife verlassen
      ENDIF.
  ENDDO.
  CLOSE FILE fname.   "Datei schließen nicht vergessen
ELSE.
  WRITE / 'File not found'.
ENDIF.