PARAMETERS: pdatei TYPE authb-filename.
* Ausgabedatei schon da?
OPEN DATASET pdatei FOR INPUT IN TEXT MODE.
IF sy-subrc = 0.
MESSAGE e....
ENDIF.
* Ausgabedatei zum Schreiben öffnen
OPEN DATASET pdatei FOR OUTPUT IN TEXT MODE.
* Zeilenweise Ausgabe
LOOP AT ldata
TRANSFER ldataTO pdatei.
ENDLOOP.
IF sy-subrc = 4.
WRITE: / 'ldata ist leer'.
ENDIF.
CLOSE DATASET pdatei.