Beispiel 4 - Auftragsüberwachung-1

Auftragsüberwachung

Die Aufträge AJOB, BJOB und CJOB werden von einem Steuerauftrag aus gestartet und überwacht.

/         SET-LOGON-PARAMETERS JOB-NAME=STEUER
/         ENTER-JOB FROM-FILE=AJOB,MONJV=JV.AJOB
/         ENTER-JOB FROM-FILE=BJOB,MONJV=JV.BJOB
/         ENTER-JOB FROM-FILE=CJOB,MONJV=JV.CJOB———————————————————————  (1) 
/         SHOW-JOB-STATUS JOB-ID=*MONJV(JV.AJOB)———————————————————————  (2) 
/         WAIT-EVENT UNTIL=*JV(CONDITION=((JV.AJOB,1,2)=C'$T' OR -
/                                        (JV.AJOB,1,2)=C'$A'),-
/                              TIME-LIMIT=3600,TIMEOUT-LABEL=FEHL1) ———  (3) 
/         SKIP-COMMANDS TO-LABEL=NORMAL,IF=*JV(CONDITION=((JV.AJOB,1, -
                                                           2)=C'$T')) —  (4) 
/.FEHL1   CANCEL-JOB JOB-ID=*MONJV(JV.CJOB) ———————————————————————————  (5) 
/.NORMAL  SET-JOB-STEP
/         SKIP-COMMANDS TO-LABEL=ENDE,IF=*JV(CONDITION=((JV.BJOB,1,2) -
                                                         NE C'$R'))
/         CHANGE-TASK-PRIORITY JOB-ID=*MONJV(JV.BJOB),RUN-PRIORITY=130   (6) 
/.ENDE    EXIT-JOB

(1)	Die Aufträge werden gestartet und überwacht.
(2)	Informationen über AJOB werden abgefragt.
(3)	Warten bis AJOB beendet (normal oder abnormal), aber maximal 3600 Sekunden.
(4)	Abfrage, ob AJOB normal oder abnormal beendet wurde.
(5)	Im Falle der abnormalen Beendigung von AJOB wird die Verarbeitung von CJOB ebenfalls abgebrochen.
(6)	Falls CJOB noch läuft, wird die Priorität verändert.