PK47861: PERFOMING A DBDGEN WITH SEGM MACROS CODED WITH PARAMETER COMPRTN CAUSES AN ASSEMBLY ERROR WHEN SEGMENT NAMES OF SEG10+ ARE USED

APAR status

• Closed as program error.

Error description

• Unable to DBDGEN a DBD having segment names as SEG10, SEG11,
  SEG12 etc. if these segments have the COMPRTN coded. DBDGEN
  generates SEG10, SEG11, SEG12, etc EQUates within the SEGTAB and
  and CSECTs to be used with the compression definitions. These
  names colide causing an assembly error.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All V81 customers with databases using       *
  *                 compression routine, and having exit         *
  *                 routine coded on the DBD statement, and      *
  *                 using segment names of SEGxx with xx         *
  *                 equal to the segment number of 10 and up.    *
  ****************************************************************
  * PROBLEM DESCRIPTION: DBDGEN fails for database with          *
  *                      compression routine defined, and        *
  *                      with messages IEV155 or IEV043 being    *
  *                      issued.                                 *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  1. The equate label in the segment table was generated with the
  same name as the segment name causing the DBDGEN to fail with
  message IEV155  *** ERROR *** PREVIOUS USE OF SYMBOL IS NOT THIS
  SECTION TYPE in the case there is compression routine defined.
  This failure is due to the segment being named as SEGxx with
  xx equal to the segment number of 10 and up.
  2. The labels in the segment exit table were generated with the
  same name as the segment compression routine CSECT causing the
  DBDGEN to fail with message IEV043  *** ERROR ***  PREVIOUSLY
  DEFINED SYMBOL in the case there is an exit routine defined
  on the DBD statement. This failure is due to the segment being
  named as SEGXaa with aa equal to the segment number.
  To prevent this type of DBDGEN failure, the labels in the
  segment table and the segment exit table should be made unique.
  

Problem conclusion

•  AIDS: RIDS/DBS RIDS/INTRF DBS INTRF
    GEN:
  
  *** END IMS KEYWORDS ***
  
   ****************
   * DBDGEN macro *
   ****************
  
  Modify the macro to generate unique labels under the segment
  table and the segment exit table.
  

Temporary fix

Comments

APAR Information

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

  PK44712

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

  UK30421

Modules/Macros

•    DBDGEN
  

Fix information

• Fixed component name

  IMS V8

• Fixed component ID

  5655C5600

Applicable component levels

• R800 PSY UK30421

     UP07/10/25 P F710