:
:
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.
:
:
|
|