zOs/JCL/MA0APVST
//A540769Y JOB (CP00,KE50)
//MA0APVS PROC
//*
//* pvs monitor started task
//* verantwortlich KPCO 4
//* jobp.sysa.proc(ma0apvs)
//*
//*
//*MAIN CLASS=PVS
//*MAIN FAILURE=CANCEL
//*
//********************************************************************
//* REBUILD HW-/NV-TAB
//********************************************************************
//*
//*===================================================================*
//* copy of INCLUDE-MEMBER "PVSRHWTB" - START *
//*===================================================================*
//*-------------------------------------------------------------------*
//* GENERATE CONCATENATED HWTAB PVST400C FROM PVST4TST, -PRX AND -PRD *
//*-------------------------------------------------------------------*
//PVSHWTB EXEC PGM=IRXJCL,
// COND=(0,NE),
// PARM='PVSRHWTB'
//* ^ ^
//* ! !
//* ! +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=PVSP.U0000.T0.CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4TST)
// DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4PRX)
// DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4PRD)
//TABOUT DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST400C)
//*-------------------------------------------------------------------*
//* GENERATE CONCATENATED NVTAB NVTAB FROM NVTABTST, -PRX AND -PRD *
//*-------------------------------------------------------------------*
//PVSNVTB EXEC PGM=IRXJCL,
// COND=(0,NE),
// PARM='PVSRHWTB'
//* ^ ^
//* ! !
//* ! +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=PVSP.U0000.T0.CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABTST)
// DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABPRX)
// DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABPRD)
//TABOUT DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTAB)
//*===================================================================*
//* END - copy of INCLUDE-MEMBER "PVSRHWTB" - END *
//*===================================================================*
//*
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//********************************************************************
//*
// IF (RC EQ 0) THEN
//INTVT01 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
//VER01## EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.T0.JCL(PVX01T01),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
//PVSMON1 EXEC PGM=PVSINIT,PARM='T,A',COND=(0,NE,VER01##)
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
//SIMPRINT DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.T0.SPERR.DATA,DISP=OLD
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAP00 DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//PVSTRACE DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*X37TRACE DD SYSOUT=*
//LOGTAB01 DD DSN=PVSP.U0000.T0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.T0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.T0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.T0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.T0.SC05.LOGTAB,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.T0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVTSC01.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC02 DD DSN=PVS.PVTSC02.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC03 DD DSN=PVS.PVTSC03.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC04 DD DSN=PVS.PVTSC04.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC05 DD DSN=PVS.PVTSC05.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//PVSPARM DD DSN=PVSP.U0000.T0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.T0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.T0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.T0.MSG,DISP=SHR
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//*********************************************************************
//PVSDUMP DD DSN=PVSP.U0000.T0.PVXDUMP.#DT#,DISP=(,CATLG,CATLG),
// SPACE=(CYL,(25,25),RLSE),
// RECFM=FB,LRECL=4104,
// MGMTCLAS=D005N000
//*SYSMDUMP DD DSN=PVSP.U0000.T0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005N000
//*********************************************************************
//* 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 DISP=SHR,DSN=POSY.RZ1.T0.AKT.TEMPLATE
//POSYTAB DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVTCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVTCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVTCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVTCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVTCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVTCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVTCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVTCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVTCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVTCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVTCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVTCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVTCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVTCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVTCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVTCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVTCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVTCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVTCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVTCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVTCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVTCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVTCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVTCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVTCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVTCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVTCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVTCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVTCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVTCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVTCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVTCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVTCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVTCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVTCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVTCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVTCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVTCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVTCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVTCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVTCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVTCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVTCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVTCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVTCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVTCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVTCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVTCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVTCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVTCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVTCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVTCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVTCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVTCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVTCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVTCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVTCTS04,DISP=SHR
//COLLVI00 DD DSN=PVS.PVTCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVTCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVTCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVTCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVTCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVTCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVTCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVTCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVTCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVTCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR,AMP='BUFNI=5'
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR,AMP='BUFNI=5'
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR,AMP='BUFNI=5'
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR,AMP='BUFNI=5'
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR,AMP='BUFNI=5'
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR,AMP='BUFNI=5'
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR,AMP='BUFNI=5'
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR,AMP='BUFNI=5'
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR,AMP='BUFNI=5'
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR,AMP='BUFNI=5'
//*
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//*********************************************************************
//*
//INTVT02 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* Leeren DUMPSPACE löschen
//*********************************************************************
//*
//RLS01## EXEC PGM=IKJEFT01,DYNAMNBR=20,
// PARM=('%pvsrRmEm pvsDump')
//SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//PVSDUMP DD DSN=*.PVSMON1.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//*
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
//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.PVTSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC05.KEYS,DISP=SHR
//SYSIN DD DUMMY
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
//PVSMON3 EXEC PGM=PV7001,COND=((0,NE,VER01##),EVEN),
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
//*
//*VSMON4 EXEC PGM=SY7060,COND=((0,NE,VER01##),(0,EQ,PVSMON3)),
//* PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
//* PARM='BITTE STÖME AN PVS-PIKETT, DANKE'
//* PARM='TEST REPLY, HANDLED BY PVS-PIKETT'
//*STEPLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKB.PERM.@008.LLB
//*
// PEND
//S1 EXEC PROC=MA0APVS