PM57210: ABENDU0840 IN DFSDDLE0 RC=D3C4E70C. DURING AN EXPANSION REQUEST,THE INPUT LENGTH OF THE COMPRESSED SEGMENT IS LESS THAN 2 BYTES.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• AbendU0840 in DFSDDLE0 csect INDXWRT while executing DFSPREC0 to
  rebuild a PRIMARY INDEX of a PHIDAM database with KEY
  compression ie. COMPRTN=(XXXXXXXX,KEY,INIT) while processing
  high value key with all x'FF' in key and data (last generated
  partition key).
  
  The PST LOG WORK AREA shows ABENDU2990 with reason code
  x'D3C4E70C' meaning during an expansion request, the input
  length of the compressed segment is less than 2 bytes.
  The high value bit of LL part of the segment length is set to 1
  indicating that key could not be compression. The exit
  interprets this as a negative value and sets the reason code.
  

Local fix

• To bypass this error, modify KEY Compression to DATA compression
  only ie. COMPRTN=(XXXXXXXX,DATA,INIT)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of IMS V10 HALDB Index/ILDS Rebuild    *
  *                 utility (DFSPREC0) with a compression exit   *
  *                 routine may be affected.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: The DFSPREC0 job terminated with an     *
  *                      AbendU0840 during an expansion request  *
  *                      when the data was not compressed.       *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  User specified a compression exit routine in the DFSPREC0 job
  so that an expansion request is issued each time a compressed
  segment is inserted into the index database.
  An abendU0840 occurred when DFSPREC0 encountered a segment
  with all FF's key that is not compressed as indicated by the
  high order bit of the 2-byte segment length field (e.g. x820D).
  When the compression exit routine was called to expand the
  segment, it interpreted the length as a negative number and
  resulted in an AbendU0840.
  
  DFSPREC0 calls module DFSDDLE0's csect DFSIXWR0 to insert
  segments into an index database.  In DFSIXWR0, there is code
  that checks the DMBCPTKY indicator of the DMBVLDFG byte to
  determine if an expansion request should be made before
  insert.  An additional check should be added to check the
  high order bit of the length field.  If the bit is on, it
  indicates the segment is not compressed and therefore we need
  to bypass the expansion request.
  

Problem conclusion

• GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  Module DFSDDLE0's csect DFSIXWR0 has been changed to resolve
  the problem.  Code has been added to check the high order bit
  of the 2-byte length field.  If the high bit is on, then
  the expansion request will not be made because it indicates
  the segment is not compressed.
  

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:

  PM67268 PM67269 UK80069

Modules/Macros

• DFSDDLE0
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R011 PSY UK80069

     UP12/07/10 P F207

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.