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 CSD file to define program modules that will be used under CICS. New library modules must be added for
Enterprise COBOL V5 and V6.
Most of these modules are contained in the
Language Environment® data set
SCEERUN:
CEEEV004IGZXLPKAIGZXD24IGZXDMRIGZLLIBVIGZXLPKCIGZXLPIOIGZXAPIIEWBNDDIEWBINDCDAEEDEIGZXLPKBIGZXLPKDIGZXLPKEIGZXLPKFIGZXLPKGIGZXPK2IGZUOPT* IGZXCDA
* The IGZUOPT module is not contained in SCEERUN by default. IGZUOPT is an optional module that you can create by using the sample JCL IGZ1OPT in the Language Environment data set SCEESAMP. Change the JOB card and load library name, and run the IGZ1OPT JCL to generate IGZUOPT.
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)
DEFINE PROGRAM(IGZUOPT) GROUP(CEE)*
DEFINE PROGRAM(IGZXCDA) GROUP(CEE) * IGZUOPT is not included in this sample by default, but can be added if in use.
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
(Disclaimer: This post is migrated from IBM Developer Answers that is no longer in use. Its original author is Shayla Robinson, posted on Nov 30, 2017 at 10:38 PM.)
Original Message:
Sent: Thu May 21, 2020 12:44 AM
From: Dan Zhang
Subject: 0C4 ASRA in COBOL program after upgrade to COBOL 6 in CICS
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?
(Disclaimer: This post is migrated from IBM Developer Answers that is no longer in use. Its original author is Shayla Robinson, posted on Nov 30, 2017 at 10:18 PM.)