Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Appendix D Sample JCL for Batch Processing : Sample JCL for Batch Processing

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)

 
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

 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved