Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 233

Dateiverarbeitung
OU
OU
OU
OU
OU
OU
OU
OU
OU
AUSGABE-FEHLER-ENDE.
OU
OU
END DECLARATIVES.
OU
VORLAUF.
OU
OU
OU
DATEI-LADEN.
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
NACHLAUF.
OU
OU
OU
OU
SATZNUMMER-EINLESEN.
OU
OU -
OU
OU
OU
OU
OU
OU
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
U41113-J-Z125-6
DISPLAY "DVS-CODE:
END-IF
IF DATEI-OFFEN
CLOSE RELATIV-DATEI
END-IF
DISPLAY "PROGRAMM ABNORMAL BEENDET" UPON T
STOP RUN
END-IF.
EXIT.
OPEN OUTPUT RELATIV-DATEI
SET DATEI-OFFEN TO TRUE.
PERFORM SATZNUMMER-EINLESEN
WITH TEST AFTER
UNTIL REL-KEY IS NUMERIC
PERFORM WITH TEST BEFORE UNTIL EINGABE-ENDE
WRITE RELATIV-SATZ FROM RELATIV-TEXT
INVALID KEY LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (5) OU
DISPLAY "SATZ MIT NR. " REL-KEY
"IST BEREITS IN DER DATEI" UPON T
END-WRITE
PERFORM SATZNUMMER-EINLESEN
WITH TEST AFTER
UNTIL REL-KEY IS NUMERIC
END-PERFORM.
SET DATEI-GESCHLOSSEN TO TRUE
CLOSE RELATIV-DATEI
STOP RUN.
DISPLAY "BITTE SATZNUMMER EINGEBEN; DREISTELLIG MIT FUEHRENDE
"N NULLEN" UPON T
DISPLAY "PROGRAMM BEENDEN MIT '000'" UPON T
ACCEPT REL-KEY FROM T
IF REL-KEY NUMERIC
THEN MOVE REL-KEY TO SATZNR
ELSE DISPLAY "EINGABE MUSS NUMERISCH SEIN" UPON T
END-IF.
" DVS-CODE-2 UPON T
Relative Dateien
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
233