: : ENVIRONMENT DIVISION. : INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT Stamm ASSIGN TO "C:Stamm.dat" ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS Stamm-Stat. : FILE SECTION. FD Stamm. 01 Stamm-Satz PIC X(350). : WORKING-STORAGE SECTION. 01 Stamm-Stat. 05 Status-Stelle-1 PIC 9. 05 Status-Stelle-2 PIC 9. 01 Fehler REDEFINES Stamm-Stat PIC 9(4) COMP. 01 Ausgabe-Stamm-Status. 05 Aus-Stamm-Stat-1 PIC 9. 05 Aus-Stamm-Stat-2 PIC /999. 01 Fehltext-1 PIC X(20) VALUE "Kein Platz mehr da!". 01 Fehltext-2 PIC X(20) VALUE "Dateiname unkorrekt.". 01 Fehltext-3 PIC X(20) VALUE "Datei gibt's nicht!". 01 Fehlausgabe PIC X(20). PROCEDURE DIVISION. DECLARATIVES. Stammdatenfehler SECTION. USE AFTER STANDARD ERROR PROCEDURE ON Stamm. IF Status-Stelle-1 = 9 MOVE Status-Stelle-1 TO Aus-Stamm-Stat-1 MOVE LOW-VALUE TO Status-Stelle-1 MOVE Fehler TO Aus-Stamm-Stat-2 IF Fehler = 007 MOVE Fehltext-1 TO Fehlausgabe ELSE IF Fehler = 004 MOVE Fehltext-2 TO Fehlausgabe ELSE IF Fehler = 013 MOVE Fehltext-3 TO Fehlausgabe ELSE MOVE "Programmierfehler !!" TO Fehlausgabe. DISPLAY "Fehler-Nr:" AT 0301. DISPLAY Ausgabe-Satmm-Satus AT 0312. DISPLAY Fehlausgabe AT 0317. Stammdatenfehler-Ende. EXIT. Ausgabefehler SECTION. USE AFTER STANDARD EXCEPTION PROCEDURE ON OUTPUT. : : Ausgabefehler-Ende. EXIT. END DECLARATIVES. Programm SECTION. : : |