IDMS

Anyone use IDMSUTIO with r180?

We are testing an old old CAS program that uses IDMSUTIO, and we are not getting a good
status good back. The program works fine with r170.

1000-INITIALIZATION SECTION.

DISPLAY ' IDMSUTIO: - OPENIN-F SYSIPT'
**OPEN SYSIPT FILE - USED FOR INPUT PARAMETER CARDS -
CALL 'IDMSUTIO' USING OPENIN-F, IO-STATUS, F-SYSIPT.
IF NOT S-OK
MOVE 12 TO RETURN-CODE-WS
DISPLAY ' IDMSUTIO: - ABORT-F'
CALL 'IDMSUTIO' USING ABORT-F, RETURN-CODE-WS. <<<<we getting here.
**OPEN ERROR MESSAGE FILE -
OPEN OUTPUT MSG-PRT-FL.


Is the idmsutio module new for r180? I'm confussed what the conversion guide
is telling me.

ie
New version of IDMSUTIO
New 12.0 version of IDMSUTIO

If any of your batch programs are linked with IDMSUTIO to make use of file
I/O routines, you must relink the program with the 12.0 version of IDMSUTIO.

If you use IDMSUTIO for DBNAME and DBNODE processing, relink the program
without IDMSUTIO and remove the parameters from the SYSIPT file. Specify
DBNAME and DBNODE parameters using the SYSIDMS parameter file.

In past releases we have used a smp/e usermod to link IDMSUTIO & IDMS together. This usermod was created long long a ago and no one around here remembered why we used it. The doco in the usermod just said so idmsutio could be called dynamically. With r180 we decided to go with the delivered code, which we found out does not work, our programs abended with a NOCV status from IDMSUTIO. As a guess I linked them back together for r180 and our program began working again.

I contacted ca here is their more technical answer:

If IDMSUTIO or a module containing it is not loaded by an IDMS Loader, the
CSA address is not put in the module IDMSUTIO preceding the eyecatcher C$A$.
If IDMSUTIO doesn t find the CSA address it looks for entry point IDMSEDSI
to build the mini CV. This entry point is in the IDMS module (IDMSSTUB). If
the entry is not found IDMSUTIO returns abend code NOCV. So linking
IDMSUTIO with IDMS solves the NOCV abend and IDMSUTIO can be loaded
dynamically.

Ca is still researching if a PTF is possible or not, but for now linking them together is the circumvention.