PH68359: RUNTIME IGZ0386S/IGZ0405S MESSAGES ARE EMITTED EVEN WHEN CALLEE DLLS EXIST IN A MIX AMODE ENV IN USS FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The runtime error message IGZ0386S/IGZ0405S is issued when a
  64-bit COBOL program is calling a 31-bit COBOL program on USS
  even when callee DLLs exist in a mix AMODE env for AMODE64.
  
  
  $cat COBMAIN1.cbl
        IDENTIFICATION DIVISION.
          PROGRAM-ID. COBMAIN1.
       *
        ENVIRONMENT DIVISION.
       *
        DATA DIVISION.
        WORKING-STORAGE SECTION.
          01  WS-PROG  PIC X(8) VALUE "CALLE1".
          >>IF IGY-LP = 64
          >>DATA 31
          >>END-IF
          01  WS-GROUP.
            03  WS-AMT   PIC S9(7)V9(3)   comp-3 VALUE 1234567.0.
       *
        PROCEDURE DIVISION.
        0100-MAIN.
            MOVE  100.00 TO WS-AMT.
            DISPLAY "IN COBMAIN CALLING " WS-PROG.
            CALL  WS-PROG USING WS-AMT.
            DISPLAY "BACK IN MAIN".
            DISPLAY "IN COBMAIN after " WS-PROG
                    " WS-AMT=" WS-AMT.
            GOBACK.
        0800-INIT.
              EXIT.
  $
  $ at CALLE1.cbl
        identification division.
        program-id. CALLE1.
        environment division.
        data division.
        working-storage section.
       /---------------------------------------------------------
  --------
       *
       *---------------------------------------------------------
  --------
        procedure division.
            display "  CALLE1"
            goback.
        end program CALLE1.
  $
  $ cob2 -q64 -o COBMAIN1 COBMAIN1.cbl -bdll
  $cob2 -q32 -o CALLE1 CALLE1.cbl -bDLL
  $./COBMAIN1
  IN COBMAIN CALLING CALLE1
  IGZ0405S A dynamic call from AMODE 64 COBMAIN1 to AMODE 31
  CALLE1 failed because it failed to load target DLL (CALLE1) or
  query target function. The CEL4RO31 return code was 4. Make sure
  the callee was correctly built as a DLL application. For
  example,
          to build a COBOL DLL, specify the compiler options
  EXPORTALL and DLL, and the binder options AMODE=31, RENT, and
  DYNAM=DLL.
          From compile unit COBMAIN1 at entry point COBMAIN1 at
  compile unit offset +0000000000000234 at entry offset
  +0000000000000234 at address 0000000026A0A244.
  [1] + Done(137) ./COBMAIN1
   16779182      Killed  ./COBMAIN1
  $
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 COBOL programs     *
  *                 which call AMODE 31 DLL COBOL programs in    *
  *                 the z/OS UNIX file system.                   *
  ****************************************************************
  * PROBLEM DESCRIPTION: When an AMODE 64 COBOL program          *
  *                      calls an AMODE 31 DLL COBOL program,    *
  *                      IGZ0386S or IGZ0405S message is issued  *
  *                      even when the called DLL program is     *
  *                      present and located using               *
  *                      'export LIBPATH=...'.                   *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  The COBOL Runtime incorrectly assumes the callee DLL name
  is 8 characters long. Consequently, when the AMODE 31 callee
  needs to be loaded, the Runtime fails to find the target DLL
  located by 'export LIBPATH=...' in the z/OS UNIX file system
  and issues the IGZ0386S or IGZ0405S message.
  
  COB0603T/K COB0604T/K COB0605T/K
  

Problem conclusion

• The COBOL Runtime has been corrected.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7D0 PSY UO05476

     UP25/11/01 P F510

• R7E0 PSY UO05478

     UP25/11/01 P F510

• R7F0 PSY UO05479

     UP25/11/01 P F510

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.