z/OS Job Control Language › Compiling and Link Editing ETOTLOAD

Compiling and Link Editing ETOTLOAD

Use the following JCL to compile and link edit ETOTLOAD.

ETOTLOAD z/OS

//*************************************************************
//*  COBOL compile
//*************************************************************
//COMP     EXEC PGM=IKFCBL00,REGION=256K,
//         PARM='DECK,NOLOAD,NOLIB,BUF=50000,SIZE=150K,DMAP,PMAP'
//SYSPRINT DD SYSOUT=*
//SYSLIB   DD DSN=sys1.coblib,DISP=SHR
//SYSUT1   DD UNIT=disk,SPACE=(TRK,(10,5))
//SYSUT2   DD UNIT=disk,SPACE=(TRK,(10,5))
//SYSUT3   DD UNIT=disk,SPACE=(TRK,(10,5))
//SYSUT4   DD UNIT=disk,SPACE=(TRK,(10,5))
//SYSPUNCH DD DSN=&.&cob.,DISP=(NEW,PASS),UNIT=disk,
//            SPACE=(80,(400,40))
//SYSIN    DD DSN=user.etotload,DISP=SHR
//*************************************************************
//*  Link edit the object module created in the COBOL compile
//*************************************************************
//LINK     EXEC  PGM=HEWL,PARM='LIST,XREF,LET,SIZE=512K,96K)'
//SYSPRINT DD SYSOUT=*
//SYSLIB   DD DSN=sys1.coblib,DISP=SHR
//SYSUT1   DD UNIT=disk,SPACE=(TRK,(20,5))
//LIB      DD DSN=idms.loadlib,DISP=SHR
//SYSLMOD  DD DSN=idms.loadlib,DISP=SHR
//SYSLIN   DD DSN=&.&cob.,DISP=(OLD,DELETE)
//         DD DDNAME=SYSIN
//SYSIN    DD *
 MODE RMODE(24),AMODE(24)
 INCLUDE LIB(IDMSDBLU)
 INCLUDE LIB(IDMS)
 INCLUDE LIB(etotsubs)
 ENTRY etotload
 NAME etotload(R)

Specifying an Object Library in the LINK Step

In the LIB DD statement, you can specify a CA IDMS/DB object library rather than a load library. If you do this you must include the following statement as part of SYSIN for the LINK step:

INCLUDE LIB(IDMSCALC,IDMSUTIL,IDMSALIO)