| 123456789101112131415161718192021222324 |
- DEF VAR ii AS INT NO-UNDO.
- DEF TEMP-TABLE tText
- FIELD iZeile AS INT
- FIELD cZeile AS CHAR
-
- INDEX tText-k1 IS PRIMARY
- iZeile.
- INPUT FROM 'g-verbuchen.w' NO-MAP NO-CONVERT NO-ECHO BINARY.
- REPEAT TRANSACTION ON STOP UNDO, LEAVE:
- ii = ii + 1.
- CREATE tText.
- ASSIGN tText.iZeile = ii.
- IMPORT UNFORMATTED tText.cZeile.
- END.
- INPUT CLOSE.
- OUTPUT TO 'g-verbuchen_1.w' NO-MAP NO-CONVERT.
- FOR EACH tText:
- tText.cZeile = RIGHT-TRIM(tText.cZeile).
- PUT CONTROL tText.cZeile CHR(10).
- END.
- OUTPUT CLOSE.
|
