Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 169

Schnittstelle COBOL-Programm – BS2000
Beispiel 8-4
Kommunikation über Jobvariable
Im folgenden Auftrag wird die Jobvariable KONTROLLE.ABLAUF sowohl von einem
COBOL-Programm als auch auf Kommandoebene verwendet. Abhängig vom Inhalt der
Jobvariable kann das Programm unterschiedliche Verarbeitungszweige durchlaufen und
ggf. den Inhalt der Jobvariable aktualisieren. Auch ein anderer Auftrag - selbst unter einer
anderen Benutzerkennung - kann auf diese Jobvariable zugreifen, falls sie mit dem Kom-
mando CREATE-JV ...,USER-ACCESS=ALL-USERS katalogisiert wurde.
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
/SET-JV-LINK LINK-NAME=AKTUELL,JV-NAME=KONTROLLE.ABLAUF
OU
/START-PROGRAM PROG.ARBEIT-1
OU
OU URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU 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 ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL OU
OU
OU /SHOW-JV JV-NAME(KONTROLLE.ABLAUF) LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (8) OU
OU
%930629 AKTUALISIERUNG NR. 1679
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
U41113-J-Z125-6
Programmausschnitt:
...
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
TERMINAL IS T
JV-AKTUELL IS FELDJV. LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2) OU OU
...
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TAGDAT
INHALT-JV. LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (4) OU OU
01
05 AKT-DAT
05 FILLER
05 AKT-NUM
...
PROCEDURE DIVISION.
ACCEPT INHALT-JV FROM FELDJV. LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (5) OU OU
ACCEPT TAGDAT FROM DATE.
IF AKT-DAT NOT EQUAL TAGDAT LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (6) OU OU
PERFORM ARBEIT
ELSE PERFORM SCHON-AKTUELL.
...
ARBEIT.
...
MOVE TAGDAT TO AKT-DAT.
ADD 1 TO AKT-NUM.
DISPLAY INHALT-JV UPON FELDJV. ⎭
...
SCHON-AKTUELL.
DISPLAY "ENDE AKTUALISIERUNG"
UPON T.
...
PIC X(6). LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (3) OU OU
PIC X(6).
PIC X(20).
PIC 9(4).
⎫
⎬ LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (7) OU OU
Jobvariablen
LRLRLRLRLRLRLRLR (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 OU
OU OU
OU OU
OU OU
OU OU
OU OU
OU
OU
169