* $$ JOB JNM=FZABW06J,USER='PMS...SARA' * $$ LST CLASS=Q,DISP=H,COPY=1,LST=SYSLST // JOB FZABW06J (BABSEXP2) CREATE NULL FILE FOR WTD EXPIRATIONS // OPTION LOG // ASSGN SYS002,SYSIPT // DLBL SORTOUT,'HOAB.SD.WTD.HO.EXPIRE.FILE',0,VSAM,CAT=VSAM05, - RECORDS=2000,RECSIZE=400 // EXEC SORT SORT FIELDS=COPY,EQUALS RECORD TYPE=F,LENGTH=80 INPFIL BLKSIZE=80 END /* <--- EMPTY SYS002 FILE // RESET SYS002 (SORTIN) // DLBL SORTIN1,'FPS.SYS.BFPW7050.PRINT.WORK.FILE',0,VSAM,CAT=WORK // ASSGN SYS001,X'01E' (SORTOUT) // EXEC SORT SORT FIELDS=(1,07,A),FORMAT=BI,WORK=1,FILES=1 RECORD TYPE=F,LENGTH=146 OUTFIL LRECL=146,LINES=55 END /* // ASSGN SYS001,SYSPCH // DLBL SORTIN1,'CLAIMS.BCLWW080.HELP.LOAD',,VSAM,CAT=WORK // EXEC SORT // SORT FIELDS=COPY,FORMAT=BI // RECORD TYPE=F,LENGTH=72 // INPFIL CRDSIZE=72 // OUTFIL PUNCH // END /* /& * $$ EOJ
Return to the Sample Job Stream List
//FZABW06J JOB (FZABW06J),' ', // 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 O VSAM05 'HOAB.SD.WTD.HO.EXPIRE.FILE' COPY //SORTOUT DD DSN=SFB8.HOAB.SD.WTD.HO.EXPIRE.FILE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(16,4),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY,EQUALS RECORD TYPE=F,LENGTH=80 *INPFIL BLKSIZE=80 END /* //* CD I SYS002 00C COPY //SORTIN DD * /* //* //* STEP0020 PGM=SORT //* //STEP0020 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD VS I WORKCAT SORTIN1 'FPS.SYS.BFPW7050.PRINT.WORK.FILE' //SORTIN DD DSN=FPS.SYS.BFPW7050.PRINT.WORK.FILE, // DISP=SHR //* PR O SYS001 01E //SORTOUT DD SYSOUT=* //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=(1,07,A),FORMAT=BI RECORD TYPE=F,LENGTH=146 OUTFIL LRECL=146,LINES=55 END /* //* //* STEP0030 PGM=SORT //* //STEP0030 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD VS I WORKCAT SORTIN1 'CLAIMS.BCLWW080.HELP.LOAD' COPY //SORTIN DD DSN=CLAIMS.BCLWW080.HELP.LOAD, // DISP=SHR //* CD O SYSPCH 00D COPY //SORTOUT DD SYSOUT=* //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY RECORD TYPE=F,LENGTH=72 * INPFIL CRDSIZE=72 * OUTFIL PUNCH END /* //
Return to the Sample Job Stream List