CA IDMS invoking task LOOK PROGRAM=IDMSCTAB and LOOK PROGRAM=IDMSUTAB fail with error message:
IDMSLOOK - Failed Trying To Load Module IDMSCTAB - Reason Code 16
Release : 19.0
Component : CA IDMS/DB
These programs are loaded at startup by IDMS and are pointed to by the CSA but there is no address in the PDE.
Since these are nucleus modules, they are not overlayable so LOOK cannot load a separate copy.
The way to get around this is to run IDMSLOOK in batch, it will be able to load the module in batch.
Sample JCL:
//IDMSLOOK EXEC PGM=IDMSLOOK,REGION=4096K
//STEPLIB DD DSN=idms.dba.loadlib,DISP=SHR
// DD DSN=idms.custom.loadlib,DISP=SHR
// DD DSN=idms.cagjload,DISP=SHR
//SYSPCH DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSIDMS DD *
Insert SYSIDMS parameters
/*
//SYSIPT DD *
PROGRAM=IDMSCTAB
PROGRAM=IDMSUTAB
/*
IDMSLOOK will only display the RMID and date and time compiled:
IDMSUTAB was loaded From STEPLIB DSN --> IDMS.TEST.CAGJLOAD
Entry Point Offset +B0 - Reentrant - AMODE 31 - RMODE ANY
696 Bytes in Load Module IDMSUTAB loaded at 3B00A680
Module Offset Date Time FMID RMID
IDMSUTAB +0 140806 1553 CAGJJ00 RESERVE
To obtain the actual source statements used in the assembly there are 2 programs available to decompile the load module:
Sample JCL:
//IDMSCTAD EXEC PGM=IDMSCTAD,REGION=4096K
//STEPLIB DD DSN=idms.dba.loadlib,DISP=SHR
// DD DSN=idms.custom.loadlib,DISP=SHR
// DD DSN=idms.cagjload,DISP=SHR
//SYSPCH DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSIDMS DD *
Insert SYSIDMS parameters
/*
//IDMSUTAD EXEC PGM=IDMSUTAD,REGION=4096K
//STEPLIB DD DSN=idms.dba.loadlib,DISP=SHR
// DD DSN=idms.custom.loadlib,DISP=SHR
// DD DSN=idms.cagjload,DISP=SHR
//SYSPCH DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSIDMS DD *
Insert SYSIDMS parameters
/*
See the IDMS reference 19.0 documentation sections Recreate the DCMT Command Activity Assignments (CTAB), Recreate the Utility Command Assignments (UTAB) and IDMSLOOK