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
Product Synonym
CICS/TS CICSTS CICS TS CICS Transaction Server
Was this topic helpful?
Document Information
Modified date:
20 July 2021
UID
dwa1416260