0C1 ASRA in COBOL programs when using COBOL 5 with CICS

Question & Answer

Question

Why are my COBOL application modules getting an abend0C1 abendASRA in CICS Transaction Server for z/OS (CICS TS)? I am sure that the exception can be different depending on the application but, in this case, before the abend I see:

 XML PARSE WS-XML
           PROCESSING PROCEDURE 1000-XML-HANDLER
           ON EXCEPTION

The dump of the abend shows:

 DUMPCODE:  ASRA
 DATE/TIME:  4/05/15 10:35:56 (LOCAL)
 MESSAGE:   (None)
 SYMPTOMS:  SYMPTOMS= AB/UASRA PIDS/5655Y0400 FLDS/DFHABAB RIDS/PROGRAMX

and this is what I see in the Kernel Error table:

 00000046  10:28:50   00B7   PROGRAM_CHECK        0C1/AKEA  UNKNOWN   UNKNOWN
 00000047  10:28:50   00B7   TRAN_ABEND_PERCOLATE ---/ASRA  DFHSR1    000006EC
 00000048  10:28:50   00B7   TRAN_ABEND_PERCOLATE ---/ASRA  DFHEPC    000001AA
 00000049  10:34:51   00B7   PROGRAM_CHECK        0C1/AKEA  UNKNOWN   UNKNOWN
 0000004A  10:34:51   00B7   TRAN_ABEND_PERCOLATE ---/ASRA  DFHSR1    000006EC

Answer

In this case, CICS TS was installed along with COBOL Version 5 and a new CEECCSD definition was being used. COBOL shipped new modules that are missing from the CICS System Definition (CSD) file. Here are the program definitions that need to be added to Group(CEE) of the CSD:

  DEFINE PROGRAM(IGZXLPKB) GROUP(CEE)  <-- new 
  DEFINE PROGRAM(IGZXLPKD) GROUP(CEE)  <-- new
  DEFINE PROGRAM(IGZXLPKE) GROUP(CEE)  <-- new 
  DEFINE PROGRAM(IGZXLPKF) GROUP(CEE)  <-- new
  DEFINE PROGRAM(IGZXLPKG) GROUP(CEE)  <-- new
  DEFINE PROGRAM(IGZXPK2)  GROUP(CEE)  <-- new

For more information, refer to Enterprise COBOL for z/OS technote 1697364: Action Required (CICS/Link Pack Area): New runtime library modules for Enterprise COBOL V5

A request for enhancement (RFE) has been submitted for CICS to remove the need for a Systems Programmer from having any role in installing LE (or Language) resource definitions in CICS. This RFE requests that LE and CICS software completely handle the task of installing the necessary definitions in CICS. If you would like to increase the chances of this enhancement request being completed, click on RFE 72589 then signon using your IBMid, scroll to the bottom of the page, and click on "vote" to vote for it.

[{"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":"5.2","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

Was this topic helpful?

Document Information

Modified date:
20 July 2021

UID

dwa1234145

Tips