Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 163

Schnittstelle COBOL-Programm – BS2000
Beispiel 8-2
Verwendung von Auftragsschaltern
Im folgenden Ausschnitt aus einem Dialogauftrag sieht eine Prozedur verschiedene Verar-
beitungsvarianten vor, die abhängig vom Zustand der Auftragsschalter 12 und 13 ausge-
führt werden. Die Schalter werden sowohl auf Betriebssystem-Ebene als auch auf Pro-
gramm-Ebene verändert und ausgewertet:
Zunächst kann Auftragsschalter 12 auf Betriebssystem-Ebene gesetzt werden, um die Ver-
arbeitung innerhalb der folgenden Prozedur zu steuern. Dort wird auf Programmebene sein
Zustand ausgewertet und, abhängig vom Programmablauf, Auftragsschalter 13 gesetzt.
Dieser wird anschließend auf Betriebssystem-Ebene ausgewertet.
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
/MODIFY-JOB-SWITCHES ON=12,OFF=13
OU
...
OU
/CALL-PROC PROG.SYSTEM
OU URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU OU Die Datei PROG.SYSTEM enthält LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2) OU
OU OU folgende Kommandos:
OU OU
OU OU /BEGIN-PROC ...
OU OU
OU OU /START-PROGRAM PROG-1
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
OU OU
OU OU
OU OU /SKIP-COMMANDS TO-LABEL .ENDE,IF=JOB-SWITCHES (OFF=13) LRLRLRLR (7) OU
OU OU /START-PROGRAM PROG-2
OU OU /.ENDE MODIFY-JOB-SWITCHES OFF=(12,13) LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (8) OU
OU OU /END-PROC
OU ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
OU
/...
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
U41113-J-Z125-6
...
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU Ausschnitt aus PROG-1:
OU ...
OU SPECIAL-NAMES.
OU
TSW-12 IS SCHALTER-12
OU
ON IS EIN-12
OU
TSW-13 IS SCHALTER-13
OU
ON IS EIN-13
OU ...
OU PROCEDURE DIVISION.
OU
...
OU
IF EIN-12 PERFORM A-PAR.
OU
PERFORM B-PAR.
OU
...
OU IF FELD = 99 SET SCHALTER-13 TO ON. LRLRLRLRLRLR (6)
OU
STOP RUN.
OU A-PAR.
OU
...
OU B-PAR.
OU
...
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
...
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (1)
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (3) OU
⎫
⎬ LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (4)
⎭
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (5)
Auftrags- und Benutzerschalter
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 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
OU
OU OU
OU
OU
163