A fix is available
APAR status
Closed as program error.
Error description
The application does EXEC CICS WRITE OPERATOR ROUTECODES NUMROUTES and this can lead to 0C4 in DFHEOP on an MVC instruction. DFHEOP assumes that ROUTECODES is always 28 bytes in length. Infact, ROUTECODES is a variable length field and in the example shown in the DFHAP0001 dump the application supplied a ROUTCODES field of length 1 byte. When reading the ROUTECODES from R11 24DFFFE5 for a length of 28 bytes instead of 1 byte, DFHEOP reads beyond the application DFHEISTG storage and into storage owned by another task which with TRANISO active causes the 0C4 pic10. . DFHSR0622 An attempt to access the EUDSA has caused the abend which follows DFHAP0001 An abend (code 0C4/AKEA) has occurred at offset X'000002F6' in module DFHEOP. REGISTERS and PSW : . Error occurred in program DFHEOP at offset 000002F6 under the CICS RB in subspace Execution key at Program Check/Abend: 8 Instruction Length: 6 Interrupt Code: 0010 Exception Address: 24E00800 Branch Event Address: 22BE68BA Module DFHEOP + X'2BA' PSW: 078D3000 22BE68F6 Module DFHEOP + X'2F6' Failing instruction MVC 512(28,R4),0(R11) CICS Registers: R0: F20002D8 Storage invalid R1: 00067020 KE STACK Entry, TranNum 68187. Module DFHEOP R2: 2553AEE6 Module usercod + X'8BD6' R3: A2BE6770 Module DFHEOP + X'170' R4: 00067020 KE STACK Entry, TranNum 68187. Module DFHEOP R5: 00000001 2047 bytes of storage addressable R6: 0000B420 AP Domain Table Entry + X'0' R7: 2553AEE6 Module usercod + X'8BD6' R8: 24DFFE60 701874592 bytes of storage addressable R9: 22BE7770 Module DFHEIQSZ + X'570' R10: 00067110 5234416 bytes of storage addressable R11: 24DFFFE5 701874203 bytes of storage addressable R12: 22E17100 Task 68187 User TCA + X'0' R13: 8004A400 Module DFHCSA + X'1400' R14: A2BE67E6 Module DFHEOP + X'1E6' R15: 80049200 Module DFHCSA + X'200'
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users * **************************************************************** * PROBLEM DESCRIPTION: Program check in DFHEOP on an EXEC CICS * * WRITE OPERATOR command. * **************************************************************** * RECOMMENDATION: * **************************************************************** DFHEOP moves the routecode values from the application into its stack storage as part of an EXEC CICS WRITE OPERATOR ROUTECODES NUMROUTES command. The variable it stores the route codes into is 28 bytes long. There is no logic to only move the actual number of routecodes that have been specified, and the code always moves 28 bytes worth of data from the source data address. In the failing case, the application's working storage was followed by an inaccessible page in the address space, and when the MVC instruction attempted to copy the residual bytes of storage from this page a protection exception s0C4 occurred. In the failing case the application has specified fewer than 28 routecodes. KEYWORDS: abends0c4 abend0c4 0c4 EOP
Problem conclusion
DFHEOP has been changed to only move the number of bytes as specified in the NUMROUTES adverb of the WRITE OPERATOR command.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PI53726
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
800
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2015-12-08
Closed date
2016-01-20
Last modified date
2016-02-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PI54089 UI34671 UI34672
Modules/Macros
DFHEOP
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
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"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
01 February 2016