PI16619: COBOL VERSION 5 PROGRAM NOT ENTERED IN LAST USED STATE WHEN 1ST CALLED FROM A COBOL VERSION 4 PROGRAM.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL Version 5 program is entered in initial state when
  subsequently invoked from COBOL V5 program. This only occurs
  after 1st being invoked by a COBOL Version 4 program. The
  Version 4 program is compiled with DLL, EXPORTALL option
  along with the DYNAM=DLL on the bind step.  PI10522 corrected
  the problem in a batch program. This APAR will address the
  problem under CICS.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5.1 users running CICS     *
  *                 transactions that inter-operate with         *
  *                 programs compiled with pre-V5.1 compilers.   *
  ****************************************************************
  * PROBLEM DESCRIPTION: When a load module is first called by   *
  *                      a pre-V5.1 COBOL program, then          *
  *                      subsequently by a V5.1 program in CICS, *
  *                      the internal load module list           *
  *                      maintained by the COBOL runtime may     *
  *                      be updated unnecessarily, causing some  *
  *                      V5.1 programs that have previously been *
  *                      run to loose their state information.   *
  *                      This results in a new working storage   *
  *                      section to be allocated each time the   *
  *                      program is re-entered again.            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• Apply provided service.
  

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:

  UI17669 UI17670

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24  IGZXLPIO IGZXLPKA
  IGZXLPKB IGZXLPKC IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI17669

     UP14/05/20 P F405

• R790 PSY UI17670

     UP14/05/20 P F405

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.