Return to the Sample Job Stream List

MV05103A Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=MV05103A,SYSID=1
* $$ LST DISP=H,CLASS=B,FNO=2P14,COPY=1,LST=SYSLST
// JOB MV05103A 10              RECEIVE TCA DATA
// PAUSE
* *** STEP 1 ***
// DLBL SORTIN1,'MVAGFO1.TC.DATA',0,SD
// EXTENT SYS002,PERM19,1,0,6638,6
// DLBL SORTOUT,'CPU--==.MV.MERGED.TC.DATA',2
// EXTENT SYS001,SCRTCH,1,0,1,20
*  *** STD LABELS USED FOR SORTWK1 ***
// EXEC SORT,SIZE=200K
 SORT FIELDS=(8,1,A),FORMAT=CH,WORK=1,SIZE=1200,FILES=1
 RECORD TYPE=F,LENGTH=80
*INPFIL SYSIPT,BLKSIZE=4000
 INPFIL BLKSIZE=4000
 OUTFIL BLKSIZE=4000
 END
/* EOD                                                                   CCBQ 01
* *** STEP 2 ***
// DLBL SORTIN1,'CPU--==.MV.MERGED.TC.DATA',2
// EXTENT SYS002,SCRTCH,1,0,1,20
// DLBL SORTOUT,'MVAGFO1.TC.DATA',0,SD
// EXTENT SYS001,PERM19,1,0,6638,6
*  *** STD LABELS USED FOR SORTWK1 ***
// EXEC DYL280,SIZE=350K
 OPTION RESTORE MVNR0101
 FIN
/*
* *** STEP 3 ***
// EXEC TDYNASN
// ASSGN SYS001,DUMMY
/*
// DLBL MVAGFO1,'MVAGFO1.TC.DATA',0,SD
// EXTENT SYS020,PERM19,1,0,6638,6
// TLBL SYS001,'MV8GFO5,U'
// EXEC MAXBACK,SIZE=350K
    SET LIST=ON   ;
     DUMP  MVAGFO1(SAM)  ;
/*
* DELETING WORK DISK FILE(S)
// UPSI 00000000     RESET UPSI FOR DYNUTIL
// EXEC DYNUTIL,SIZE=250K
 DELETE 'CPU--==.MV.MERGED.TC.DATA' POOL=SCRTCH
/*
/&
* $$ EOJ
STOP
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//MV05103A JOB (MV05103A),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* *** STEP 1 ***
//*  *** STD LABELS USED FOR SORTWK1 ***
//*
//*     STEP0010  PGM=SORT
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD I SYS002 UA    SORTIN1  'MVAGFO1.TC.DATA'
//SORTIN   DD  DSN=VTMV.DICSZGFO.BXXXX.TC.DATA,
//             DISP=SHR
//* SD O SYS001 UA             'CPU--==.MV.MERGED.TC.DATA'
//SORTOUT  DD  DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA,
//             DISP=(NEW,CATLG,DELETE),
//             DATACLAS=LARGE,
//             SPACE=(TRK,(20,5),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT  FIELDS=(8,1,A),FORMAT=CH
 RECORD TYPE=F,LENGTH=80
*INPFIL SYSIPT,BLKSIZE=4000
*INPFIL BLKSIZE=4000
*OUTFIL BLKSIZE=4000
 END
/*
//*
//* *** STEP 2 ***
//*  *** STD LABELS USED FOR SORTWK1 ***
//*
//*     STEP0020  PGM=DYL280
//*
//STEP0020 EXEC PGM=DYL280
//* MODULE DYL280 PROCESSED BY PLUG-IN LCP280
//* SD I SYS002 UA             'CPU--==.MV.MERGED.TC.DATA'              MVNR0101
//SORTIN1  DD  DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA,
//             DISP=OLD
//* SD VS    W WORKCAT  S IJSYS04  '%DOS.WORKFILE.SYS004'
//SYS004   DD  DSN=&&SYS004,
//             SPACE=(TRK,(9,2)),
//             UNIT=SYSDA
//* SD O SYS001 UA             'MVAGFO1.TC.DATA'                        MVNR0101
//SORTOUT  DD  DSN=VTMV.DICSZGFO.BXXXX.TC.DATA,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(6,1),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 OPTION RESTORE MVNR0101
 FIN
/*
//*
//* *** STEP 3 ***
//*
//*  --> PGM=TDYNASN  <-- DELETED
//*
//*     STEP0030  PGM=ADRDSSU                                           MAXBACK
//*
//STEP0030 EXEC PGM=ADRDSSU
//* MODULE MAXBACK PROCESSED BY PLUG-IN JCLTDUSP
//* SD I              MVAGFO1  'MVAGFO1.TC.DATA'                        BACKUP
//#BACKUP  DD  DUMMY,DSN=VTMV.DICSZGFO.BXXXX.TC.DATA
//* MT O                       'MV8GFO5,U'                              BACKUP
//SYS001   DD  DSN=VTMV.DICSZGFO.BXXXX.TC.DATA.BACKUP(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 DUMP -
   DATASET( -
     INCLUDE( -
       VTMV.DICSZGFO.BXXXX.TC.DATA -
            )) -
   SPHERE -
   SHARE -
   OUTDD(SYS001)
/*
//*
//* DELETING WORK DISK FILE(S)
//*
//*  --> PGM=DYNUTIL  <-- DELETED
//*
//SCRATCH  EXEC PGM=IEFBR14
//*
//DEL001   DD  DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA,DISP=(MOD,DELETE)
//
   

Return to the Sample Job Stream List