* $$ JOB JNM=FSTREP1,CLASS=8,DISP=D,PRI=5 * $$ LST CLASS=J,DISP=K,LST=SYSLST,PRI=3 // JOB CASORT1 * *----------------J O B I N P R O G R E S S-----------------* * * CASORT1 * * * TYPE : RECOVERABLE * * *--------------------------------------------------------------* /. STEP001 * $$ SLI ICCF=(PHSTLIB),LIB=2 // DLBL IJSYSUC,'VSAM.WORK.CATALOG',,VSAM // DLBL SORTIN1,'FLAB.PRO.BABD145.CPAY.PAYMENTS',,VSAM // DLBL SORTOT1,'P74DISB.CASH',,SD // EXTENT ,POOL01,1,0,1,126 // DLBL SORTOT2,'PTD.BSDATA.INVFILE1',,SD // EXTENT ,POOL01,1,0,1,126 // DLBL SORT1,'===.SORT1.WORK.FILE',0,SD WORK FILE 1 // EXTENT ,TPROD2,1,0,1,2000 // DLBL SORT2,'===.SORT2.WORK.FILE',0,SD WORK FILE 2 // EXTENT ,TPROD2,1,0,1,2000 * $$ SLI ICCF=(DYNMSORT),LIB=(2) // EXEC SORT,SIZE=512K OPTION NOINC,PRINT=ALL,ROUTE=LAL,NODUMP SORT1 FIELDS=(1,35,CH,A) SORT2 FIELDS=(1,35,CH,A) INCLUDE1 COND=(1,2,CH,EQ,C'01') INCLUDE2 COND=(2,2,CH,EQ,C'11') RECORD TYPE=F,LENGTH=(150) INPFIL VSAM OUTFIL BLKSIZE=1500 END /* IF $RC = 0 THEN GOTO $EOJ // EXEC ABENDRTN /* /& * $$ EOJ
Return to the Sample Job Stream List
//CASORT1 JOB (CASORT1),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* *----------------J O B I N P R O G R E S S-----------------* //* * CASORT1 * //* * TYPE : RECOVERABLE * //* *--------------------------------------------------------------* //*/. STEP001 //* //* STEP0010 PGM=SORT //* //STEP0010 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* VS VS I WORKCAT SORTIN1 'FLAB.PRO.BABD145.CPAY.PAYMENTS' SORT2 //SORTIN DD DSN=FLAB.PRO.BABD145.CPAY.PAYMENTS, // DISP=SHR //* SD W SORT1 '===.SORT1.WORK.FILE' //SORTWK01 DD DSN=&&SORTWK01, // SPACE=(TRK,(2000,500)), // UNIT=SYSDA //* SD W SORT2 '===.SORT2.WORK.FILE' //SORTWK02 DD DSN=&&SORTWK02, // SPACE=(TRK,(2000,500)), // UNIT=SYSDA //* SD O SYS001 UA SORTOT1 'P74DISB.CASH' SORT2 //SORTOUT1 DD DSN=MVS.P74DISB.CASH(+1), // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(126,31),RLSE), // UNIT=SYSDA //* SD O SYS001 UA SORTOT2 'PTD.BSDATA.INVFILE1' SORT2 //SORTOUT2 DD DSN=MVSPTD.BSDATA.INVFILE1(+1), // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(126,31),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * * OPTION NOINC,PRINT=ALL,ROUTE=LAL,NODUMP SORT FIELDS=(1,35,CH,A) * SORT2 FIELDS=(1,35,CH,A) OUTFIL INCLUDE=(1,2,CH,EQ,C'01'),FNAMES=SORTOUT1 OUTFIL INCLUDE=(2,2,CH,EQ,C'11'),FNAMES=SORTOUT2 RECORD TYPE=F,LENGTH=(150) * INPFIL VSAM * OUTFIL BLKSIZE=1500 END /* //*IF $RC = 0 THEN //*GOTO $EOJ //* //* STEP0020 PGM=ABENDRTN //* // IF (STEP0010.RC ^= 0) THEN //STEP0020 EXEC PGM=ABENDRTN // ENDIF //
Return to the Sample Job Stream List