PI56726: COBOL PRE V5 PROGRAM, DOING PROCEDURE POINTER CALL TO A COBOL V5+ PROGRAM, R1 IS NOT SAVED TO SAVEAREA

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Exception occurs in Enterprise COBOL V5 program after calling
  an another program (assembler in this scenario) that updates
  and returns the parameter list. The COBOL V5 program was called
  by a pre V5 COBOL program via procedure pointer.
  

Local fix

• Compile all COBOL with V4
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5 users compiling and      *
  *                 running programs that are mixed with other   *
  *                 COBOL programs compiled with previous        *
  *                 compilers, and are using procedure pointer   *
  *                 calls, EG: CALL procedure-pointer-1.         *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect results from programs or      *
  *                      tools that follow the save area chain   *
  *                      and need Register 1 to be set           *
  *                      correctly. When an Enterprise COBOL     *
  *                      pre V5 program uses procedure pointers  *
  *                      to call a COBOL V5+ program, the        *
  *                      procedure pointer call routine          *
  *                      IGZXGTP5 optimizes the call by          *
  *                      skipping over the target program's      *
  *                      bootstrap code. While the caller's      *
  *                      parameters are being passed correctly   *
  *                      to the target program in register R1,   *
  *                      IGZXGTP5 missed saving the R1 value in  *
  *                      its save area.                          *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The fastpath logic in IGZXGTP5 that handles calling COBOL V5
  programs by procedure pointer call from a pre V5 COBOL caller
  was not correctly saving R1 in its save area.
  

Problem conclusion

• IGZXGTP5 is corrected to save R1 in its save area. ++HOLD
  INFORMATION: n/a
  

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

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI35305

     UP16/02/19 P F602

• R780 PSY UI35306

     UP16/02/19 P F602

• R790 PSY UI35307

     UP16/02/19 P F602

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.