4008 abend in UCFTSO in r18.0+ with clist that worked in prior release

Products

• IDMS
• IDMS - Database

Issue/Introduction

Running a UCFTSO  (RHDCUCFT)  clist to access the IDMS central version is failing with a 4008 abend code.

 

 

 

Environment

Release: All supported releases.

Cause

This problem is most likely to happen from r18.0 upwards due to the introduction of the CUSTOM.LOADLIB. Most likely the same clist would have worked in prior releases. The 4008 abend code means that the RHDCCODE load module cannot be found. RHDCCODE is in the CUSTOM.LOADLIB. The abend occurs because the CUSTOM.LOADLIB has not been defined to the clist.
Other abend codes are possible, depending on the module that is missing. Abend codes 3905, 4010 and 4012 are also possible.

Resolution

To resolve the problem add the CUSTOM.LOADLIB to the CDMSLIB concatenation of the UCFTSO clist.

Many different configurations of TSO clist statements can be used to run UCFTSO, but the most common variety allocates a CDMSLIB ddname. Prior to r18.0, the CDMSLIB defined to the UCFTSO clist contained the DBA.LOADLIB and the base software library now called CAGJLOAD. As of r18.0, a new loadlib was introduced called CUSTOM.LOADLIB. Typically, it contains all modules which need to be customized and are site-specific. CUSTOM.LOADLIB is required by all batch jobs and UCFTSO.

If the UCFTSO clist allocates CDMSLIB, it must include CUSTOM.LOADLIB. Some sites prefer not to use CUSTOM.LOADLIB and instead copy its contents into either DBA.LOADLIB or CAGJLOAD. With this in place, then no changes are needed to the UCFTSO clist. Note also that it is not enough to have the CUSTOM.LOADLIB in the target CV’s CDMSLIB concatenation. It must also be present in the CDMSLIB defined to the clist. 

If the UCFTSO clist does not allocate a CDMSLIB, then the CALL statement must reference a library which includes all of the modules referenced collectively in the CDMSLIB.

Sample clist changes required:

FREE  FI(CDMSLIB SYSCTL)
CONTROL LIST MSG
ALLOC F(SYSCTL) DA('your.idms.SYSCTL') SHR
ALLOC F(CDMSLIB)  DA('your.idms.DBA.LOADLIB', -
                     'your.idms.CUSTOM.LOADLIB', -
                     'your.idms.CAGJLOAD') SHR
CALL 'your.idms.CAGJLOAD(RHDCUCFT)'
FREE F(SYSCTL CDMSLIB)

A sample UCFTSO clist can be found in the install library member *.CUSTOM.SRCLIB(UCFTSO).