* $$ JOB JNM=MV05102B,SYSID=1
* $$ LST DISP=D,CLASS=A,FNO=1P14,COPY=1,LST=SYSLST
// JOB MV05102B 10 MERGE LIC INPUT DATA
* STEP 1
// ASSGN SYS020,DISK,VOL=PERM53,SHR
// TLBL SORTIN1,'DR LICENSE',,,,,,02 I/P LIC INPUT
// DLBL SORTIN2,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXTENT SYS020,PERM53
// TLBL SORTOUT,'MV8GKK5,U' O/P MERGED LIC INPUT
// EXEC SORT,SIZE=(AUTO,200K)
MERGE FIELDS=COPY,FILES=2
RECORD TYPE=F,LENGTH=225
INPFIL BLKSIZE=2250,VSAM
OUTFIL BLKSIZE=2250
END
/*
* STEP 2
// ASSGN SYS020,DISK,VOL=PERM53,SHR
// DLBL MVVGGGF,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
// EXTENT SYS020,PERM53
// EXEC IDCAMS,SIZE=AUTO
*/***** GGFDEF.V /BEGIN/ MV05102B.SYSIN 001 */
DELETE -
(MVVGGF.CDL.LIC.INPUT.CLUSTER) -
PURGE -
NOERASE -
CLUSTER -
CATALOG(PERM53.USER.CAT PRM53CT);
DEFINE -
CLUSTER( -
NAME(MVVGGF.CDL.LIC.INPUT.CLUSTER) -
SHR(2,3) -
VOL(PERM53) -
RECOVERY -
NONINDEXED) -
DATA( -
NAME(MVVGGF.CDL.LIC.INPUT.DATA) -
RECORDSIZE(225 225) -
RECORDS(540 180) -
CONTROLINTERVALSIZE(4096)) -
CATALOG(PERM53.USER.CAT PRM53CT);
*/***** GGFDEF.V //END// MV05102B.SYSIN 001 */
IF MAXCC > 4 THEN CANCEL JOB;
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//MV05102B JOB (MV05102B),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* STEP 1
//*
//* STEP0010 PGM=SORT
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* MT I SYS002 UA SORTIN1 'DR LICENSE' COPY
//SORTIN DD DSN='DR LICENSE',
// BLKSIZE=2250,
// LABEL=(,NL),
// LRECL=225,
// RECFM=FB,
// UNIT=TAPE,
// VOL=(SER=&TAPEIN)
//* VS VS I PRM53CT SORTIN2 'MVVGGF.CDL.LIC.INPUT.CLUSTER' VSAME15
//E15IN1 DD DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC,
// DISP=SHR
//* MT O SYS001 UA 'MV8GKK5,U' COPY
//SORTOUT DD DSN=VTMV.LICNZGKK.BXXXX.MERGED.LIC(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
MERGE FIELDS=COPY
RECORD TYPE=F,LENGTH=225
*INPFIL BLKSIZE=2250,VSAM
*OUTFIL BLKSIZE=2250
MODS E15=(VSAME15F,0)
/*
//*
//* STEP 2
//*
//* STEP0020 PGM=IDCAMS
//*
//STEP0020 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS I PRM53CT A 'MVVGGF.CDL.LIC.INPUT.CLUSTER' DELETE
//#DELETE DD DUMMY,DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC
//* VS VS ES O PRM53CT A 'MVVGGF.CDL.LIC.INPUT.CLUSTER' DEFCL
//#DEFCL DD DUMMY,DSN=VTMV.DICSZGGF.BXXXX.CDL.LIC
//* PR O
//SYSPRINT DD SYSOUT=*
//*DLBL MVVGGGF,'MVVGGF.CDL.LIC.INPUT.CLUSTER',,VSAM,CAT=PRM53CT
//* CD I
//SYSIN DD *
*/***** GGFDEF.V /BEGIN/ MV05102B.SYSIN 001 */
DELETE -
(VTMV.DICSZGGF.BXXXX.CDL.LIC) -
PURGE -
NOERASE -
CLUSTER -
;
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEFINE -
CLUSTER( -
NAME(VTMV.DICSZGGF.BXXXX.CDL.LIC) -
SHR(2,3) -
VOL(PERM53) -
RECOVERY -
NONINDEXED) -
DATA( -
RECORDSIZE(225 225) -
RECORDS(540 180) -
CONTROLINTERVALSIZE(4096)) -
;
*/***** GGFDEF.V //END// MV05102B.SYSIN 001 */
IF MAXCC > 4 THEN SET MAXCC=16;
/*
//
Return to the Sample Job Stream List