PI53726: DFHAP0001 AN ABEND (CODE 0C4/AKEA) HAS OCCURRED AT OFFSET X'000002F6' IN MODULE DFHEOP.

Obtain the fix for this APAR.

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 is sysrouted FROM one or more of the following:

  PI49930

• 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

• R800 PSY UI34671

     UP16/01/28 P F601

• R900 PSY UI34672

     UP16/01/28 P F601

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.