This is the JCL listing produced by JES when it combines your JCL with the JCL fetched from the BCOB procedure. This listing is produced by JES when it runs your job, and it prints on the default printer unless you code MSGCLASS to send it to some other printer or sysout queue. The actual JCL statements that you submitted to JES are listed with real slashes (e.g. "//") at the start. JCL from the BCOB procedure is listed with "XX" at the start. In cases where your JCL over-rides (replaces) a line from the BCOB procedure, the line from the procedure is preceded by the over-riding line and it starts with "X/", as in: 44 //COB.SYSIN DD * X/SYSIN DD DSN=&&COBSRC,DISP=(OLD,DELETE) The line starting with slashes is the JCL statement in the file you submitted. It shows that you asked to over-ride (replace) with your own JCL the DD statement for the DDname SYSIN in the BCOB procedure's internal step named COB. (Look for this step in the procedure listing!) Your input JCL line is listed first, and is followed by the matching line from the COB step of the BCOB procedure. The "X/" in front of the procedure's line indicates that this line from the procedure has been replaced by your line. In addition to over-riding DDnames in the procedure, the JES processor will perform variable substitutions in the JCL as it is copied. Variable names (IBM calls them "parameters") start with "&" in JCL. For example: 9 XXSYSUT1 DD DSN=&SYSIN(&CSECT),DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=EW.BATCH01.SOURCE(EW1BP50C),DISP=SHR This IEFC653I message (all IBM messages have numbers like this) follows a line in the BCOB procecure that has had some substitutions applied. The IEFC653I message shows the line after the substitutions for the two parameters have been applied. Example provided by Kevin Solomon. ----------------------------------------------------------------------------- 1 //EW1PCTST JOB 33300,'EW1PCTST COBOL II', // CLASS=T,MSGCLASS=X,USER=KXS134 /*JOBPARM ROOM=VB01,TIME=1,LINES=99 2 //PROCSJCL JCLLIB ORDER=(SXS0.PR.YEAR2001.GLOBAL.PROCLIB) 3 // EXEC PGM=BLOCKS,PARM='STATS/ŽDATE/ŽTIME' 4 //STEPLIB DD DSN=RUSE.UTIL.LOAD,DISP=SHR 5 //SYSPRINT DD SYSOUT=*,DCB=LINE121 //**** //* COMPILE STEP STARTS HERE 6 //COMPILE EXEC BCOB, // CSECT=EW1BP50C, // CPARM='DATA(31)', // SYSIN='EW.BATCH01.SOURCE', // SYSLIB1='EW.ONLINE01.COPYLIB', // SYSLMOD='EW.BATCH01.LOAD' XX********************************************************************* XX* PROCEDURE TO COMPILE AND LINK A BATCH IBM COBOL FOR MVS MODULE XX********************************************************************* 7 XXBCOB PROC SYSIN='NOT-SPECIFIED', ** INPUT SOURCE PDS XX CSECT=, ** MEMBER NAME XX SYSLMOD='NOT-SPECIFIED', ** OUTPUT LOAD PDS XX SYSCLIB='SYSP.CICS.UR.SDFHCOB', ** CICS LIBRARY DFHEIBLK XX SLIB0='SXS0.UA.SYSALL.GLOBAL.STAGE1.IDDCOPY', XX SLIB1='SYSP.NULL.SOURCE', ** ENDEVOR XX SLIB2='IT0.SYSALL.GLOBAL.IDDCOPY', ** ENDEVOR XX SLIB3='QA0.SYSALL.GLOBAL.IDDCOPY', ** IDDCOPY XX SLIB4='PROD0.SYSALL.GLOBAL.IDDCOPY', ** AND XX SLIB5='SXS0.UA.SYSALL.GLOBAL.STAGE1.COPYBOOK', ** COPYBOOK XX SLIB6='SYSP.NULL.SOURCE', ** LIBRARIES XX SLIB7='IT0.SYSALL.GLOBAL.COPYBOOK', ** LIBRARIES XX SLIB8='QA0SUB.SYSALL.GLOBAL.COPYBOOK', XX SLIB9='QA0.SYSALL.GLOBAL.COPYBOOK', ** XX SLIBA='PROD0.SYSALL.GLOBAL.COPYBOOK', ** XX SYSLIB1='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX SYSLIB2='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX SYSLIB3='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX SYSLIB4='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX SYSLIB5='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX SYSLIB6='SYSP.NULL.SOURCE', ** USER COMPILE SYSLIB XX CPARM=, ** COMPILE PARM XX LPARM='AMODE=31,RMODE=ANY' ** LINK PARM XX********************************************************************* XX* COPY SOURCE INPUT TO TEMPORARY DATASET XX********************************************************************* 8 XXGENER EXEC PGM=FASTGENR 9 XXSYSUT1 DD DSN=&SYSIN(&CSECT),DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=EW.BATCH01.SOURCE(EW1BP50C),DISP=SHR 10 XXSYSUT2 DD DSN=&&COBSRC,DISP=(,PASS,DELETE), XX UNIT=SYSDA,SPACE=(CYL,(1,1)), XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440) 11 XXSYSPRINT DD DUMMY 12 XXSYSIN DD DUMMY XX********************************************************************* XX* EXECUTE IBM COBOL FOR MVS AND VM COMPILER XX********************************************************************* 13 XXCOB EXEC PGM=IGYCRCTL,COND=(0,LT,GENER), XX PARM=(SSRANGE,DATA(24),&CPARM) IEFC653I SUBSTITUTION JCL - PGM=IGYCRCTL,COND=(0,LT,GENER),PARM=(SSRANGE,DATA(24),DATA(31)) 14 XXSTEPLIB DD DSN=SYSP.HOST.NULLOAD,DISP=SHR 15 XX INCLUDE MEMBER=SYIGY00 XX* ADDED TO MASTER JCLLIB 110697 * SWCLASS * XX* REVISED TO VERSION V1R2M1 280300 * SWCLASS * XX* REVISED TO VERSION V2R1M1 010600 * SWCLASS * 16 XX DD DISP=SHR,DSN=SYSP.IGY.V2R1M0.SIGYCOMP 17 XXSYSLIB DD DSN=&SYSLIB1,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=EW.ONLINE01.COPYLIB,DISP=SHR 18 XX DD DSN=&SYSLIB2,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 19 XX DD DSN=&SYSLIB3,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 20 XX DD DSN=&SYSLIB4,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 21 XX INCLUDE MEMBER=SYNDVRA5 22 XX DD DSN=SYSP.TSS.QA.TSSOPMAT,DISP=SHR 23 XX INCLUDE MEMBER=SYNDVRA6 24 XX DD DSN=SYSP.TSS.V5R0M0.TSSOPMAT,DISP=SHR 25 XX DD DSN=&SLIB0,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SXS0.UA.SYSALL.GLOBAL.STAGE1.IDDCOPY,DISP=SHR 26 XX DD DSN=&SLIB1,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 27 XX DD DSN=&SLIB2,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=IT0.SYSALL.GLOBAL.IDDCOPY,DISP=SHR 28 XX DD DSN=&SLIB3,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=QA0.SYSALL.GLOBAL.IDDCOPY,DISP=SHR 29 XX DD DSN=&SLIB4,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=PROD0.SYSALL.GLOBAL.IDDCOPY,DISP=SHR 30 XX DD DSN=&SLIB5,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SXS0.UA.SYSALL.GLOBAL.STAGE1.COPYBOOK,DISP=SHR 31 XX DD DSN=&SLIB6,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 32 XX DD DSN=&SLIB7,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=IT0.SYSALL.GLOBAL.COPYBOOK,DISP=SHR 33 XX DD DSN=&SLIB8,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=QA0SUB.SYSALL.GLOBAL.COPYBOOK,DISP=SHR 34 XX DD DSN=&SLIB9,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=QA0.SYSALL.GLOBAL.COPYBOOK,DISP=SHR 35 XX DD DSN=&SLIBA,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=PROD0.SYSALL.GLOBAL.COPYBOOK,DISP=SHR 36 XX INCLUDE MEMBER=SYMQS21 XX* ADDED TO MASTER JCLLIB 07APR00 XX* UPGRADE MQN1 TO V2.1 27MAY00 XX* DD DISP=SHR,DSN=SYSP.MQS.V210.SCSQMACS 37 XX DD DISP=SHR,DSN=SYSP.MQS.V2R1M0.SCSQCOBC XX* DD DISP=SHR,DSN=SYSP.MQS.V210.SCSQPLIC 38 XX INCLUDE MEMBER=SYCEE03 XX* ADDED TO MASTER JCLLIB 03JUN97 * SWCLASS * 39 XX DD DSN=SYSP.CEE.V2R8M0.SCEESAMP,DISP=SHR 40 XX DD DSN=&SYSCLIB,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.CICS.UR.SDFHCOB,DISP=SHR 41 XX DD DSN=&SYSLIB5,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 42 XX DD DSN=&SYSLIB6,DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=SYSP.NULL.SOURCE,DISP=SHR 43 XXSYSLIN DD DSN=&&OBJECT,DISP=(,PASS),UNIT=SYSDA, XX DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB),SPACE=(CYL,(1,1)) 44 //COB.SYSIN DD * X/SYSIN DD DSN=&&COBSRC,DISP=(OLD,DELETE) 45 XXSYSIN1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 46 XXSYSIN2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 47 XXSYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 48 XXSYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 49 XXSYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 50 XXSYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 51 XXSYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 52 XXSYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 53 XXSYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 54 XXSYSPRINT DD SYSOUT=* XX********************************************************************* XX* LINKAGE EDITOR TO CREATE AN EXECUTABLE LOAD MODULE XX********************************************************************* 55 XXLKED EXEC PGM=HEWL, XX COND=((0,LT,GENER),(8,LE,COB)), XX PARM=(RENT,LIST,LET,XREF,'&LPARM') IEFC653I SUBSTITUTION JCL - PGM=HEWL,COND=((0,LT,GENER),(8,LE,COB)),PARM=(RENT,LIST,LET,XREF,'AMODE=31,RMODE=ANY') 56 XXSYSPRINT DD SYSOUT=* 57 XXSYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 58 XXSYSLIB DD DSN=PROD0.DUMMY,DISP=SHR 59 XX INCLUDE MEMBER=SYCEE01 XX* ADDED TO MASTER JCLLIB 03JUN97 * SWCLASS * 60 XX DD DSN=SYSP.CEE.V2R8M0.SCEELKED,DISP=SHR 61 XX INCLUDE MEMBER=SYCAPC00 XX* NETRON/CAP V208 ADDED 250697 SWADPM 62 XX DD DISP=SHR,DSN=SYSP.NETRON.V208.CICSLOAD 63 XX INCLUDE MEMBER=SYCAPL00 XX* NETRON/CAP V208 ADDED 250697 SWADPM 64 XX DD DISP=SHR,DSN=SYSP.NETRON.V208.LOAD 65 XX INCLUDE MEMBER=SYNDVRA4 66 XXMQAPI DD DSN=HD.PROD.LOAD,DISP=SHR 67 //LKED.SYSLMOD DD DSN=EW.BATCH01.LOAD(EW1PCTST) X/SYSLMOD DD DSN=&SYSLMOD(&CSECT),DISP=SHR IEFC653I SUBSTITUTION JCL - DSN=EW.BATCH01.LOAD(EW1BP50C),DISP=SHR 68 XXSYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 69 XX DD DDNAME=SYSIN XX********************************************************************* XX* END OF BCOB PROCEDURE XX********************************************************************* //* LINK EDIT STEP STARTS HERE 70 //LKED.SYSIN DD * //*--- //* GO STEP STARTS HERE 71 //RUNPROG EXEC PGM=EW1PCTST 72 //STEPLIB DD DSN=EW.BATCH01.LOAD,DISP=SHR 74 //OUTRECS DD DSN=KXS134.EW1PCTST.FIVE,DISP=(NEW,CATLG), // UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE) 75 //INRECS DD * 76 //