PI97715: S0C4 EXCEPTION IN CDAEEDE CSECT GETMEM31

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• In a COBOL program that is coded with an 'EXEC CICS HANDLE
  ABEND LABEL', original user defined abend occurs. However, a
  second abend is expected, but does not occur when using COBOL
  V6.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ user, running COBOL     *
  *                 program under CICS, where the user use EXEC  *
  *                 CICS HANDLE ABEND LABEL and EXEC CICS ABEND  *
  *                 ABCODE().                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: During the processing of the user       *
  *                      ABEND, COBOL RTE is using CDA to        *
  *                      attempt to get line number              *
  *                      information, however, the CAA that is   *
  *                      given during this processing is not     *
  *                      the CAA of the user enclave, as such,   *
  *                      when CDA make use of LE service for     *
  *                      it's processing, a secondary ABEND 0C4  *
  *                      occurs.                                 *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The CAA given to the COBOL RTE during ABEND processing maybe
  invalid.  A check for validity of the CAA has been added.
  

Problem conclusion

• COBOL RTE checks the CAA given is valid before calling CDA to
  get line number information.
  

Temporary fix

Comments

APAR Information

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

  PI97350

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

Modules/Macros

• IGZBALCT IGZCEV4  IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZX2BIN IGZX2HEX IGZXAPI  IGZXBU2L IGZXBU2P
  IGZXBU2S IGZXBU2W IGZXCDA  IGZXD24  IGZXDMR  IGZXFBIN IGZXFHEX
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXNE3N IGZXPK2  IGZXREVT
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI55861

     UP18/06/01 P F805

• R7BJ PSY UI55862

     UP18/06/01 P F805

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.