Code: Alles auswählen.
DATA: lt_tab TYPE TABLE OF string,
ls_beleg TYPE string.
TYPES:BEGIN OF lty_copy,
mandt TYPE mandt,
opbel TYPE OPBEL_KK,
xblnr TYPE XBLNR_KK,
END OF lty_copy.
DATA: lt_dtab TYPE TABLE OF lty_copy,
ls_dtab LIKE LINE OF lt_dtab,
file TYPE string VALUE 'C:\Users\c0027\Desktop\DocM\testdatenn.txt'.
OPEN DATASET file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET file INTO ls_beleg.
IF ls_beleg IS INITIAL.
WRITE:/ 'Kopiervorgang fertig.'.
EXIT.
ELSE.
SPLIT ls_beleg at ';' INTO ls_dtab-opbel ls_dtab-xblnr.
INSERT INTO zdoc VALUES ls_dtab.
ENDIF.
ENDDO.
Folgende Benutzer bedankten sich beim Autor Unit605 für den Beitrag:
erubadhron
Folgende Benutzer bedankten sich beim Autor ralf.wenzel für den Beitrag:
erubadhron