PI64114: COBOL V5+ FUNCTION- AND PROCEDURE-POINTER'S POINT TO DESCRIPTOR THAT ASSUMES COBOL V5+ RUN-TIME IS ACTIVE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Rather than pointing directly to a target module, a COBOL v5+
  function- or procedure-pointer points to a descriptor intended
  to reduce the code path of the call. However, if the COBOL v5+
  run-time is not active, calling through such a function- or
  procedure-pointer will lead to an abend0C4 in the IGZXBST
  bootstrap routine associated with the target module.
  
  The error context in which this problem was reported was
  unusual, and involved construction of a procedure-pointer in one
  enclave and its use in another enclave created via CEEPIPI. In
  other words, the typical use of function- and
  procedure-pointer's is unaffected by this problem.
  
  Also unaffected are COBOL v4.2 and earlier target modules, whose
  function- and procedure-pointer's point directly to the target
  module.
  

Local fix

• Use an intermediate COBOL module to call the function- or
  procedure-pointer.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5 (and V6) users running   *
  *                 Programs that call Enterprise COBOL V5+      *
  *                 programs using procedure-pointers in a       *
  *                 Language Environment enclave (run unit)      *
  *                 where COBOL V5+ is not already running.      *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Runtime ABEND: When a                   *
  *                      procedure-pointer to an Enterprise      *
  *                      COBOL V5+ program is used in a new LE   *
  *                      enclave where COBOL V5+ is not already  *
  *                      running yet, an ABEND0C4 may occur.     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The bootstrap code in a COBOL V5+ procedure-pointer assumes the
  V5+ runtime is already up and running, because the only way to
  obtain a procedure-pointer is by using the COBOL SET ENTRY
  statement. However, if the procedure-pointer is passed and used
  in a new LE enclave, for example via the assembler LINK macro,
  a COBOL runtime environment may not be available in the new LE
  enclave.
  
  FIXCAT keyword:  COB0501T/K   COB0502T/K   COB0601T/K
  

Problem conclusion

• The procedure-pointer bootstrap code is corrected to check for
  an active COBOL environment before proceeding.
  

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:

  UI39543 UI39544

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI39543

     UP16/07/29 P F607

• R790 PSY UI39544

     UP16/07/29 P F607

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.