IBM Support

0C4 ASRA in COBOL program after upgrade to COBOL 6 in CICS

Question & Answer


Question

After upgrading to COBOL V6, I am receiving the following abend in CICS Transaction Server for z/OS (CICS TS):

 DFHAC2236 date time applid Transaction ABCD abend ASRA in program CICSPROG1 term X123. Updates to local recoverable resources will be backed out.
 
 DFHAP0001 applid An abend (code 0C4/AKEA) has occurred at offset X'FFFFFFFF' in module CICSPROG1..

When I look in the dump I see the PSW for this program check is pointing to a STORE (ST) instruction: 50F0 10F8 at offset x'322' in Cobol module IGZCEV18. This abend is occurring because Reg1 is zero.

Why is my program abending after upgrading COBOL?

Answer

After upgrading to COBOL V6, the 0C4 ASRA in COBOL programs can be caused by the CICS system definition (CSD) not being updated to include both the COBOL V5 and V6 routines. In the Enterprise COBOL v6.1 Migration Guide, section CSD setup differences with Enterprise COBOL V5 and V6, it states:

The normal procedure for setting up CICS involves updating the CICS System Definition file to define program modules that will be used under CICS. New library modules must be added for Enterprise COBOL V5 and V6. These modules are contained in the Language Environment® data set SCEERUN:

  • CEEEV004

  • IGZXLPKA

  • IGZXD24

  • IGZXDMR

  • IGZLLIBV

  • IGZXLPKC

  • IGZXLPIO

  • IGZXAPI

  • IEWBNDD

  • IEWBIND

  • CDAEEDE

  • IGZXLPKB

  • IGZXLPKD

  • IGZXLPKE

  • IGZXLPKF

  • IGZXLPKG

  • IGZXPK2

The member CEECCSD in the Language Environment SCEESAMP data set provides an example of this definition file. You can also add the following lines to your existing CSD file:

 DEFINE PROGRAM(CEEEV004) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKA) GROUP(CEE)
 DEFINE PROGRAM(IGZXD24) GROUP(CEE)
 DEFINE PROGRAM(IGZXDMR) GROUP(CEE)
 DEFINE PROGRAM(IGZLLIBV) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKC) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPIO) GROUP(CEE)
 DEFINE PROGRAM(IGZXAPI) GROUP(CEE)
 DEFINE PROGRAM(IEWBNDD) GROUP(CEE)
 DEFINE PROGRAM(IEWBIND) GROUP(CEE)
 DEFINE PROGRAM(CDAEEDE) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKB) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKD) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKE) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKF) GROUP(CEE)
 DEFINE PROGRAM(IGZXLPKG) GROUP(CEE)
 DEFINE PROGRAM(IGZXPK2) GROUP(CEE)

When the CSD has been updated correctly, we would see all of the above modules listed in the CICS Loader Domain.

Cheers,
Shayla Robinson
CICS and CPSM Level2 Support

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Platform":[{"code":"PF035","label":"z\/OS"}],"Component":"COBOL","Version":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAU5Z","label":"COBOL Compilers"},"Platform":[{"code":"PF035","label":"z\/OS"}],"Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Product Synonym

CICS/TS CICSTS CICS TS CICS Transaction Server

Document Information

Modified date:
20 July 2021

UID

dwa1416260

Page Feedback