Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 165

Schnittstelle COBOL-Programm – BS2000
Beispiel 8-3
Verwendung von Benutzerschaltern
Im folgenden Ausschnitt erzeugt ein Dialogauftrag A zwei Stapelaufträge B und C. Im Auf-
trag B wird eine ISAM-Datei aktualisiert. Erst danach kann Auftrag C ablaufen. Benutzer-
schalter 21 wird in drei verschiedenen Aufträgen verwendet. Auf Programm-Ebene wird er
gesetzt, auf Betriebssystem-Ebene wird er ausgewertet und rückgesetzt.
Auftrag A
. . .
/MODIFY-USER-SWITCHES OFF=21
/ENTER-JOB B.STAPEL
/ENTER-JOB C.STAPEL
Auftrag C
Ausschnitt aus der Datei C.STAPEL
/LOGON
. . .
/WAIT-EVENT UNTIL=USER-SWITCHES (ON=21)
/START-PROGRAM FOLGE-PR
/MODIFY-USER-SWITCHES OFF=21
/LOGOFF
U41113-J-Z125-6
(2)
(6)
(7)
(8)
(9)
Auftrags- und Benutzerschalter
(1)
Auftrag B
Ausschnitt aus der Datei B.STAPEL
/LOGON
/START-PROGRAM COB-ISAM
Ausschnitt aus COB-ISAM
. . .
SPECIAL-NAMES.
. . .
USW-21 IS B-SCHALTER.
. . .
PROCEDURE DIVISION.
. . .
OPEN I-O ISAM-DATEI.
. . .
REWRITE . . .
. . .
CLOSE ISAM-DATEI.
. . .
SET B-SCHALTER TO ON.
. . .
STOP RUN.
/LOGOFF
(3)
(4)
(5)
165