Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 164

Auftrags- und Benutzerschalter
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
164
Auftragsschalter 12 erhält den Status ON, 13 den Status OFF auf Betriebssystem-
Ebene.
Ausschnitt aus einer Prozedur.
Das COBOL-Programm PROG-1 wird aufgerufen.
Für die Auftragsschalter 12 (TSW-12) bzw. 13 (TSW-13) werden die programmin-
ternen Namen SCHALTER-12 bzw. SCHALTER-13 vereinbart; für ihren jeweiligen
ON-Status die Bedingungsnamen EIN-12 bzw. EIN-13.
Falls Auftragsschalter 12 den Status ON hat (siehe (1)), wird die Anweisung
PERFORM A vor PERFORM B ausgeführt.
Falls am Ende des Programmablaufs der Indikator FELD den Wert 99 enthält, setzt
PROG-1 den Auftragsschalter 13 auf ON.
Die Prozedur wertet den Status des Auftragsschalters 13 aus: Falls er von
PROG-1 nicht auf ON gesetzt wurde, verzweigt sie zum Ende, andernfalls führt sie
zusätzlich zu PROG-1 das Programm PROG-2 aus.
Auf Betriebssystem-Ebene werden die Auftragsschalter 12 und 13 zurückgesetzt.
Schnittstelle COBOL-Programm – BS2000
U41113-J-Z125-6