* $$ JOB JNM=AJ10J154,DISP=D HISTORY SCHD FILE MAINT * $$ LST LST=00E,CLASS=Y,DISP=D,FNO=LNDD,JSEP=1,COPY=2,RBS=0020 // JOB AJ10J154 HISTORY SCHD FILE MAINT // OPTION PARTDUMP * IPCBTCH CLOSE VSAM FILES STEP 1 OF 9 // EXEC IPCPBTCH CLOS DB CSCH /* // ASSGN SYSLST,IGN // RESET SYSLST // DLBL CSCH, 'CSCH.DP.COMPUTER.SCHD.SYSTEM.C', , VSAM, CAT=DOSCAT // DLBL SORTOUT, ' ==AJ99TAP-01',99/364 // EXTENT SYS051,SISWK3,1,0,1,126 * SORT STEP 2 OF 9 // EXEC SORT,SIZE=192K OPTION PRINT=CRITICAL,FILNM=(,CSCH),SORTIN=(047) SORT FIELDS=(1,1,CH,A,21,6,CH,A,3,10,CH,A) RECORD TYPE=F,LENGTH=(126) <=== SHOULD BE (126,,90) INPFIL VSAM OUTREC FIELDS=(27,90) OUTFIL BLKSIZE=9000 OMIT COND=(1,1,CH,EQ,C'H') END /* // DLBL INF,' ==AJ99TAP-01',99/364 // EXTENT SYS051,SISWK3,1,0,1,96 // DLBL OFA,'DAILY.COMPUTER.SCHEDULE',99/364 // EXTENT SYS020,DOSPOL,1,0,1,15 * QUKBJOB1 (I,C,L,R) STEP 3 OF 9 // EXEC QUKBJOB OPTION SEQCHK=NO LINECOUNT NONE INFSD7C90000090SSYS051 OFASD7C90000090SSYS020 010 GET INF 060 MOVE INF1-90 TO OFA1-90 070 WRITE OFA 080 GOTO 010 999 END /* // ASSGN SYS001,SYS020 // DLBL SORTOUT,' ==AJ99TAP-02',99/364 // EXTENT SYS051,SISWK3,1,0,1,126 * SORT STEP 4 OF 9 // EXEC SORT,SIZE=192K OPTION PRINT=CRITICAL,FILNM=(,CSCH),SORTIN=(047) SORT FIELDS=(21,6,CH,A,3,10,CH,A) RECORD TYPE=F,LENGTH=(126) <=== SHOULD BE (126,,90) INPFIL VSAM OUTREC FIELDS=(27,90) OUTFIL BLKSIZE=9000 OMIT COND=(1,1,CH,NE,C'H') END // DLBL INF,' ==AJ99TAP-02',99/364 // EXTENT SYS051,SISWK3,1,0,1,96 // DLBL OFA,'HISTORY.MASTER.FILE',99/364 // EXTENT SYS020,DOSPOL,1,0,1,10 * QUKBJOB1 (I,C,L,R) STEP 5 OF 9 // EXEC QUKBJOB OPTION SEQCHK=NO LINECOUNT NONE INFSD7C90000090SSYS051 OFASD7C90000090SSYS020 010 GET INF 060 MOVE INF1-90 TO OFA1-90 070 WRITE OFA 080 GOTO 010 999 END /* // ASSGN SYSLST,IGN /* * IPCBTCH OPEN VSAM FILES STEP 6 OF 9 // EXEC IPCPBTCH OPEN DB CSCH /* // ASSGN SYSLST,IGN /* // RESET SYSLST * ASSGN SYS020,SYS008 // DLBL HISTAP,'HISTORY.MASTER.FILE',99/364 // EXTENT SYS020,DOSPOL,1,0,1,10 * AI9927 STEP 7 OF 9 // EXEC AI9927 // ASSGN SYS002,SYS050 // ASSGN SYS001,SYS050 // DLBL SORTIN1,'HISTORY.MASTER.FILE',99/364 // EXTENT SYS002,DOSPOL,1,0,1,10 // DLBL SORTOUT,' ==SRTDHIST',99/364 // EXTENT SYS050,SISWK2,1,0,1,10 * SORT STEP 8 OF 9 // EXEC SORT,SIZE=192K OPTION CENTWIN=71 SORT FIELDS=(71,16,CH,A) RECORD TYPE=F,LENGTH=90 INPFIL BLKSIZE=9000 OUTFIL BLKSIZE=1800 END // ASSGN SYS020,SYS050 // DLBL HISTAP,' ==SRTDHIST',99/364 // EXTENT SYS050,SISWK2,1,0,1,10 * AI9928 STEP 9 OF 9 // EXEC AI9928 /* // ASSGN SYSLST,IGN // RESET SYSLST * DYNUTIL DELETES // EXEC DYNUTIL DELETE POOL=SISWK2 ' ==SRTDHIST' PARTIAL /* // RESET SYSLST /& * $$ EOJ
Return to the Sample Job Stream List
//AJ10J154 JOB (AJ10J154),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* IPCBTCH CLOSE VSAM FILES STEP 1 OF 9 //* //* STEP0010 PROC=MTPBATCH IPCPBTCH //* //STEP0010 EXEC PROC=MTPBATCH //* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP //* PR O //SYSPRINT DD SYSOUT=* //* CD I SYSIPT 00C //SYSIN DD * CLOS CSCH /* //* //* SORT STEP 2 OF 9 //* //* STEP0020 PGM=SORT //* //STEP0020 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* VS VS I DOSCAT CSCH 'CSCH.DP.COMPUTER.SCHD.SYSTEM.C' //SORTIN DD DSN=CSCH.DP.COMPUTER.SCHD.SYSTEM.C, // DISP=SHR //* SD O SYS001 UA ' ==AJ99TAP-01' //SORTOUT DD DSN=BCC.AJ99TAP.F01(+1), // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(126,31),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * *OPTION PRINT=CRITICAL,FILNM=(,CSCH),SORTIN=(047) SORT FIELDS=(1,1,CH,A,21,6,CH,A,3,10,CH,A) RECORD TYPE=F,LENGTH=(126) <=== SHOULD BE (126,,90) *INPFIL VSAM OUTREC FIELDS=(27,90) *OUTFIL BLKSIZE=9000 OMIT COND=(1,1,CH,EQ,C'H') END /* //* //* QUKBJOB1 (I,C,L,R) STEP 3 OF 9 //* //* STEP0030 PGM=SORT QUKBJOB //* //STEP0030 EXEC PGM=SORT //* MODULE QUKBJOB PROCESSED BY PLUG-IN LCPQJB //* SD I SYS051 UA INF ' ==AJ99TAP-01' //SORTIN DD DSN=BCC.AJ99TAP.F01(+1), // DISP=OLD //* SD O SYS020 UA OFA 'DAILY.COMPUTER.SCHEDULE' //SORTOUT DD DSN=BCC.DAILY.COMPUTER.SCHEDULE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(15,3),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY /* //* //* SORT STEP 4 OF 9 //* //* STEP0040 PGM=SORT //* //STEP0040 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* VS VS I DOSCAT S CSCH 'CSCH.DP.COMPUTER.SCHD.SYSTEM.C' //SORTIN DD DSN=CSCH.DP.COMPUTER.SCHD.SYSTEM.C, // DISP=SHR //* SD O SYS001 UA ' ==AJ99TAP-02' //SORTOUT DD DSN=BCC.AJ99TAP.F02, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(126,31),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * *OPTION PRINT=CRITICAL,FILNM=(,CSCH),SORTIN=(047) SORT FIELDS=(21,6,CH,A,3,10,CH,A) RECORD TYPE=F,LENGTH=(126) <=== SHOULD BE (126,,90) *INPFIL VSAM OUTREC FIELDS=(27,90) *OUTFIL BLKSIZE=9000 OMIT COND=(1,1,CH,NE,C'H') END /* //* //* QUKBJOB1 (I,C,L,R) STEP 5 OF 9 //* //* STEP0050 PGM=SORT QUKBJOB //* //STEP0050 EXEC PGM=SORT //* MODULE QUKBJOB PROCESSED BY PLUG-IN LCPQJB //* SD I SYS051 UA INF ' ==AJ99TAP-02' //SORTIN DD DSN=BCC.AJ99TAP.F02, // DISP=OLD //* SD O SYS020 UA OFA 'HISTORY.MASTER.FILE' //SORTOUT DD DSN=MVS.HISTORY.MASTER.FILE, // DISP=(NEW,CATLG,DELETE), // DATACLAS=SMALL, // SPACE=(TRK,(10,2),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY /* //* //* IPCBTCH OPEN VSAM FILES STEP 6 OF 9 //* //* STEP0060 PROC=MTPBATCH IPCPBTCH //* //STEP0060 EXEC PROC=MTPBATCH //* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP //* PR O //SYSPRINT DD SYSOUT=* //* CD I SYSIPT 00C //SYSIN DD * OPEN CSCH /* //* //* ASSGN SYS020,SYS008 //* AI9927 STEP 7 OF 9 //* //* STEP0070 PGM=AI9927 //* //STEP0070 EXEC PGM=AI9927 //* SD I 'HISTORY.MASTER.FILE' //HISTAP DD DSN=MVS.HISTORY.MASTER.FILE, // DISP=SHR //SYSOUT INCLUDE MEMBER=SYSOUT //* CD I //SYSIN DD * /* //* //* SORT STEP 8 OF 9 //* //* STEP0080 PGM=SORT //* //STEP0080 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD I SYS002 UA SORTIN1 'HISTORY.MASTER.FILE' //SORTIN DD DSN=MVS.HISTORY.MASTER.FILE, // DISP=SHR //* SD O SYS001 UA ' ==SRTDHIST' //SORTOUT DD DSN=BCC.SRTDHIST, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(10,2),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * OPTION CENTWIN=71 SORT FIELDS=(71,16,CH,A) RECORD TYPE=F,LENGTH=90 *INPFIL BLKSIZE=9000 *OUTFIL BLKSIZE=1800 END /* //* //* AI9928 STEP 9 OF 9 //* //* STEP0090 PGM=AI9928 //* //STEP0090 EXEC PGM=AI9928 //* SD I ' ==SRTDHIST' //HISTAP DD DSN=BCC.SRTDHIST, // DISP=OLD //SYSOUT INCLUDE MEMBER=SYSOUT //* CD I //SYSIN DD * /* //* //* DYNUTIL DELETES //* //* --> PGM=DYNUTIL <-- DELETED //* //SCRATCH EXEC PGM=IEFBR14 //* //DEL001 DD DSN=BCC.AJ99TAP.F02,DISP=(MOD,DELETE) //DEL002 DD DSN=BCC.SRTDHIST,DISP=(MOD,DELETE) //
Return to the Sample Job Stream List