zOs/JCL/PVX010XP
//PVX0100P JOB (OS09,KE50,,SP00000000),
// 'PVS-MONITOR',
// MSGCLASS=E,
// REGION=99364K
*** PVX010MP ==> PVX0100P
*** RZ1 ==> RZ2
*** PVX01M01 ==> PVX01H01
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ2AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ2P
//*MAIN CLASS=PVS
//*********************************************************************
//* PVS-MONITOR / BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN
//*********************************************************************
//* REBUILD HW-/NV-TAB
//*********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
//* JCLPREP 18/08/2004 08:04:57 A223682
//********************************************************************
//*
*** nur rz1 begin ==>
//INTVT1 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDMP DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
// IF RC = 0 THEN
*** nur rz1 end ==>
//VER01 EXEC PGM=IDCAMS
//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
//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
//*********************************************************************
// ENDIF ==> nur rz1
//*
// IF VER01.RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,
// PARM='P,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=*
//*DSNTRACE DD SYSOUT=* DB2-TRACE
//PVSTRACE DD SYSOUT=N RZ2 ==> SYSOUT=*
//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
//*YSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D035Y000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// SPACE=(CYL,(25,25),RLSE), RZ2 ==> ...,RLSE,CONTIG)
// RECFM=F,LRECL=4104
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//*********************************************************************
//* SCAN-SUBTASKS
//*********************************************************************
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD
//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
*** nur rz2 begin
//COLLCH05 DD DSN=PVS.PVSCCH05,DISP=SHR
//COLLCH06 DD DSN=PVS.PVSCCH06,DISP=SHR
//COLLCH07 DD DSN=PVS.PVSCCH07,DISP=SHR
//COLLCH08 DD DSN=PVS.PVSCCH08,DISP=SHR
//COLLCH09 DD DSN=PVS.PVSCCH09,DISP=SHR
*** nur rz2 end
//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
//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
//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'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8'
*** nur rz1 begin
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
// ENDIF
//*
// IF MON01.RC = 0 THEN
//INTVT2 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=E
//SYSABEND DD SYSOUT=E
//SYSUDMP DD SYSOUT=E
//PVSSNAP DD SYSOUT=E
*** nur rz1 end
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF
//*
// IF VER01.RC = 0 THEN
//RLS01 EXEC PGM=SY2060
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//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
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON03 EXEC PGM=PV7001,
// 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=*
*** nur rz2 begin
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
// ENDIF
//*
// IF MON03.RC ^= 0 THEN
//MON04 EXEC PGM=SY7060,
// PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
*** nur rz2 end
// ENDIF