zOs/JCL/PVX010XX
//PVX0100P JOB (PVS47392,0000,,3653),'PVS-MONITOR',MSGCLASS=T,
// REGION=99364K,PRTY=14
//*
*** PVX0100T ==> PVX0100P
*** RZ1 ==> RZ2
*** SYSOUT=T ==> SYSOUT=*
*** PVS.PVT ==> PVS.PVS
*** PVSLODV2 ==> PVSLODV1
*** .T0. ==> .P0.
*** PVSMON1 ==> MON01
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ2AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ2P
//*
//*MAIN CLASS=PVS
//*MAIN FAILURE=CANCEL
//*
//********************************************************************
//* REBUILD HW-/NV-TAB
//********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//********************************************************************
//*
// IF (RC EQ 0) THEN NUR RZ1.TEST ==>
//INTVT1 EXEC PGM=PVSINTVT, RZ1.TEST ==> INTVT01
// PARM='PVSP,LIST' RZ1.TEST ==> ='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDMP DD SYSOUT=* RZ1.TEST ==> SYSUDUMP
//PVSSNAP DD SYSOUT=*
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
// IF (RC EQ 0) THEN NUR RZ%.PROD ==>
//VER01 EXEC PGM=IDCAMS RZ1.TEST ==> VER01##
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR
*** rz2.Prod ==> PVX01H01, rz1.Prod ==> PVX01M01 rz1.test ==> PVX01T01
//SYSIN DD DSN=PVSP.U0000.P0.JCL(PVX01H01),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
// IF VER01.RC = 0 THEN RZ1.TEST ==> COND STATT IF
//MON01 EXEC PGM=PVSINIT,
// PARM='P,A' RZ1.TEST ==> PARM='T,A'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
*** ==> NUR RZ1.TEST BEGIN ==>
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SIMPRINT DD SYSOUT=*
//SNAP00 DD SYSOUT=*
//*X37TRACE DD SYSOUT=*
*** ==> NUR RZ1.TEST END ==>
//PVSTRACE DD SYSOUT=* RZ1.PROD ==A SYSOUT=N
//PVSSNAP DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.P0.SPERR.DATA,DISP=OLD
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.P0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//PVSPARM DD DSN=PVSP.U0000.P0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.P0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.P0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.P0.MSG,DISP=SHR
//*SYSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005N000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005, RZ1.TEST ==> D005N000
// SPACE=(CYL,(25,25),RLSE), RZ2 ==> ...,RLSE,CONTIG)
// RECFM=F,LRECL=4104 RZ1.TEST ==> RECFM=FB,..
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//LOGTAB01 DD DSN=PVSP.U0000.P0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.P0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.P0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.P0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.P0.SC05.LOGTAB,DISP=SHR
//*********************************************************************
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DSN=POSY.RZ2.P0.AKT.TEMPLATE,DISP=SHR
//POSYTAB DD DSN=POSY.RZ2.P0.AKT.TAB,DISP=SHR
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVSCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVSCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVSCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVSCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVSCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVSCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVSCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVSCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVSCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVSCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVSCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVSCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVSCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVSCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVSCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVSCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVSCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVSCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVSCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVSCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVSCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVSCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVSCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVSCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVSCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVSCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVSCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVSCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVSCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVSCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVSCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVSCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVSCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVSCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVSCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVSCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVSCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVSCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVSCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVSCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVSCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVSCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVSCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVSCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVSCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVSCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVSCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVSCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVSCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVSCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVSCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVSCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVSCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVSCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVSCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVSCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVSCTS04,DISP=SHR
*** NUR RZ%.PROD ==> BEGIN
//COLLTS05 DD DSN=PVS.PVSCTS05,DISP=SHR
//COLLTS06 DD DSN=PVS.PVSCTS06,DISP=SHR
//COLLTS07 DD DSN=PVS.PVSCTS07,DISP=SHR
//COLLTS08 DD DSN=PVS.PVSCTS08,DISP=SHR
//COLLTS09 DD DSN=PVS.PVSCTS09,DISP=SHR
*** NUR RZ%.PROD ==> END
//COLLVI00 DD DSN=PVS.PVSCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVSCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVSCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVSCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVSCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVSCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVSCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVSCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVSCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVSCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//*
*** nur rz1 ==> begin
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//*********************************************************************
// ENDIF RZ1.TEST ==> COND ==> IF
//*
// IF MON01.RC = 0 THEN NUR RZ1.PROD ==>
//INTVT2 EXEC PGM=PVSINTVT, RZ1.TEST ==> //INTVT02
// PARM='PVSP,LIST' RZ1.TEST ==> PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//SYSABEND DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//SYSUDUMP DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//PVSSNAP DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//*
*** nur rz1 ==> end
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF nur rz1.prod ==>
//*
// IF VER01.RC = 0 THEN rz1.test ==> mit cond
//RLS01 EXEC PGM=SY2060 rz1.test ==> //RLS01## & cond
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
// ENDIF rz1.test ==> mit cond
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
*** nur rz%.prod ==> begin mit icetool
//MON02 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(COPY01),DISP=SHR
*** nur rz%.prod ==> end mit icetool
*** nur rz1.test ==> begin mit icegener
//PVSMON2 EXEC PGM=ICEGENER,COND=((0,NE,VER01##),EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSUT1 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//SYSIN DD DUMMY
*** nur rz1.test ==> end mit icegener
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
// IF (VER01.RC = 0 | ABEND) THEN rz1.test ==> mit cond
//MON03 EXEC PGM=PV7001, rz1.test ==> //PVSMON3
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF rz1.test ==> mit cond
*** nur rz2 begin
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
//*
// IF MON03.RC ^= 0 THEN
//MON04 EXEC PGM=SY7060,
// PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
//* PARM='TEST REPLY, HANDLED BY PVS-PIKETT'
// ENDIF
*** nur rz2 end