PK98588: DFR ABENDU3402 WITH MSGDFR3402E REASON CODE=NODDIR

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• If one of the following occurs after creation of a x'4025' log
  record or a x'25' log record for a DL/I DB, DFR in IMS V9, V10,
  or V11 issues a DFR3402E message and ends with an abend code
  U3402.
  - the DB is deleted by MODBLKS online change
  - the DB is deleted by a DELETE DB command
    (only when DRD is enabled in IMS V10 or later)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS DEDB FAST RECOVERY Version 2         *
  *                 Release 2 (FMID=H1J2220) users who use DL/I  *
  *                 databases.                                   *
  ****************************************************************
  * PROBLEM DESCRIPTION: If one of the following occurs after    *
  *                      creation of a x'4025' log record or a   *
  *                      X'25' log record for a DL/I database,   *
  *                      DFR in IMS V9, V10, or V11 issues a     *
  *                      MSGDFR3402E message and ends with an    *
  *                      abend code U3402.                       *
  *                      - The DB is deleted by MODBLKS online   *
  *                        change                                *
  *                      - The DB is deleted by a DELETE DB      *
  *                        command (only when DRD is enabled in  *
  *                                 IMS V10 or later)            *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  If there is no DDIR that corresponds to a EEQE of a DL/I
  database which a checkpoint log record (x'4025') or an EEQE log
  record (x'25') has been logged, DFR in IMS V9, V10, or V11
  issues a MSGDFR3402E message and ends with an abend code U3402.
  But, when one of the following is performed, it is correct that
  DDIR is not found.
  - The DB is deleted by MODBLKS online change
  - The DB is deleted by a DELETE DB command
     (only when DRD is enabled in IMS V10 or later)
  So DFR should issue a MSGDFR3402W message instead of
  the MSGDFR3402E message, and ends with return code of 4 or
  higher instead of the abend code U3402.
  

Problem conclusion

• The following modules have been modified.
  (x = 9, A and B)
  *
  DFRLDB1x - This module was changed so that DFR issues a
             MSGDFR3402W message and ends with return code of 4
             or higher when a DL/I database that corresponds to
             an EEQE is deleted after creation of a x'4025' log
             record or a x'25' log record.
  *
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  IMS DEDB Fast Recovery for z/OS Version 2 Release 2 User's Guide
  and Reference (Document Number: SC27-0928-03) should be changed
  as follows.
  ================================================================
  Appendix B. Messages and Codes
    B.3 Messages
  .
    DFR3402E  CHECKPOINTED BLOCKS DO NOT MATCH LOADED BLOCKS.
              REASON CODE xxxxxx
    DFR3402W  CHECKPOINTED BLOCKS DO NOT MATCH LOADED BLOCKS.
              REASON CODE xxxxxx
  .
    Explanation: ...
  .
    Code   Meaning
        :
        :
        :
    This error is caused by one of the following:
  .
    - The checkpoint log was changed.
  .
    - Module DFSDDIRx (x is the value specified on the SUF= EXEC
      parameter) was changed. This cause is applicable only in IMS
      Version 9 or earlier.
  |    .Incorrect library was specified
  |    .The DB definition was deleted by MODBLKS online change
  |
    - DMB of ACB library was changed
      .Incorrect library was specified
      .The DB definition was deleted by ACB library online change
  .
    - The DB definition created by IMS log was changed. This cause
      is applicable only in IMS Version 10 or later.
       .The DB definition was deleted by an MODBLKS online change
        or the DELETE DB command.
  .
    - There was an error while reading DMB from the ACB library.
  .
    System Action: ...
  .
    System Programmer Response:
        :
        :
    If the message was issued with suffix 'W':
     - In IMS Version 9 or earlier, confirm that a set of ACBLIB,
       MODBLKS, or both are correct for the job and that a
  |    database online change was accomplished before IMS failed.
       If a set of ACBLIB, MODBLKS, or both are incorrect, specify
       the correct one and rerun the job.
  .
     - In IMS Version 10 or later, confirm that a set of ACBLIB is
  |    correct for the job, and that a database online change was
       accomplished before IMS failed, and also that the DELETE DB
       command was issued before IMS failed.
       If a set of ACBLIB is incorrect, specify the correct one
       and rerun the job.
  *
  

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:

  UK51185

Modules/Macros

• DFRLDB1A DFRLDB1B DFRLDB19
  

Fix information

• Fixed component name

  DEDB FAST RECOV

• Fixed component ID

  5655E3200

Applicable component levels

• R220 PSY UK51185

     UP09/10/22 P F910

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.