* $$ JOB JNM=FS05102Z,SYSID=1
* $$ LST DISP=D,CLASS=A,FNO=1P14,COPY=1,LST=SYSLST
// JOB FS05102Z 10 SEPARATE CDL DMV INPUT
* ** FILES USING STANDARD LABELS **
* ** MVVGEG -- 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTER' ** STP 1,2,3,4
* *** STEP 1 *** *
// EXEC IPCPBTCH,SIZE=350K
CICS CC ONLY=A5CICS
DISA KC QCDL,UNI9
CLOS DB MVVGEG
/*
* *** STEP 2 *** *
// ASSGN SYS006,SYSLST
// ASSGN SYS020,DISK,VOL=PERM53,SHR
// DLBL MVVGGF,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXTENT SYS020,PERM53
// DLBL MVVGGG,'MVVGGG.CDL.DIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXTENT SYS020,PERM53
// DLBL MVVGGH,'MVVGGH.CDL.DOC.LOC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXTENT SYS020,PERM53
// EXEC DYL280,SIZE=(AUTO,200K)
OPTION RESTORE MVOB0101
/*
* *** STEP 3 *** *
// EXEC IDCAMS,SIZE=AUTO
*/***** GEGDEF.V /BEGIN/ FS05102Z.SYSIN 001 */
DELETE -
(MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTER) -
PURGE -
NOERASE -
CLUSTER -
CATALOG(PERM47.USER.CAT PRM47CT);
DEFINE -
CLUSTER( -
NAME(MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTER) -
SHR(2,3) -
VOL(PERM47) -
RECOVERY -
NONINDEXED) -
DATA( -
NAME(MVVGEG.CDL.DMV.SYSTEM.INPUT.DATA) -
RECORDSIZE(100 235) -
RECORDS(21600 2160) -
CONTROLINTERVALSIZE(2048)) -
CATALOG(PERM47.USER.CAT PRM47CT);
*/***** GEGDEF.V //END// FS05102Z.SYSIN 001 */
IF MAXCC > 4 THEN CANCEL JOB;
/*
* *** STEP 4 *** *
// ASSGN SYSIPT,SYSRDR
// EXEC DYL280,SIZE=250K
STATEOFF
OPTION PRINTERR NOXREF
FILE SYSIPT INPUT CARD
FILE MVVGEG OUTPUT ESDS V 235 NULL FROM MVVGEG LENGTH RECLEN
THEREC 235 1
MOVE ' ' TO THEREC
MOVE 235 TO RECLEN
WRITE MVVGEG
STOP
READ SYSIPT
FIN
/*
* *** STEP 5 *** *
// EXEC IPCPBTCH,SIZE=350K
CICS CC ONLY=A5CICS
OPEN DB MVVGEG
ENAB KC QCDL,UNI9
INIT KC UNI9
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//FS05102Z JOB (FS05102Z),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* ** FILES USING STANDARD LABELS **
//* ** MVVGEG -- 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTER' ** STP 1,2,3,4
//* *** STEP 1 *** *
//*
//* STEP0010 PROC=MTPBATCH IPCPBTCH
//*
//STEP0010 EXEC PROC=MTPBATCH
//* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS A5CICS
DISA QCDL,UNI9
CLOS MVVGEG
/*
//*
//* *** STEP 2 *** *
//*
//* STEP0020 PGM=DYL280
//*
//STEP0020 EXEC PGM=DYL280
//* MODULE DYL280 PROCESSED BY PLUG-IN LCP280
//* VS VS ES I PRM47CT S 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTE+ MVOB0101
//MVVGEG DD DSN=VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER,
// DISP=SHR
//* SD VS W WORKCAT S IJSYS04 '%DOS.WORKFILE.SYS004'
//SYS004 DD DSN=&&SYS004,
// SPACE=(TRK,(9,2)),
// UNIT=SYSDA
//* VS VS ES O PRM53CT 'MVVGGF.CDL.LIC.INPUT.CLUSTER' MVOB0101
//MVVGGF DD DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC,
// DISP=SHR
//* VS VS ES O PRM53CT 'MVVGGG.CDL.DIC.INPUT.CLUSTER' MVOB0101
//MVVGGG DD DSN=MVS.MVVGGG.CDL.DIC.INPUT.CLUSTER,
// DISP=SHR
//* VS VS ES O PRM53CT 'MVVGGH.CDL.DOC.LOC.INPUT.CLUSTER' MVOB0101
//MVVGGH DD DSN=MVS.MVVGGH.CDL.DOC.LOC.INPUT.CLUSTER,
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
OPTION RESTORE MVOB0101
/*
//*
//* *** STEP 3 *** *
//*
//* STEP0030 PGM=IDCAMS
//*
//STEP0030 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS I PRM47CT A 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTE+ DELETE
//#DELETE DD DUMMY,DSN=VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER
//* VS VS ES O PRM47CT A 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTE+ DEFCL
//#DEFCL DD DUMMY,DSN=VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
*/***** GEGDEF.V /BEGIN/ FS05102Z.SYSIN 001 */
DELETE -
(VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER) -
PURGE -
NOERASE -
CLUSTER -
;
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEFINE -
CLUSTER( -
NAME(VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER) -
SHR(2,3) -
VOL(PERM47) -
RECOVERY -
NONINDEXED) -
DATA( -
RECORDSIZE(100 235) -
RECORDS(21600 2160) -
CONTROLINTERVALSIZE(2048)) -
;
*/***** GEGDEF.V //END// FS05102Z.SYSIN 001 */
IF MAXCC > 4 THEN SET MAXCC=16;
/*
//*
//* *** STEP 4 *** *
//*
//* STEP0040 PGM=DYL280
//*
//STEP0040 EXEC PGM=DYL280
//* MODULE DYL280 PROCESSED BY PLUG-IN LCP280
//* SD VS W WORKCAT S IJSYS04 '%DOS.WORKFILE.SYS004'
//SYS004 DD DSN=&&SYS004,
// SPACE=(TRK,(9,2)),
// UNIT=SYSDA
//* VS VS ES O PRM47CT S 'MVVGEG.CDL.DMV.SYSTEM.INPUT.CLUSTER'
//MVVGEG DD DSN=VTMV.DICSZGEG.OXXXX.CDL.SYSTEM.INPUT.CLUSTER,
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
STATEOFF
OPTION PRINTERR NOXREF
FILE SYSIPT INPUT CARD
FILE MVVGEG OUTPUT ESDS V 235 NULL FROM MVVGEG LENGTH RECLEN
THEREC 235 1
MOVE ' ' TO THEREC
MOVE 235 TO RECLEN
WRITE MVVGEG
STOP
READ SYSIPT
FIN
/*
//*
//* *** STEP 5 *** *
//*
//* STEP0050 PROC=MTPBATCH IPCPBTCH
//*
//STEP0050 EXEC PROC=MTPBATCH
//* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS A5CICS
OPEN MVVGEG
ENAB QCDL,UNI9
INIT UNI9
/*
//
Return to the Sample Job Stream List