LOOK IDMSCTAB IDMSUTAB Failed Trying To Load Module Reason Code 16

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

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

 

 

Environment

Release : 19.0

Component : CA IDMS/DB

Resolution

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:

• IDMSCTAD to decompile IDMSCTAB
• IDMSUTAD to decompile IDMSUTAB

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
/*

Additional Information

See the IDMS reference 19.0 documentation sections Recreate the DCMT Command Activity Assignments (CTAB), Recreate the Utility Command Assignments (UTAB) and IDMSLOOK