Return to the Sample Job Stream List

MV05102B Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

//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