PI28698: ERROR IN DBDGEN OUTPUT IF EXTERNALNAME EXTENDED MAPPING MACRO ISADDED TO A FIELD OF A COMPRESSED COMPRTN SEGMENT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• If new EXTERNALNAME Extended mapping macro is added to a DBD
  FIELD part of a COMPRTN Compressed SEGMENT DBDGEN sets incorrect
  Flags for the SEQ Sequence FIELD in the next Compressed SEGMENT.
  It seems the DMBCPSEQ X'08' SEGMENT HAS SEQUENCE FIELD DEFINED
  Flag is not set in the DMBCPFLG flag byte of the next SEGMENT
  FIELD.
  This results in a change in the Compression options that would
  require a Reorg to be performed, and anyway the resulting DBD
  is incorrect.
  If Reorg is not run (since Customer knows it should not in this
  case) various errors like ABENDU0840 and ABEND0C7 can be
  received in Compression Routine.
  anyway running a Reorg is not a solution since the resulting
  assembled DBD is incorrect.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V13 users of the IMS catalog are     *
  *                 affected.                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect information is generated in   *
  *                      the SEGM compression routine CSECT      *
  *                      during DBDGEN.                          *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  The flag that indicates the segment has a sequence field
  defined and length of the sequence field were not set in the
  SEGM compression routine CSECT if the DBD contains non-
  searchable fields.  Non-searchable fields are defined with an
  EXTERNALNAME keyword while omitting the NAME keyword.
  Additional keywords:
  EXTERNAL NAME
  U0863 or AbendU0863
  Pointer Checker errors or PTR CHK
  DBDGEN or DBD GEN
  

Problem conclusion

• GEN:
   ACTACT
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  ****************
  * FIELD macro  *
  ****************
  Code is added to the FIELD macro to setup an array of field
  offset and bytes for only IMS searchable fields.
  
  ****************
  * DBDGEN macro *
  ****************
  Code is added to the DBDGEN macro to reference only the IMS
  searchable array elements to determine if the segment has
  a sequence field.
  

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:

  PI30291 UI23728

Modules/Macros

• DBDGEN   FIELD
  

Fix information

• Fixed component name

  IMS V13

• Fixed component ID

  5635A0400

Applicable component levels

• R300 PSY UI23728

     UP14/12/16 P F412

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.