How to re-link RHDCLEFE
search cancel

How to re-link RHDCLEFE

book

Article ID: 29493

calendar_today

Updated On:

Products

IDMS IDMS - Database IDMS - ADS

Issue/Introduction

RHDCLEFE is a CA-IDMS module which provides for performance enhancement when running online dc-cobol programs under CA-IDMS/DC. The version that is provided at install time is linked with an LE-cobol CEEUOPT module which specifies cobol run-time options. It is not necessary to re-link RHDCLEFE with new options - the module provided can be used as is.

However, some clients may wish to use different LE-cobol run-time options, and this would require re-linking RHDCLEFE.

After making the appropriate changes to the CEEUOPT source module in the CAJGSRC install library member, use the following JCL to re-link RHDCLEFE.

//ASSEMBLY EXEC PGM=ASMA90
//SYSIN    DD DISP=SHR,DSN=your.idms.CAGJSRC(CEEUOPT)
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN   DD DISP=(,PASS),DSN=&&TEMPOBJ,UNIT=SYSDA,
//    SPACE=(TRK,(1,1,1)),DCB=(BLKSIZE=3120,LRECL=80,DSORG=PS)
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB
//         DD DISP=SHR,DSN=SYS1.AMODGEN
//         DD DISP=SHR,DSN=CEE.SCEEMAC
//LINKUOPT EXEC PGM=IEWL,
//    PARM='NCAL,RENT,LIST,XREF,LET,MAP,SIZE=(9999K,96K)'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSLMOD  DD DISP=SHR,DSN=your.idms.CUSTOM.LOADLIB
//OBJECT   DD DISP=(OLD,PASS),DSN=&&TEMPOBJ
//SYSLIN   DD  *
 INCLUDE OBJECT
 ENTRY CEEUOPT
 ORDER CEEUOPT
 NAME CEEUOPT(R)
//LINKLEFE EXEC PGM=IEWL,COND=(4,LT),
//    PARM='XREF,SIZE=(640K,160K),LET,RENT,REUS,REFR,NOTEST,MAP'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(1024,(50,20))
//         DD DDNAME=SYSIN
//CUSTLIB  DD DISP=SHR,DSN=your.idms.CUSTOM.LOADLIB
//CAGJLOAD DD DISP=SHR,DSN=your.idms.CAGJLOAD
//SYSLIB   DD DISP=SHR,DSN=CEE.SCEELKED
//SYSLMOD  DD DISP=SHR,DSN=your.idms.CUSTOM.LOADLIB
//SYSLIN   DD *
 INCLUDE CUSTLIB(CEEUOPT)
 INCLUDE CAGJLOAD(RHDCLEFE)
 MODE AMODE(ANY),RMODE(24)
 ENTRY LE370EPS
 NAME RHDCLEFE(R)

Note the following important points:-

1. All  instances of "your.idms" in the above JCL should be changed to your site-specific names.

2. In the final step, the INCLUDE of CEEUOPT must be before the INCLUDE of RHDCLEFE, otherwise the linkage editor will take its CEEUOPT from the copy which already exists in the RHDCLEFE load-module, and therefore the old module will still be used.

3. The resulting RHDCLEFE module should not be linked into CAGJLOAD, because that would overwrite the native version provided at installation. It should be linked in to either CUSTOM.LOADLIB or DBA.LOADLIB depending on the intended scope of its use.

Environment

Release: IDADSO00100-18.5-ADS-for CA-IDMS
Component: