PH61901: INCORRECT OUTPUT ON CALL WITH ON OVERFLOW OF AMODE(64) PROGRAMS UNDER USS FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Even though load modules (DLLs) are available via LIBPATH,
  calling program does not appear to be able to CALL them when ON
  OVERFLOW is being raised.
  

Local fix

• Do not code ON OVERFLOW; use AMODE(31)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 programs which     *
  *                 dynamically call other AMODE 64 COBOL        *
  *                 programs residing under z/OS UNIX.           *
  ****************************************************************
  * PROBLEM DESCRIPTION: When an AMODE 64 COBOL program          *
  *                      dynamically calls other AMODE 64 COBOL  *
  *                      programs using the CALL .. ON OVERFLOW  *
  *                      statement under z/OS UNIX where the     *
  *                      callee programs reside, the callee      *
  *                      programs are not found. Consequently    *
  *                      the ON OVERFFLOW phrase is executed.    *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  COBOL Runtime failed to search AMODE 64 DLL callee programs
  from z/OS UNIX file systems.
  
  For example, given the following
  COBOL code snippets,
  
  01  T1 PIC X(8) VALUE 'COBSUB1'.
  ...
  CALL T1
  ON OVERFLOW
    DISPLAY 'COBSUB1 WAS NOT FOUND'
  END-CALL
  
  if the callee program (COBSUB1) resides
  in the z/OS UNIX file system, the COBOL Runtime fails to
  find the callee, therefore 'COBOSUB1 WAS NOT FOUND'
  is displayed.
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• The COBOL Runtime has been corrected. The callee AMODE 64 DLL
  programs are searched from the z/OS UNIX file system
  accordingly.
  
  For the details on the search order, refer to
  
  Enterprise COBOL for z/OS Programming Guide
  >Chapter 30. Creating a DLL or a DLL application
  >> Search order for DLLs in the z/OS UNIX file system
  

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:

  UI97725 UI97726 UI97727

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

• R7C0 PSY UI97725

     UP24/07/30 P F407

• R7D0 PSY UI97726

     UP24/07/30 P F407

• R7E0 PSY UI97727

     UP24/07/30 P F407

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.