*-------------------------------------------* OPEN EXTEND SCHREIBEN *-------------------------------------------* |
*-------------------------------------------* OPEN EXTEND SCHREIBEN IF FILE-STATUS NOT "00" OPEN OUTPUT SCHREIBEN CLOSE SCHREIBEN OPEN EXTEND SCHREIBEN END-IF *-------------------------------------------* |
*-------------------------------------------* OPEN I-O SCHREIBEN IF FILE-STATUS NOT "00" OPEN OUTPUT SCHREIBEN CLOSE SCHREIBEN OPEN I-O SCHREIBEN END-IF *-------------------------------------------* |