PI95166: DFHTS0001 0C4 IN DFHTSAM +4C8 LEADS TO DFHTS1310 AND CICS ABEND

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A CICS 5.4 user task fails with message:
  .
  DFHTS0001 An abend (code 0C4/AKEA) has occurred at offset
   X'04C8' in module DFHTSAM.
  .
  Sometime shortly afterward, CICS itself abends with message:
  .
  DFHTS1310 Temporary storage data set does not match bit map
  .
  The 0C4 in DFHTSAM occurs on the MVCL instruction at offset
  x'4C8' (base level), because R14 is zeroes. The problem is
  that the user application passed zeroes as its FROM address on
  a WRITEQ TS request, but CICS temporary storage module DFHEITS
  did not detect the invalid FROM address. The WRITEQ TS request
  would have been something like:
  .
  EXEC CICS WRITEQ TS QUEUE(QQQQQQQQ) FROM(00000000)
  .
  The zero FROM address can be seen in the 0C4 exception trace
  entry as the AUX_DATA address:
  .
  TS 0903 TSAM *EXC* - Recovery_entered FUNCTION(WRITE_AUX_DATA)
               AUX_DATA(00000000 , 000029C6) QUEUE_NAME(QQQQQQQQ)
               TIME_STAMP(D40492EE82A8B0CE) ITEM_NUMBER(4)
               SECTION_NUMBER(1) FMH(NO) RECOVERABLE(NO)
               SUSPEND(YES)
  .
  After DFHEITS failed to detect the invalid FROM address, the
  bad address was passed on to DFHTSAM. DFHTSAM updated the TS
  Byte Map, then tried to move data from address 0 and took the
  0C4. This left the TS Byte Map in the inconsistent state which
  eventually led to the TS1310 abend. The application error would
  have detected as invalid in CICS releases prior to CICS TS 5.4.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users                               *
  ****************************************************************
  * PROBLEM DESCRIPTION: An application program which issues     *
  *                      EXEC CICS WRITEQ TS with a bad FROM     *
  *                      address causes CICS to abend with       *
  *                      DFHTS1310.                              *
  ****************************************************************
  * RECOMMENDATION: .                                            *
  ****************************************************************
  A CICS application program issues EXEC CICS WRITEQ TS with
  a an invalid FROM address.
  CICS fails to detect the bad address and goes on to update
  its TS Domain control blocks incorrectly.
  This will lead to a TS0001 abend and may lead to a TS1310 abend.
  Additional keywords:  1310 TS0001 0001
  

Problem conclusion

• DFHEITS has been corrected to validate the combination
  of the FROM address and length value in EXEC CICS WRITEQ TS
  commands.
  

Temporary fix

Comments

APAR Information

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

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

  UI54655

Modules/Macros

• DFHEITS
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R100 PSY UI54655

     UP18/03/23 P F803

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.