PH01972: IMS E4D DDL FP DBDS GENERATED WITH PSELOPT=M BUT PSELRTN= IS NOT CODED AND FP DEDB DEPENDSON= IS CODED IF COPYBOOK IS USED.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Using IMS E4D DDL for a FP DBD and importiia copybook results in
  FPSI with a XDFLD coding that has PSELOPT=M. But the
  corequisite keyword PSELRTN is not coded. If PSELRTN is not
  coded or omitted then PSELOPT=M should not be generated.
  When using IMS E4D DDL importing a copybook for a DEDB a
  DEPENDSON= keyword is included. DEPENDSON= is valid when a NAME=
  of a field is coded.
  If the copybook is excluded then the error doesn't occur.
  

Local fix

• Omit the copybook when doing the IMS E4D DDL process.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * IMS V15 users of DBDGEN with large number of external fields *
  * defined in DBD source.                                       *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * If DBD contains large number of external fields and one of   *
  * the external field is referenced on DEPENDSON= then DBDGEN   *
  * fails with FLD630 during the validation of DEPENDSON.        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * INSTALL CORRECTIVE SERVICE FOR APAR/PTF                      *
  ****************************************************************
  During the validation of DEPENDSON field, the logic prematurely
  exits after 255 loops thus could not find external field in the
  DBD with large number of external fields.
  

Problem conclusion

• FIELD macro changed to use variable that keeps the count of
  fields/external fields in the DBD instead of hard coded value.
  

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:

  UI58584

Modules/Macros

• FIELD
  

Fix information

• Fixed component name

  IMS V15

• Fixed component ID

  5635A0600

Applicable component levels

• R500 PSY UI58584

     UP18/09/24 P F809

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.