U3941 after modifying RHDCSRTT #SECRTT SVCNUM NOT SPECIFIED message

book

Article ID: 242033

calendar_today

Updated On:

Products

IDMS

Issue/Introduction

After updating the RHDCSRTT module and restarting the CV, it fails with the following messages and abends with a U3941:

CA IDMS - #SECRTT SVCNUM NOT SPECIFIED - S200 ABEND WILL OCCUR

  USER COMPLETION CODE=3941                                                   

IEF450I IDMS RHDCOMVS - ABEND=S000 U3941 REASON=00000000      

Cause

A U3941 abend  means a bad version of the RHDCSRTT module was loaded. The description of the U3941  abend is: 

Reason:
A bad version of RHDCSRTT module has been loaded. Recompile RHDCSRTT with the IDMS macro library from the current release.

If the SVCNUM has correctly been coded, then this can be caused by assembling RHDCSRTT with previous release macros or by not specifying the correct entry point int he linkedit step.

Environment

Release : 19.0

Component : IDMS/DB

Resolution

Ensure the assembly step is using current 19.0 release CAGJMAC library.

In the link step check that  ENTRY SRTTEP1 has been specified. 

The JCL to assemble and link RHDCSRTT is in CAGJSAMP member RHDCSRTT, also see below for the JCL.

// JOB                                                              
//*                                                                 
//******************************************************************
//*   DESCRIPTION:                                                 *
//*                                                                *
//*   SAMPLE JOB CONTROL WHICH MAY BE USED TO ASSEMBLE AND LINK    *
//*   A CUSTOMIZED RHDCSRTT MODULE.                                *
//*                                                                *
//*   A SAMPLE RHDCSRTT PROGRAM CAN BE FOUND IN YOUR CAGJSRC       *
//*   LIBRARY.                                                     *
//*                                                                *
//*   REFERENCE DOCUMENT:                                          *
//*                                                                *
//*   CA IDMS SECURITY ADMINISTRATION GUIDE                        *
//******************************************************************
//*                                                                 
//RHDCSRTT  EXEC HLASMCL                                            
//C.SYSLIB  DD DISP=SHR,DSN=<SYSTEM.MACLIB>                         
//          DD DISP=SHR,DSN=<SYSTEM.MODGEN>                         
//          DD DISP=SHR,DSN=<CAIDMS.CAGJMAC>                        
//          DD DISP=SHR,DSN=<CA.COMMON.SERVICE.MACLIB>              
//C.SYSIN   DD *                                                    
* YOUR RHDCSRTT SOURCE CODE GOES HERE                               
/*                                                                  
//*                                                                 
//L.SYSLMOD DD DISP=SHR,DSN=<YOUR.CUSTOM.LOADLIB>                   
//L.SYSIN   DD *                                                    
 SETOPT PARM(REUS(REFR))                                            
 ORDER   RHDCSRTT                                                   
 ENTRY   SRTTEP1                                                    
 NAME    RHDCSRTT(R)                                                
/*                                                                  
//