A fix is available
APAR status
Closed as program error.
Error description
Rexx ABEND handler (CICABEND) program checks when invoked before Rexx workblock is initialised. CICABEND checks that the Rexx workblock pointer it is given points to something containing the correct evecatcher. Unfortunately this test gives a protection exception when the passed address is zero.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All. * **************************************************************** * PROBLEM DESCRIPTION: Abend 0C4 in CICABEND. * **************************************************************** Rexx for CICS has its own abend handler program CICABEND. It is possible to invoke CICABEND before an address that it references has been initialised. This presents as: DFHAP0001 abend (code 0C4/AKEA) at offset x'19E' in module CICABEND. Keywords: abend0C4 abendS0C4 abendAKEA
Problem conclusion
The HANDLE ABEND command which activates CICABEND has been moved to after the fields that it references have been initialised. This APAR also ships various Rexx parts with the NOEDF translator option specified to align with CICS TS modules.
Temporary fix
Comments
APAR Information
APAR number
OA59489
Reported component name
REXX/CICS COMM
Reported component ID
565511200
Reported release
110
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-04-23
Closed date
2020-05-13
Last modified date
2020-06-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UJ02911
Modules/Macros
CICABEND CICBCMD CICBLOCK CICC2S CICCBMS CICCP000 CICCP002 CICCP003 CICCP011 CICCP012 CICCP019 CICCP020 CICCP021 CICCP022 CICCP023 CICCP030 CICCP031 CICCP051 CICCP053 CICCP054 CICDB2 CICDSCMD CICELFM CICEXEC CICFUNCT CICGETV CICHD000 CICHD100 CICHOST CICIMEX CICLOAD CICMGCFR CICMGENU CICMGFRA CICMGGER CICMGHAN CICMGKAN CICMGSPN CICMGUSE CICMSG CICPAN00 CICPAN10 CICPAN11 CICPAN12 CICPAN20 CICPAN21 CICPAN30 CICPAN40 CICPAN80 CICPAN81 CICPAN82 CICPAN83 CICPAN84 CICPAN85 CICPAN90 CICPDS CICPLGM CICPSUDO CICPULL CICR2S CICREX1 CICREX2 CICRFS00 CICRFS10 CICRFS11 CICRFS12 CICRFS13 CICRFS14 CICRFS15 CICRFS20 CICRFS30 CICRFS42 CICRFS80 CICRFS90 CICRFS95 CICRLS CICRLS1 CICRLS2 CICRLS3 CICRLT CICRXL CICS2C CICS2R CICSAY CICSCNIN CICSECX1 CICSECX2 CICSENDE CICSQL CICSQLD CICSTACK CICSYTRP CICTIME CICTRAC CICVALUE CICWREAD CICWREQ CICXDROP CICXLOA1 CICXLOAD IXXRCN IXXRDI IXXREV IXXRFN IXXRIN IXXRJA IXXRJB IXXRJC IXXRJD IXXRJE IXXRJF IXXRJG IXXRJH IXXRJI IXXRJJ IXXRJK IXXRJL IXXRJM IXXRJN IXXRJO IXXRJP IXXRJQ IXXRJR IXXRKA IXXRKB IXXRKC IXXRKD IXXRKE IXXRKF IXXRKG IXXRKH IXXRKI IXXRKJ IXXRKK IXXRKL IXXRKM IXXRKN IXXRKO IXXRKP IXXRKQ IXXRKR IXXRKS IXXRKT IXXRKU IXXRKV IXXRKW IXXRKX IXXRKY IXXRKZ IXXRTC IXXRUA IXXRUC IXXRUD IXXRUE IXXRUF IXXRUL IXXRUR IXXRUS IXXRUU IXXRUV IXXRVA IXXRXE IXXRXF
Fix information
Fixed component name
REXX/CICS COMM
Fixed component ID
565511200
Applicable component levels
R110 PSY UJ02911
UP20/05/14 P F005
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
02 June 2020