klar:Lucyalison hat geschrieben:P.S.: Kannst Du den Originalcode noch hier reinstellen?
Code: Alles auswählen.
REPORT Y9zfsps008 LINE-COUNT 65 LINE-SIZE 132.
DATA: INPUTDATEI(128) TYPE C.
DATA: BEGIN OF ITAB OCCURS 200,
FILLER(512) TYPE C,
END OF ITAB.
DATA: ANZAHL TYPE I.
DATA: VERARBEITET TYPE I.
DATA: AUSGEGEBEN TYPE I.
PARAMETERS: VINPUT(50) TYPE C DEFAULT 'c:\einspieldatei.txt'.
SELECTION-SCREEN SKIP 1.
PARAMETERS AUSGABE(50) DEFAULT
'/usr/sap/SystemID/COMM/KWF/datei.asc' lower CASE OBLIGATORY.
SELECTION-SCREEN SKIP 1.
START-OF-SELECTION.
MOVE VINPUT TO INPUTDATEI.
write:/ INPUTDATEI.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = INPUTDATEI
TABLES
DATA_TAB = ITAB.
OPEN DATASET AUSGABE FOR OUTPUT IN TEXT MODE.
LOOP AT ITAB.
ADD 1 TO AUSGEGEBEN.
TRANSFER ITAB TO AUSGABE.
ENDLOOP.
Code: Alles auswählen.
DATA: INPUTDATEI(128) TYPE C.
DATA: BEGIN OF ITAB OCCURS 200,
FILLER(512) TYPE C,
END OF ITAB.
DATA: ANZAHL TYPE I.
DATA: VERARBEITET TYPE I.
DATA: AUSGEGEBEN TYPE I.
DATA: mess(60) TYPE c.
PARAMETERS: VINPUT(50) TYPE C DEFAULT 'c:\einspieldatei.txt'.
SELECTION-SCREEN SKIP 1.
PARAMETERS AUSGABE(50).
INITIALIZATION.
CONCATENATE '/usr/sap/' sy-sysid '/COMM/KWF/fibu1200.asc' INTO AUSGABE.
Translate AUSGABE to lower case.
SELECTION-SCREEN SKIP 1.
START-OF-SELECTION.
MOVE VINPUT TO INPUTDATEI.
write:/ INPUTDATEI.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = INPUTDATEI
TABLES
DATA_TAB = ITAB.
OPEN DATASET AUSGABE FOR OUTPUT IN TEXT MODE MESSAGE mess.