* $$ JOB JNM=FZPSD72J,CLASS=A,DISP=D,USER='FPS DAILY' // JOB FZPSD72J (BFPD5210) DOS/VS SORT ISSUE MOE * $$ LST CLASS=Q,DISP=H,LST=SYSLST,FNO=1PRT /* ****** INPUT FILE ****** // DLBL SORTIN1,'FPS.SYS.BFPD4110.ISSUE.WORK.FILE',0,VSAM,CAT=WORK /* ****** OUTPUT FILE ****** // DLBL SORTOUT,'FPS.SYS.BFPD5210.ISSUE.WORK.FILE',0,VSAM, * CAT=WORK,RECORDS=35000,RECSIZE=841 // DLBL SORTOF2,'FPS.SYS.BFPD5210.DEC98.WORK.FILE',0,VSAM, * CAT=WORK,RECORDS=35000,RECSIZE=841 // DLBL SORTOF3,'FPS.SYS.BFPD5210.ISSUE1.WORK.FILE',0,VSAM, * CAT=WORK,RECORDS=35000,RECSIZE=841 // EXEC SORT OPTION PRINT=CRITICAL SORT FIELDS=(4,2,A,8,2,A,11,11,A,22,10,A,33,9,A,42,8,A,50,7,D), * FORMAT=CH,WORK=4,FILESOUT=3 RECORD TYPE=V,LENGTH=845 OMIT COND=(10,12,CH,EQ,C'SSSPPPPPPPMM') INPFIL BLKSIZE=6144 OUTFIL FILES=1,BLKSIZE=6144, OMIT=(10,3,CH,EQ,C'HO ',OR, 10,3,CH,EQ,C'HXL',OR, 10,3,CH,EQ,C'MH ',OR, 10,3,CH,EQ,C'DF ',OR, 10,3,CH,EQ,C'FSQ',OR, 10,3,CH,EQ,C'BTO',OR, 10,3,CH,EQ,C'AP ',OR, 10,3,CH,EQ,C'AB ',OR, 10,3,CH,EQ,C'ABF') OUTFIL FILES=2,BLKSIZE=6144, INCLUDE=(10,3,CH,EQ,C'HO ',OR, 10,3,CH,EQ,C'HXL',OR, 10,3,CH,EQ,C'MH ',OR, 10,3,CH,EQ,C'DF ',OR, 10,3,CH,EQ,C'FSQ',OR, 10,3,CH,EQ,C'BTO',OR, 10,3,CH,EQ,C'AP ',OR, 10,3,CH,EQ,C'AB ',OR, 10,3,CH,EQ,C'ABF') OUTFIL FILES=3,BLKSIZE=6144, OMIT=(10,3,CH,EQ,C'XXX') END /* /& * $$ EOJ
Return to the Sample Job Stream List
//FZPSD72J JOB (FZPSD72J),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=SORT //* //STEP0010 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD VS I WORKCAT SORTIN1 'FPS.SYS.BFPD4110.ISSUE.WORK.FILE' //SORTIN DD DSN=FPS.SYS.BFPD4110.ISSUE.WORK.FILE, // DISP=SHR //* SD VS O WORKCAT SORTOUT 'FPS.SYS.BFPD5210.ISSUE.WORK.FILE' //SORTOF1 DD DSN=FPS.SYS.BFPD5210.ISSUE.WORK.FILE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(589,147),RLSE), // UNIT=SYSDA //* SD VS O WORKCAT 'FPS.SYS.BFPD5210.DEC98.WORK.FILE' //SORTOF2 DD DSN=FPS.SYS.BFPD5210.DEC98.WORK.FILE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(589,147),RLSE), // UNIT=SYSDA //* SD VS O WORKCAT 'FPS.SYS.BFPD5210.ISSUE1.WORK.FILE' //SORTOF3 DD DSN=FPS.SYS.BFPD5210.ISSUE1.WORK.FILE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(589,147),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * *OPTION PRINT=CRITICAL SORT FIELDS=(4,2,A,8,2,A,11,11,A,22,10,A,33,9,A,42,8,A,50,7, * D),FORMAT=CH RECORD TYPE=V,LENGTH=845 OMIT COND=(10,12,CH,EQ,C'SSSPPPPPPPMM') *INPFIL BLKSIZE=6144 OUTFIL FILES=1,BLKSIZE=6144, OMIT=(10,3,CH,EQ,C'HO ',OR, 10,3,CH,EQ,C'HXL',OR, 10,3,CH,EQ,C'MH ',OR, 10,3,CH,EQ,C'DF ',OR, 10,3,CH,EQ,C'FSQ',OR, 10,3,CH,EQ,C'BTO',OR, 10,3,CH,EQ,C'AP ',OR, 10,3,CH,EQ,C'AB ',OR, 10,3,CH,EQ,C'ABF') OUTFIL FILES=2,BLKSIZE=6144, INCLUDE=(10,3,CH,EQ,C'HO ',OR, 10,3,CH,EQ,C'HXL',OR, 10,3,CH,EQ,C'MH ',OR, 10,3,CH,EQ,C'DF ',OR, 10,3,CH,EQ,C'FSQ',OR, 10,3,CH,EQ,C'BTO',OR, 10,3,CH,EQ,C'AP ',OR, 10,3,CH,EQ,C'AB ',OR, 10,3,CH,EQ,C'ABF') OUTFIL FILES=3,BLKSIZE=6144, OMIT=(10,3,CH,EQ,C'XXX') END /* //
Return to the Sample Job Stream List