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