PH59835: Dynamic calls from COBOL 4 to COBOL 6 programs running in CICS may not issue an EXEC CIS PUSH HANDLE when run with CBLPSHPOP

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When an Enterprise COBOL 4 program issues multiple dynamic calls
  
  to an Enterprise COBOL 6 program, an EXEC CICS PUSH HANDLE may
  not be properly executed after the first call.
  
  Possible Symptoms:
  Messages CEE1001E CEE0463S AbendU4083
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs which are called   *
  *                 dynamically by Enterprise COBOL 4.2 or       *
  *                 prior releases under CICS                    *
  *                 with CBLPSHPOP(ON).                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: When COBOL 4.2/prior releases           *
  *                      make multiple dynamic calls             *
  *                      to COBOL 5/6 programs under CICS        *
  *                      with CBLPSHPOP(ON),                     *
  *                      an EXEC CICS PUSH/POP HANDLE is         *
  *                      done only for the first dynamic call.   *
  *                      On the subsequent dynamic calls to      *
  *                      the same COBOL program, an EXEC CICS    *
  *                      PUSH/POP HANDLE no longer occurs.       *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  The COBOL runtime logic for executing EXEC CICS PUSH/POP HANDLE
  commands contained incorrect logic for programs compiled with
  Enterprise COBOL 5 and later releases being dynamically called
  by programs compiled with Enterprise COBOL 4.2 or prior releases
  under CICS with CBLPSHPOP(ON).
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K
  

Problem conclusion

• The COBOL runtime logic has been corrected.
  EXEC CICS PUSH/POP HANDLE happens for every dynamic calls
  under CICS with CBLPSHPOP(ON).
  

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

• IGZBALCT IGZCEV4  IGZCJNI2 IGZCMGEN IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZXAPI  IGZXCA31 IGZXCDA  IGZXD24  IGZXDMR
  IGZXJNI2 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

• R7C0 PSY UI96134

     UP24/03/28 P F403

• R7D0 PSY UI96135

     UP24/03/28 P F403

• R7E0 PSY UI96136

     UP24/03/28 P F403

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.