CA IDMS IUA EIUA

Expand all | Collapse all

IDMSUTIO

Jump to Best Answer
  • 1.  IDMSUTIO

    Posted 06-18-2013 10:23 AM
    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.


  • 2.  RE: IDMSUTIO
    Best Answer

    Posted 06-20-2013 07:32 AM
    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.