PI39302: ASRA DUE TO WSA BEING ZEROS WHEN EC LINKING TO V5 PROGRAM FROM CALLING PROGRAM THAT CALLS OLDER COBOL PROGRAM.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ASRA due to WSA being zeros when EC LINKING to V5 program from
  calling program that calls older  COBOL program.
  Additional symptoms:
  DFHSR0001An abend (code 0C4/AKEA) has occurred
  at the beginning of a COBOL V5 application,
  trying to store at location 00000010.
  R12 points to the CAA,  offset x'1F4' is field
  CAACRENT  or CRENT  is zeros.
  

Local fix

• Problem occurs when older COBOL program is statically linked in
  and the older program contains an old COPY of CEEBETBL.
  Refreshing CEEBETBL with latest version from SCEELKED via
  REPLACE CEEBETBL will bypass the problem.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5 users compiling and      *
  *                 running programs that are linked with an old *
  *                 version of LE CEEBETBL CSECT.                *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: An S0C4 ABEND may occur due to a NULL   *
  *                      WORKING-STORAGE address returned by the *
  *                      COBOL run-time.                         *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The Enterprise COBOL V5 compiler generates program objects, and
  at execution time the COBOL run-time obtains the size of the
  WORKING-STORAGE section from the loader information table
  IEWBLIT, accessible via the LE CEEBETBL CSECT. The COBOL run-
  time is unaware of prior versions of CEEBETBL CSECT, resulting
  in a failure in obtaining a WORKING-STORAGE section for the
  program.
  

Problem conclusion

• Apply provided service.
  
  The runtime was changed to check for the size and number of
  entries of the CEEBETBL table before accessing IEWBLIT.
  

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

• R780 PSY UI27688

     UP15/05/28 P F505

• R790 PSY UI27689

     UP15/05/28 P F505

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.