Code: Alles auswählen.
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) lower case.
INITIALIZATION.
CONCATENATE '/usr/sap/' sy-sysid '/COMM/KWF/fibu1200.asc' INTO AUSGABE.
SELECTION-SCREEN SKIP 1.
START-OF-SELECTION.
MOVE VINPUT TO INPUTDATEI.
write:/ INPUTDATEI.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = INPUTDATEI
TABLES
DATA_TAB = ITAB.
Translate AUSGABE to lower CASE.
OPEN DATASET AUSGABE FOR OUTPUT IN TEXT MODE MESSAGE mess.
LOOP AT ITAB.
ADD 1 TO AUSGEGEBEN.
TRANSFER ITAB TO AUSGABE.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor Lucyalison für den Beitrag:
Brick
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Brick
!!! DAS WARS !!!a-dead-trousers hat geschrieben:Außerdem sind Großbuchstaben drin, daher ist das TRANSLATE TO LOWER CASE tödlich.
Das LOWER CASE beim PARAMETER bedeutet ja nur, dass die automatisch Umsetzung in Großbuchstaben beim PAI des Selektionsbildes nicht durchgeführt wird und somit Kleinbuchstaben möglich sind.
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) lower case.
INITIALIZATION.
CONCATENATE '/usr/sap/' sy-sysid '/COMM/KWF/fibu1200.asc' INTO AUSGABE.
SELECTION-SCREEN SKIP 1.
START-OF-SELECTION.
MOVE VINPUT TO INPUTDATEI.
write:/ INPUTDATEI.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = INPUTDATEI
TABLES
DATA_TAB = ITAB.
*Translate AUSGABE to lower CASE.
OPEN DATASET AUSGABE FOR OUTPUT IN TEXT MODE MESSAGE mess.
LOOP AT ITAB.
ADD 1 TO AUSGEGEBEN.
TRANSFER ITAB TO AUSGABE.
ENDLOOP.
Ich unterstell mal ein SIE... Lucy/Nicola .. trotzdem ist dem nichts hinzuzufügen..a-dead-trousers hat geschrieben:Ich möchte hier nur mal kurz klarstellen:
Der meiste Dank sollte Lucyalison gelten, da er soviel Geduld bewiesen und so lange an dem Problem mitgeholfen hat.
Für das Engagement hat sich Lucyalison IMHO ein DICKES Danke verdient.
lg ADT