Beispiel 5 - Auftragsüberwachung-2

Auftragsüberwachung

Folgende Abhängigkeit besteht zwischen den Aufträgen AJOB, BJOB, CJOB, EJOB und FJOB:
Starte AJOB erst, wenn BJOB normal beendet ist.
Wenn CJOB normal beendet ist, dann starte gleichzeitig EJOB und FJOB.

Die gewünschte Steuerung wird durch folgenden Koordinations-Job realisiert:

/SET-LOGON-PARAMETERS JOB-NAME=MASTER
/REMARK *******************************************
/REMARK **         BJOB UND CJOB STARTEN         **
/REMARK *******************************************
/ENTER-JOB FROM-FILE=BJOB,MONJV=JV.BJOB,JOB-NAME=BJOB
/ENTER-JOB FROM-FILE=CJOB,MONJV=JV.CJOB,JOB-NAME=CJOB
/REMARK *******************************************
/REMARK ** WENN BJOB FERTIG, AJOB STARTEN        **
/REMARK *******************************************
/ADD-CJC-ACTION CONDITION=((JV.BJOB,1,2)=C'$T'),/
               NAME=BJOB,TIME-LIMIT=3600
/ENTER-JOB FROM-FILE=AJOB,JOB-NAME=AJOB
/END-CJC-ACTION
/REMARK *******************************************
/REMARK ** WENN CJOB FERTIG, EJOB UND FJOB STARTEN*
/REMARK *******************************************
/ADD-CJC-ACTION CONDITION=((JV.CJOB,1,2)=C'$T'),/
               NAME=CJOB,TIME-LIMIT=3600
/ENTER-JOB FROM-FILE=EJOB,JOB-NAME=EJOB
/ENTER-JOB FROM-FILE=FJOB,JOB-NAME=FJOB
/END-CJC-ACTION
/REMARK *******************************************
/REMARK ** WARTEN BIS ALLE EREIGNISSE EINGETETEN **
/REMARK ** SIND UND ALLE AKTIONEN GESTARTET SIND **
/REMARK *******************************************
/WAIT-EVENT UNTIL=*JV(CONDITION=(((JV.BJOB,1,2)=C'$T' OR -
/                                 (JV.BJOB,1,2)=C'$A') AND -
/                                ((JV.CJOB,1,2)=C'$T' OR -
/                                 (JV.CJOB,1,2)=C'$A')),/
                     TIME-LIMIT=3600)
/EXIT-JOB