Sample JCL for Batch Processing This appendix includes samples of the three JCL members referenced in Chapter 2, Preparing For Promotions: • @SCHEDULEMODEL (MVS, APPLY_CHANGE) • @SCHEDULEMODEL (MVS, APPLY_PROM) • @SCHEDULEMODEL, (MVS, PROM_ALLOC) @SCHEDULEMODEL (MVS, APPLY_CHANGE) BROWSING TABLE : @SCHEDULEMODEL(MVS,APPLY_CHANGE) COMMAND ==> SCROLL: P NUMBER CARD _ ---------------------------------------------------------------------------- _ 10 // {USERID} JOB (‘{USERID}’),’APPLY CHANGE {USERID}’, _ 20 // NOTIFY={USERID}, _ 30 // MSGCLASS={CLASS}, _ 40 // REGION=4096K, _ 50 // MSGLEVEL=(1,1), _ 60 // TIME=10 _ 70 /*JOBPARM SYSAFF=* _ 80 /*ROUTE PRINT {PRINTDEST} _ 90 //OSB EXEC PGM=S6BBATCH,REGION=4096K, _ 100 //HRNIN DD * _ 110 {BROWSE}, _ 120 {TEST}, _ 130 CHARSET={CHARSET}, _ 140 INSTLIB={INSTLIB}, _ 150 MDL={MDL}, _ 160 OFFLINE, _ 170 PASSWORD={PASSWORD} _ 180 RULE={RULE}({PARM}), _ 190 TDS={TDS}, _ 200 USERID={USERID} _ 210 /* _ 220 //STEPLIB DD DSN=$HLQNONV$.$INSTVER$.LOAD,DISP=SHR _ 230 //HRNEXTR DD DSN=$HLQNONV$.$INSTVER$.LOAD,DISP=SHR _ 240 //HRNOUT DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 250 COPIES={COPIES} _ 260 //SYSUDUMP DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 270 HOLD=YES, _ 280 COPIES={COPIES} _ 290 //HRNPRNT DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 300 COPIES={COPIES} PFKEYS: 1=HELP 5=FIND NEXT 9=RECALL 18=EXCLUDE 13=PRINT 3=END 14=EXPAND @SCHEDULEMODEL (MVS, APPLY_PROM) BROWSING TABLE : @SCHEDULEMODEL(MVS,APPLY_PROM) COMMAND ==> SCROLL: P NUMBER CARD _ ---------------------------------------------------------------------------- _ 10 // {USERID} JOB (‘{USERID}’),’APPLY PROM {USERID}’, _ 20 // NOTIFY={USERID}, _ 30 // MSGCLASS={CLASS}, _ 40 // REGION=4096K, _ 50 // MSGLEVEL=(1,1), _ 60 // TIME=10 _ 70 /*JOBPARM SYSAFF=* _ 80 /*ROUTE PRINT {PRINTDEST} _ 90 //HURON EXEC PGM=S6BBATCH,REGION=4096K, _ 100 //HRNIN DD * _ 110 {BROWSE}, _ 120 {TEST}, _ 130 CHARSET={CHARSET}, _ 140 INSTLIB={INSTLIB}, _ 150 MDL={MDL}, _ 160 OFFLINE, _ 170 PASSWORD={PASSWORD} _ 180 RULE={RULE}({PARM}), _ 190 TDS={TDS}, _ 200 USERID={USERID} _ 210 /* _ 220 //STEPLIB DD DSN=$HLQNONV$.$INSTVER$.LOAD,DISP=SHR _ 230 //HRNEXTR DD DSN=$HLQNONV$.$INSTVER$.LOAD,DISP=SHR _ 240 //HRNOUT DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 250 COPIES={COPIES} _ 260 //SYSUDUMP DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 270 HOLD=YES, _ 280 COPIES={COPIES} _ 290 //HRNPRNT DD SYSOUT=({CLASS},{XWTR},{FORM},UCS={UCS},FCB={FCB}), _ 300 COPIES={COPIES} PFKEYS: 1=HELP 5=FIND NEXT 9=RECALL 18=EXCLUDE 13=PRINT 3=END 14=EXPAND @SCHEDULEMODEL (MVS, PROM_ALLOC) BROWSING TABLE : @SCHEDULEMODEL(MVS,APPLY_ALLOC) COMMAND ==> SCROLL: P NUMBER CARD _ ---------------------------------------------------------------------------- _ 10 // {USERID}A JOB (‘ {USERID} ’), _ 20 // ‘PROM_ALLOC ‘, _ 30 // NOTIFY={USERID}, _ 40 // MSGCLASS={CLASS}, _ 50 // REGION=4096K, _ 60 // MSGLEVEL=(1,1), _ 70 // TIME=10 _ 80 /*ROUTE PRINT {PRINTDEST} _ 90 //* _ 100 //ALLOCAT PROC DSNAME=’’ _ 110 //ALLOCAT EXEC PGM=IEFBR14 _ 120 //* _ 130 //ALLOC1 DD DSN=&DSNAME,DISP=(NEW,CATLG),UNIT=SYSDA, _ 140 // DCB=(RECFM=VB,LRECL=2250,BLKSIZE=6160,DSORG=PO), _ 150 // SPACE=(TRK,(10,10,15)),VOL=SER= _ 160 // PEND _ 220 //* _ 230 //* START_PARM THE CHANGE NUMBER IS PASSED AUTOMATICALLY BELOW. _ 240 //ALLOCAT EXEC ALLOCAT,DSNAME=’OSB.DV0000.UPGRADE’ >MUST CONFORM _ 250 //ALLOCAT EXEC ALLOCAT,DSNAME=’OSB.CH0000.UPGRADE’ >TO TABLE _ 260 //ALLOCAT EXEC ALLOCAT,DSNAME=’OSB.BK0000.UPGRADE’ >@PROM_CONSTANTS _ 270 //ALLOCAT EXEC ALLOCAT,DSNAME=’HUR20.BK3649.UPGRADE’ PFKEYS: 1=HELP 5=FIND NEXT 9=RECALL 18=EXCLUDE 13=PRINT 3=END 14=EXPAND