Return to the Sample Job Stream List

AJ10J154 Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

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