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.