UCFTSO abends with 4008 in r18.0+ with clist that worked in prior release
search cancel

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


Article ID: 21292


Updated On:




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





CA IDMS r18.0 or higher running on any supported z/OS level.


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.


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, you will need to add CUSTOM.LOADLIB to it.
Some sites prefer not to use CUSTOM.LOADLIB and instead copy its contents into either DBA.LOADLIB or CAGJLOAD. If you do this, then no changes are needed to your 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:

CONTROL LIST MSG                                                  
ALLOC F(SYSCTL) DA('your.idms.SYSCTL') SHR             
                     '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).

Additional Information

DocOps sections TSO Access and  ABND4008