PI37886: PROBLEM WITH COBOL 5.1 BUILT PROGRAM DYNAMICLY CALLING PROGRAM COMPILED WITH COBOL 4.1.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Problem with COBOL 5.1 built program dynamicly calling program
  compiled with COBOL 4.1.
  FIXCAT keyword:  COB0501T/K   COB0502T/K
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5 programs calling V4      *
  *                 alternate entry points dynamically.          *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When a V4 module is initially called    *
  *                      via an alternate entry point by a V5    *
  *                      caller,and the V4 module is             *
  *                      subsequently called by another V4       *
  *                      program, a new WORKING-STORAGE section  *
  *                      is created, resulting in unexpected     *
  *                      program logic flow due to incorrect     *
  *                      data.                                   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When the caller is not the V4 dynamic call routine, the V4
  program entered via an alternate entry point will use the main
  entry point address to create the CLLE. Then if subsequently the
  same program is called by the V4 dynamic caller, another CLLE
  entry with the right entry point is created, and as a result a
  new piece of working storage is used for this second call.
  

Problem conclusion

• Change the V5 dynamic caller to create the V4 CLLE with the
  right entry point.
  

Temporary fix

Comments

• Follow-up to add FIXCAT keyword.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UI26787 UI26788

Modules/Macros

• CEESG004 IGZCEV4  IGZLLIBV IGZXAPI  IGZXBSP
  IGZXBST  IGZXBST1 IGZXDMR  IGZXD24  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

• R780 PSY UI26787

     UP15/04/24 P F504

• R790 PSY UI26788

     UP15/04/24 P F504

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.