zOs/JCL/MA0APVS
//MA0APVS PROC
//********************************************************************
//*
//* PVS MONITOR AS STARTED TASK
//*
//* BEI PROBLEMEN BITTE PVS-TEAM BENACHRICHTIGEN <<<<<<<<<<<<
//*
//* THIS SOURCE SUPPORTS THE 3 FOLLOWING CONFIGURATIONS
//* WITH DIFFERENT PROC NAMES:
//*
//* RZ2 PROD ==> MP0APVS IN JOBP.SYSA.PROC(MP0APVS)
//* RZ1 PROD ==> MP0APVS IN JOBP.SYSA.PROC(MP0APVS)
//* RZ1 TEST ==> MA0APVS IN JOBP.SYSA.PROC(MA0APVS)
//*
//* VERSIONS
//* V01 17.06.05 W. KELLER STARTED TASK, MERGE OF THE 3 CONFIGS
//*
//********************************************************************
//* VARIABLES FOR EACH CONFIGURATION
//* ==> REMOVE ASTERIKS BEFORE ACTIVE CONFIGURATION
//* ==> INSERT ASTERIKS BEFORE ALL OTHER CONFIGURATIONS
//********************************************************************
//*--------------------------------------------- RZ1 TEST
// SET RZ=RZ1
// SET ENV=T
// SET OUTI=T SYSOUT CLASS FOR STEPS INTVT*
// SET OUTT=T SYSOUT CLASS FOR PVS TRACE
// SET LOAD=PVS.PVSLODV2 PVS LOAD LIBRARY
// SET COL=PVS.PVT DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- RZ1 PROD
//* SET RZ=RZ1
//* SET ENV=P
//* SET OUTI=* SYSOUT CLASS FOR STEPS INTVT*
//* SET OUTT=N SYSOUT CLASS FOR PVS TRACE
//* SET LOAD=PVS.PVSLODV1 PVS LOAD LIBRARY
//* SET COL=PVS.PVS DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- RZ2 PROD
//* SET RZ=RZ2
//* SET ENV=P
//* SET OUTI=* SYSOUT CLASS FOR STEPS INTVT*
//* SET OUTT=* SYSOUT CLASS FOR PVS TRACE
//* SET LOAD=PVS.PVSLODV1 PVS LOAD LIBRARY
//* SET COL=PVS.PVS DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- DERIVED VARIABLES
// SET POSY=POSY.&RZ..&ENV.0.AKT
// SET PVSP=PVSP.U0000.&ENV.0
//* <V01 ==> INCLUDE PVSRHWTB
//********************************************************************
//* REBUILD HW-TAB:
//* GENERATE CONCATENATED HWTAB PVST400C FROM PVST4TST, -PRX AND -PRD
//********************************************************************
//PVSHWTB EXEC PGM=IRXJCL,
// PARM='PVSRHWTB'
//* ^ ^
//* ! !
//* ! +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=&PVSP..CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=&PVSP..TAB(PVST4TST)
// DD DISP=SHR,DSN=&PVSP..TAB(PVST4PRX)
// DD DISP=SHR,DSN=&PVSP..TAB(PVST4PRD)
//TABOUT DD DISP=SHR,DSN=&PVSP..TAB(PVST400C)
//*
//********************************************************************
//* REBUILD NV-TAB:
//* GENERATE CONCATENATED NVTAB NVTAB FROM NVTABTST, -PRX AND -PRD
//********************************************************************
//*
//PVSNVTB EXEC PGM=IRXJCL,
// PARM='PVSRHWTB'
//* ^ ^
//* ! !
//* ! +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=&PVSP..CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=&POSY..TAB(NVTABTST)
// DD DISP=SHR,DSN=&POSY..TAB(NVTABPRX)
// DD DISP=SHR,DSN=&POSY..TAB(NVTABPRD)
//TABOUT DD DISP=SHR,DSN=&POSY..TAB(NVTAB)
//*
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//********************************************************************
//*
//INTVT01 EXEC PGM=PVSINTVT,PARM='PVS&ENV,LIST'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTI
//SYSABEND DD SYSOUT=&OUTI
//SYSUDUMP DD SYSOUT=&OUTI
//PVSSNAP DD SYSOUT=&OUTI
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
//VER01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=&COL.CKPT,DISP=SHR
//PVSKONTO DD DSN=&COL.KONTO,DISP=SHR
//PVSLOG DD DSN=&COL.LOG,DISP=SHR
//PECOLL01 DD DSN=&COL.CPE01,DISP=SHR
//PECOLL02 DD DSN=&COL.CPE02,DISP=SHR
//PECOLL03 DD DSN=&COL.CPE03,DISP=SHR
//PECOLL04 DD DSN=&COL.CPE04,DISP=SHR
//PECOLL05 DD DSN=&COL.CPE05,DISP=SHR
//PECOLL06 DD DSN=&COL.CPE06,DISP=SHR
//PECOLL07 DD DSN=&COL.CPE07,DISP=SHR
//PECOLL08 DD DSN=&COL.CPE08,DISP=SHR
//PECOLL09 DD DSN=&COL.CPE09,DISP=SHR
//PECOLL10 DD DSN=&COL.CPE10,DISP=SHR
//SYSIN DD DSN=&PVSP..JCL(PVVERIFY),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
// IF RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,PARM='&ENV,A'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//*--------------------------------------------- OUTPUT MESSAGES
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*--------------------------------------------- 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=*
//*--------------------------------------------- TRACE
//PVSTRACE DD SYSOUT=&OUTT
//*DSNTRACE DD SYSOUT=* DB2 TRACE
//*--------------------------------------------- SNAP
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*--------------------------------------------- DUMP
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//PVSDUMP DD DSN=&PVSP..PVXDUMP.#DT#,DISP=(,CATLG,CATLG),
// SPACE=(CYL,(25,25),RLSE), <V01 ==> ,RLSE,CONTIG)
// RECFM=F,LRECL=4104, <V01 ==> RECFM=FB
// MGMTCLAS=COM#E005
//*SYSMDUMP DD DSN=&PVSP..DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005Y000
//*--------------------------------------------- LOG
//LOGTAB01 DD DSN=&PVSP..SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=&PVSP..SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=&PVSP..SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=&PVSP..SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=&PVSP..SC05.LOGTAB,DISP=SHR
//*-------------------------------------------- CONFIG, PARMS
//DDPVSCFG DD DSN=&PVSP..PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=&PVSP..PARM(GLOBVARS),DISP=SHR
//PVSPARM DD DSN=&PVSP..PARM,DISP=SHR
//PVSTAB DD DSN=&PVSP..TAB,DISP=SHR
//PVSBEIL DD DSN=&PVSP..BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=&PVSP..MSG,DISP=SHR
//PVSCKPT DD DSN=&COL.CKPT,DISP=SHR
//PVSLOG DD DSN=&COL.LOG,DISP=SHR
//PVSKONTO DD DSN=&COL.KONTO,DISP=SHR
//*-------------------------------------------- SPERR
//SPERR01 DD DSN=&PVSP..SPERR.DATA,DISP=OLD
//*-------------------------------------------- KEYS
//* <V01 RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC01 DD DSN=&COL.SC01.KEYS,DISP=MOD
//SYSPSC02 DD DSN=&COL.SC02.KEYS,DISP=MOD
//SYSPSC03 DD DSN=&COL.SC03.KEYS,DISP=MOD
//SYSPSC04 DD DSN=&COL.SC04.KEYS,DISP=MOD
//SYSPSC05 DD DSN=&COL.SC05.KEYS,DISP=MOD
//*-------------------------------------------- POSY
//POSYTEMP DD DISP=SHR,DSN=&POSY..TEMPLATE
//POSYTAB DD DISP=SHR,DSN=&POSY..TAB
//*-------------------------------------------- COLLECTOREN: AU
//COLLAU00 DD DSN=&COL.CAU00,DISP=SHR
//COLLAU01 DD DSN=&COL.CAU01,DISP=SHR
//COLLAU02 DD DSN=&COL.CAU02,DISP=SHR
//COLLAU03 DD DSN=&COL.CAU03,DISP=SHR
//COLLAU04 DD DSN=&COL.CAU04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: BD
//COLLBD00 DD DSN=&COL.CBD00,DISP=SHR
//COLLBD01 DD DSN=&COL.CBD01,DISP=SHR
//COLLBD02 DD DSN=&COL.CBD02,DISP=SHR
//COLLBD03 DD DSN=&COL.CBD03,DISP=SHR
//COLLBD04 DD DSN=&COL.CBD04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: CH
//COLLCH00 DD DSN=&COL.CCH00,DISP=SHR
//COLLCH01 DD DSN=&COL.CCH01,DISP=SHR
//COLLCH02 DD DSN=&COL.CCH02,DISP=SHR
//COLLCH03 DD DSN=&COL.CCH03,DISP=SHR
//COLLCH04 DD DSN=&COL.CCH04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: ER
//COLLER00 DD DSN=&COL.CER00,DISP=SHR
//COLLER01 DD DSN=&COL.CER01,DISP=SHR
//COLLER02 DD DSN=&COL.CER02,DISP=SHR
//COLLER03 DD DSN=&COL.CER03,DISP=SHR
//COLLER04 DD DSN=&COL.CER04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: ES
//COLLES00 DD DSN=&COL.CES00,DISP=SHR
//COLLES01 DD DSN=&COL.CES01,DISP=SHR
//COLLES02 DD DSN=&COL.CES02,DISP=SHR
//COLLES03 DD DSN=&COL.CES03,DISP=SHR
//COLLES04 DD DSN=&COL.CES04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: FA
//COLLFA00 DD DSN=&COL.CFA00,DISP=SHR
//COLLFA01 DD DSN=&COL.CFA01,DISP=SHR
//COLLFA02 DD DSN=&COL.CFA02,DISP=SHR
//COLLFA03 DD DSN=&COL.CFA03,DISP=SHR
//COLLFA04 DD DSN=&COL.CFA04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: FG
//COLLFG00 DD DSN=&COL.CFG00,DISP=SHR
//COLLFG01 DD DSN=&COL.CFG01,DISP=SHR
//COLLFG02 DD DSN=&COL.CFG02,DISP=SHR
//COLLFG03 DD DSN=&COL.CFG03,DISP=SHR
//COLLFG04 DD DSN=&COL.CFG04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: GB
//COLLGB00 DD DSN=&COL.CGB00,DISP=SHR
//COLLGB01 DD DSN=&COL.CGB01,DISP=SHR
//*-------------------------------------------- COLLECTOREN: W0
//COLLLW00 DD DSN=&COL.CLW00,DISP=SHR
//COLLLW01 DD DSN=&COL.CLW01,DISP=SHR
//COLLLW02 DD DSN=&COL.CLW02,DISP=SHR
//COLLLW03 DD DSN=&COL.CLW03,DISP=SHR
//COLLLW04 DD DSN=&COL.CLW04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: PI
//COLLPI00 DD DSN=&COL.CPI00,DISP=SHR
//COLLPI01 DD DSN=&COL.CPI01,DISP=SHR
//COLLPI02 DD DSN=&COL.CPI02,DISP=SHR
//COLLPI03 DD DSN=&COL.CPI03,DISP=SHR
//COLLPI04 DD DSN=&COL.CPI04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: SP
//COLLSP00 DD DSN=&COL.CSP00,DISP=SHR
//COLLSP01 DD DSN=&COL.CSP01,DISP=SHR
//COLLSP02 DD DSN=&COL.CSP02,DISP=SHR
//COLLSP03 DD DSN=&COL.CSP03,DISP=SHR
//COLLSP04 DD DSN=&COL.CSP04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: TS
//COLLTS00 DD DSN=&COL.CTS00,DISP=SHR
//COLLTS01 DD DSN=&COL.CTS01,DISP=SHR
//COLLTS02 DD DSN=&COL.CTS02,DISP=SHR
//COLLTS03 DD DSN=&COL.CTS03,DISP=SHR
//COLLTS04 DD DSN=&COL.CTS04,DISP=SHR
//COLLTS05 DD DSN=&COL.CTS05,DISP=SHR
//COLLTS06 DD DSN=&COL.CTS06,DISP=SHR
//COLLTS07 DD DSN=&COL.CTS07,DISP=SHR
//COLLTS08 DD DSN=&COL.CTS08,DISP=SHR
//COLLTS09 DD DSN=&COL.CTS09,DISP=SHR
//*-------------------------------------------- COLLECTOREN: VI
//COLLVI00 DD DSN=&COL.CVI00,DISP=SHR
//COLLVI01 DD DSN=&COL.CVI01,DISP=SHR
//COLLVI02 DD DSN=&COL.CVI02,DISP=SHR
//COLLVI03 DD DSN=&COL.CVI03,DISP=SHR
//COLLVI04 DD DSN=&COL.CVI04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: XP
//COLLXP00 DD DSN=&COL.CXP00,DISP=SHR
//COLLXP01 DD DSN=&COL.CXP01,DISP=SHR
//COLLXP02 DD DSN=&COL.CXP02,DISP=SHR
//COLLXP03 DD DSN=&COL.CXP03,DISP=SHR
//COLLXP04 DD DSN=&COL.CXP04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: PE
//PECOLL01 DD DSN=&COL.CPE01,DISP=SHR,AMP='BUFNI=8'
//PECOLL02 DD DSN=&COL.CPE02,DISP=SHR,AMP='BUFNI=8'
//PECOLL03 DD DSN=&COL.CPE03,DISP=SHR,AMP='BUFNI=8'
//PECOLL04 DD DSN=&COL.CPE04,DISP=SHR,AMP='BUFNI=8'
//PECOLL05 DD DSN=&COL.CPE05,DISP=SHR,AMP='BUFNI=8'
//PECOLL06 DD DSN=&COL.CPE06,DISP=SHR,AMP='BUFNI=8'
//PECOLL07 DD DSN=&COL.CPE07,DISP=SHR,AMP='BUFNI=8'
//PECOLL08 DD DSN=&COL.CPE08,DISP=SHR,AMP='BUFNI=8'
//PECOLL09 DD DSN=&COL.CPE09,DISP=SHR,AMP='BUFNI=8'
//PECOLL10 DD DSN=&COL.CPE10,DISP=SHR,AMP='BUFNI=8'
//*
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
//*
//INTVT02 EXEC PGM=PVSINTVT,PARM='PVS&ENV,LIST'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTI
//SYSABEND DD SYSOUT=&OUTI
//SYSUDUMP DD SYSOUT=&OUTI
//PVSSNAP DD SYSOUT=&OUTI
//*
//*********************************************************************
//* LEEREN DUMPSPACE LÖSCHEN
//*********************************************************************
//*
//RLS01 EXEC PGM=IKJEFT01,DYNAMNBR=20,
// PARM=('%PVSRRMEM PVSDUMP')
//SYSPROC DD DSN=&PVSP..CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//PVSDUMP DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//*
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON02 EXEC PGM=ICETOOL <V01 ==> ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=&COL.SC01.KEYS,DISP=SHR
// DD DSN=&COL.SC02.KEYS,DISP=SHR
// DD DSN=&COL.SC03.KEYS,DISP=SHR
// DD DSN=&COL.SC04.KEYS,DISP=SHR
// DD DSN=&COL.SC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.&RZ.AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
//MON03 EXEC PGM=PV7001,PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//DDPVSCFG DD DSN=&PVSP..PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF
// ENDIF
//MA0APVS PEND