Return to the Sample Job Stream List

SPUTIL2 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=SPUTIL4,CLASS=U
// ASSGN SYS004,480
// TLBL UIN,'BD94CM4X',OLD           INPUT
// ASSGN SYS005,481
// DLBL UOUT,'==AJ99TAP-01',N,K      OUTPUT
// EXEC SPUTIL
COPY
EOJ=1,2,EQ,X,0000
FILEIN=UIN
NOREW
FILEOUT=UOUT
RECFM=F,LRECL=90,BLKSIZE=900
MAX=000777
SEL=1,2,EQ,C,XX
SEL=1,2,EQ,C,YY
SKIP=000666
LABEL=YES
/*
// TLBL TAPEIN,'COPYOUT1',OLD,SYS000   INPUT
// TLBL TAPEIN,'COPYOUT2',OLD          INPUT
// DLBL DISKOUT,'==AJ99TAP-02',N,K     OUTPUT
// EXEC SPUTIL
COPY,FILES=2,RUN
/*
// DLBL DISKIN,'==AJ99TAP-01',O,K      INPUT
// DLBL DISKIN1,'==AJ99TAP-02',O,K     INPUT
// TLBL OUTPUT,'DST.OUT22'             OUTPUT
// EXEC SPUTIL
COPY,FILES=2,FILEOUT=OUTPUT
/*
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//SPUTIL2  JOB (SPUTIL2),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=SORT                                              SPUTIL
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SPUTIL PROCESSED BY PLUG-IN JCLTSPUT
//* MT I SYS000 UA    UIN      'BD94CM4X'
//SORTIN   DD  DSN=PROD.BD94CM4X,
//             DISP=SHR
//* SD O SYS001 UA    UOUT     '==AJ99TAP-01'
//SORTOUT  DD  DSN=MVS.AJ99.TAP-01,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT FIELDS=COPY,STOPAFT=000777,SKIPREC=000666
EOJ=1,2,EQ,X,0000
 INCLUDE COND=(1,2,CH,EQ,C'XX',OR,1,2,CH,EQ,C'YY')
/*
//*
//*     STEP0020  PGM=SORT                                              SPUTIL
//*
//STEP0020 EXEC PGM=SORT
//* MODULE SPUTIL PROCESSED BY PLUG-IN JCLTSPUT
//* MT I SYS000 UA    TAPEIN   'COPYOUT1'
//SORTIN   DD  DSN=COPYOUT1,
//             DISP=SHR
//* MT I SYS000 UA    TAPEIN   'COPYOUT2'
//         DD  DSN=COPYOUT2,
//             DISP=SHR
//* SD O SYS001 UA    DISKOUT  '==AJ99TAP-02'
//SORTOUT  DD  DSN=MVS.AJ99.TAP-02,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT FIELDS=COPY
/*
//*
//*     STEP0030  PGM=SORT                                              SPUTIL
//*
//STEP0030 EXEC PGM=SORT
//* MODULE SPUTIL PROCESSED BY PLUG-IN JCLTSPUT
//* SD I SYS000 UA    DISKIN   '==AJ99TAP-01'
//SORTIN   DD  DSN=MVS.AJ99.TAP-01,
//             DISP=OLD
//* SD I SYS000 UA    DISKIN1  '==AJ99TAP-02'
//         DD  DSN=MVS.AJ99.TAP-02,
//             DISP=OLD
//* MT O SYS001 UA    OUTPUT   'DST.OUT22'
//SORTOUT  DD  DSN=MVS.DST.OUT22,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT FIELDS=COPY
/*
//*
//SCRATCH  EXEC PGM=IEFBR14
//*
//DEL001   DD  DSN=MVS.AJ99.TAP-01,DISP=(MOD,DELETE)
//DEL002   DD  DSN=MVS.AJ99.TAP-02,DISP=(MOD,DELETE)
//
   

Return to the Sample Job Stream List