PI44740: AFTER APPLYING MAINTENANCE TO CICS, YOU RECIEVE LE ABEND4088 REASON 63 AFTER AN ABEND ASP3 15/07/21 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• After applying maintenance to CICS - in this case RSU 1410,
  you notice different behavior after a CICS Transaction
  ABENDASP3.  You receive the following:
  CEE1000S  ABCODE = 4088 REASON = 00000063
  .
  Reviewing a dump from the 4088 abend, the kernel error
  table shows the following entries:
  Num Err_Time KE_NUM Error Type      Err_Code  Module   Offset
  01  02:00:28 0083   TRAN ABEND PERC ---/ASP3  DFHPCP   000696
  02  02:00:28 0083   TRAN ABEND PERC ---/ASP3  DFHSPP   0005AA
  03  02:00:28 0083   TRAN ABEND PERC ---/ASP3  DFHEISP  000698
  04  02:00:28 0083   TRAN ABEND PERC ---/ASP3  DFHEIP   000AD6
  05  02:00:28 0083   TRAN ABEND PERC ---/ASP3  DFHEPC   000226
  06  02:00:28 0083   PROGRAM CHECK   0C4/AKEA  CEEPLPKA 1C8B22
  07  02:00:28 0083   TRAN ABEND PERC ---/4088  DFHEPC   000724
  .
  CICS called LE for Rununit_End_Invocation, and LE experienced
  a program check.
  They determined this is due to an incorrect bit setting CICS
  passed to them in argument 10 = celinfo.
  You can see this Celinfo in data area 4 of  the AP 1948 trace
  entry:
  .
  APLI EVENT CALL-TO-LE/370 - Rununit_End_Invocation
         Program_name(xxxxx)
   4-0000  86340000 C1E2D7F3 00000000 00000000
             **
  The second byte has the x'08' bit off, indicating we have
  passed 31 bit registers, yet we have passed 64 bit registers.
  This causes LE to pick up incorrect register value for R13.
  
  Additional Symptom(s) Search Keyword(s): KIXREVDAM
  loop 0C4  ASPQ ABENDU4088 abend4088 ABEND0C4 ABENDS0C4
  DO_LE370_RUNUNIT_END_INVOCATION after a transaction abend
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: After applying the PTF of APAR PI22599, *
  *                      an application abend is followed by a   *
  *                      4088 or 4082 abend in Language          *
  *                      Environment.                            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The fix for PI22599 altered DFHAPLI1 so that if 64 bit registers
  are not available at the time of an abend it will unset the bit
  that indicates to Language Environment that the registers are in
  64 bit format, and pass the program check registers to LE in 32
  bit format. However CICS also passes a second set of registers
  to LE - the registers at the time of the last EXEC CICS command
  - and in this case, these were in 64 bit format. DFHAPLI1 unset
  the LE indicator bit and passed the 32 bit program check
  registers to LE, but failed to do the same for the registers at
  the time of the last EXEC CICS command. LE attempted to address
  storage pointed to by one of these registers, but the incorrect
  format resulted in an abend.
  Depending on the problem scenario, the result could be either
  abend4082 or abend4088.
  Keyword: termcode_bit12
  

Problem conclusion

• UI20473 UI20757 UI21830 UI22542 UI24127 UI25262 UI20474 UI20758
  UI21831
  DFHAPLI1 has been changed to pass the registers at the last EXEC
  CICS command in 32-bit format if the registers at the time of
  the abend are also in 32 bit format.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PI41673

• APAR is sysrouted TO one or more of the following:

  UI30325 UI30326

Modules/Macros

• DFHAPLI1 DFHXMTA
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R800 PSY UI30325

     UP15/08/28 P F508 {

• R900 PSY UI30326

     UP15/08/28 P F508 {

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.