GeMIS_WEB/GUI/Tools/quoter.p

DEF STREAM IN_Stream.
DEF STREAM OUT_Stream.

DEF VAR VInZeile    AS CHAR                         NO-UNDO.
DEF VAR VOutZeile   AS CHAR                         NO-UNDO.
DEF VAR ii          AS INT                          NO-UNDO.
DEF VAR jj          AS INT                          NO-UNDO.
        
INPUT  STREAM In_Stream  FROM 'I:\AD\Ge_MIS_Alt\delta.df' NO-ECHO NO-MAP.
OUTPUT STREAM Out_Stream  TO  'I:\AD\Ge_MIS_Alt\deltav8.df' NO-ECHO NO-MAP.
REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print:
    IMPORT STREAM In_Stream UNFORMATTED VInZeile.
    IF INDEX(VInZeile, 'SQL'     ) > 0 THEN NEXT.
    IF INDEX(VInZeile, 'POSITION') > 0 THEN NEXT.
    IF INDEX(VInZeile, 'AREA'    ) > 0 THEN NEXT.
    VOutZeile = VInZeile.
    PUT STREAM Out_Stream CONTROL VOutZeile.
    PUT STREAM Out_Stream " " SKIP.
END.
INPUT  CLOSE.
OUTPUT CLOSE.