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
Release : 19.0
Component : IDMS/DB
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.
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)
/*
//