PI69070: EXCEPTION WHEN USING A PROCEDURE POINTER CALL FROM COBOL V5 AND ABOVE TO COBOL V4 16/10/05 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Exception occurs in a second called subprogram after COBOL V5+
  program calls a COBOL V4 subprogram using Procedure Pointer,
  with the Procedure Pointer is not being constructed by COBOL.
  

Local fix

• Use COBOL to set up the Procedure Pointer call.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ programs calling pre-V5 *
  *                 COBOL programs with PROCEDURE-POINTER.       *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When an Enterprise COBOL V5+ program    *
  *                      uses PROCEDURE-POINTER to call pre-V5   *
  *                      COBOL subprograms, the second called    *
  *                      subprogram may abend. For example:      *
  *                                                              *
  *                      01 PP-PTR USAGE IS PROCEDURE-POINTER.   *
  *                      01 PGM1   USAGE IS POINTER.             *
  *                      01 PGM2   USAGE IS POINTER.             *
  *                                                              *
  *                      MAIN.                                   *
  *                          SET PP-PTR TO PGM1                  *
  *                          PERFORM PP-CALL.                    *
  *                          SET PP-PTR TO PGM2                  *
  *                          PERFORM PP-CALL.                    *
  *                          GOBACK.                             *
  *                                                              *
  *                      PP-CALL.                                *
  *                          CALL PP-PTR.                        *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  APAR PI59961 attempted to improve static call performance
  between Enterprise COBOL V5+ programs and pre-V5 programs,
  by introducing caching logic to reduce call overhead to
  subprograms that are being called repeatedly. However, the
  logic failed to recognize a PROCEDURE-POINTER call is
  handled similarly to static call, where the decision to use
  the cached information was invalid.
  

Problem conclusion

• The logic introduced by APAR PI59961 has been improved to also
  handle the PROCEDURE-POINTER usage scenario.
  
  FIXCAT KEYWORDS: COB0501T/K COB0502T/K COB0601T/K
  

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:

  UI41503 UI41504

Modules/Macros

•    IGZEINI
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R7A0 PSY UI41503

     UP16/10/08 P F610 Ø

• R790 PSY UI41504

     UP16/10/08 P F610 Ø

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.