PH62261: WORKING STORAGE NOT INITIALIZED WHEN COBOL 6.X PROGRAM IS CALLED AFTER PREVIOUSLY BEING CANCELLED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• After a COBOL 6.4 program is fetched by a PL/I routine, it can
  then be called and cancelled many times by another COBOL
  program.  Intermittently, it's Working Storage appears to have
  been freed, and then reused.  Its output is then occasionally
  unexpected and incorrect.
  

Local fix

• Ensure PL/I program releases the fetched COBOL program after it
  is cancelled.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs which              *
  *                 dynamically call and cancel COBOL programs   *
  *                 in interlanguage communication (ILC)         *
  *                 applications.                                *
  ****************************************************************
  * PROBLEM DESCRIPTION: When a COBOL callee program which was   *
  *                      previously called and cancelled         *
  *                      is dynamically called again,            *
  *                      the data items in the WORKING-STORAGE   *
  *                      in the callee program are not           *
  *                      re-initialized to their                 *
  *                      initial values.                         *
  *                                                              *
  *                      When a system dump is taken and         *
  *                      analyzed, the storage for the COBOL     *
  *                      WORKING-STORAGE which was already       *
  *                      freed is found to be in use.            *
  *                      Also the dump shows a CLLE for          *
  *                      the called program is COBOL 5+ but      *
  *                      has a 0 value for CLETGTAD_CLEPDB       *
  *                      in CLLE.                                *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  COBOL Runtime fails to re-initialize the data items in
  the COBOL WORKING-STORAGE when a COBOL callee program is
  called and cancelled in the following order:
  
  1. COBSUB (COBOL program) is called by a PL/I caller program
  2. COBSUB is dynamically called by a COBOL caller program
  3. COBSUB is cancelled by the COBOL CANCEL statement
  4. COBSUB is dynamically called by a COBOL caller program
  
  At 4., COBSUB data items in the WORKING-STORAGE are not
  properly re-initialized. When they are displayed, residual or
  unexpected values are displayed.
  
  This problem can be avoided if the PL/I caller program
  at 1. releases COBSUB before it is cancelled at 3..
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K
  

Problem conclusion

• The COBOL Runtime has been corrected.
  

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

• IGZCEV4  IGZCJNI2 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 UI98093

     UP24/08/29 P F408

• R7D0 PSY UI98094

     UP24/08/29 P F408

• R7E0 PSY UI98095

     UP24/08/29 P F408

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.