* $$ 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