PK45194: ALLOW USE OF A DEL/DEF PDS LIBRARY WHERE THE MEMBERNAME IS THE DDNAME

APAR status

• Closed as program error.

Error description

• Allow use of a DEL/DEF PDS library where the membername is the
  DDNAME
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: IMS users with Database Recovery Facility    *
  *                 Version 3 Release 1 installed.               *
  ****************************************************************
  * PROBLEM DESCRIPTION: Users opened a requirement to DRF to    *
  *                      enhance the Delete/Define capability.   *
  *                      Users desired to have DRF to perform    *
  *                      Automatic Delete/Define using the       *
  *                      pre-stored IDCAMS commands and data     *
  *                      set attributes in a PDS member.         *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  DRF needs to be able to use a PDS library that the user
  supplies for Automatic Delete/Define processing.  The PDS
  library will contain members represented by the DD names of
  each database data set.  IDCAMS commands and attributes will be
  contained in each of these members.
  

Problem conclusion

• AIDS: RIDS/UTIL RIDS/DBS DBS/UTIL
    DEP: NONE
    GEN:
  
  *** END IMS KEYWORDS ***
  FRXMTC, FRXRVIC, and FRXBDMG0 are changed to support a new
  message MSGFRD6138E and new message codes for MSGFRD4284E.
  
  FRXEDSG, FRXEDSG0, FRXEGRM1, FRXNDSI, FRXNDSO, and FRXRWCE are
  changed to support a new PDS option for the DISP parameter used
  for data set allocation and automatic delete/define.
  
  FRXDDCR0, FRXGRPT0, FRXIRTH0, FRXIVCN0, FRXMPSB0, FRXRVGB, and
  FRXVADD0 are changed to proccess the new DISP(PDS) capability.
  
  FRXMINI0, FRXMINI1, and FRXMNP are changed to reload module
  FRXMPSB0 as a common load module that's to be used by both the
  DRF master address space and subtasks.
  
  FRXGUOW0, FRXVSTA0, and FRXVSTA1 are recompiled to pick up macro
  changes.
  
  The following DOC changes are implemented:
  ----------------------------------------------------------------
  IBM IMS Database Recovery Facility for z/OS  (SC18-9407-01)
  User's Guide and Reference Version 3 Release 1
  
  Chapter 3. Defining and tailoring the IMS Database Recovery
             Facility environment
  
  Change the following descriptions:
  DISP(OLD | NEW | PDS)
    If DISP(OLD) is supplied, an existing data set is used during
    recovery.  If DISP(NEW) or DISP(PDS) is supplied, a new data
    set is created during recovery for the data sets being used.
    ...
    PDS
      Allows the use of a Delete/Define PDS library which contains
      the IDCAMS commands and definitions for the database data
      sets.  The members within this PDS library must be
      represented by the DD name of each individual database data
      set.  If DISP(PDS) is specified, DRF will search through the
      PDS library by the DD name, invoke IDCAMS to perform the
      redefine of the database data set using the definitions from
      the member, and return control back to DRF for recovery.
  
      Example:
        //SYSIN DD *
         DBDSL101(DISP(PDS))
         ADD DB(DEDBDD01,DIVNTZ02) -
             DBATRB(DBDSL(101))
         START ERROR(CONT)
  
      A new DD name DDEFPDS has to be added as part of the DRF
      subordinate address Space JCL.  DDEFPDS identifies the PDS
      that contains members with DD names of the database data
      sets as the member names.  The PDS has to be defined with
      LRECL=80 and fixed-blocked format.
  
      Example:
        //DDEFPDS DD DSN=IMSTESTL.IDCAMS, DCB=(RECFM=FB,LRECL=80),
                     DISP=SHR
  
  ----------
  Chapter 7. Messages and Codes of IMS Databse Recovery Facility
  
  FRD4284E DATA SET RESTORE I/O ERROR, dbd ddn: reason
  ...
    DELETE/DEFINE FROM PDS FAILED
      The recover-to-copy function as specified with OUTPUT(DUP)
      or OUTPUT(BOTH) does not support the allocation of duplicate
      database data sets based off of definitions supplied in a
      PDS member via DISP(PDS).
  
    DELETE/DEFINE OSAM FROM PDS FAILED
      The delete and define function as specified with DISP(PDS)
      does not support the allocation of OSAM database data sets
      bassed off of definitions supplied in a PDS member.
  ...
  
  FRD6138E ERROR PROCESSING DDEFPDS. RSN=reason
  Explaination:  In the message text, the reason for the failure
                 can be one of the following:
  
    OPEN ERROR
      DRF was unable to open the dataset associated with the
      DDEFPDS DD name.
  
    UNABLE TO OBTAIN MEMBER name
      DRF was unable to get the named member for DEL/DEF.
  
    MEMBER name OVER 16K LIMIT
      The member exceeded 16K file size limit that is enforced by
      DRF.
  
    INVALID FORMAT
      The dataset was not defined with LRECL=80 and fixed/blocked
      format.
  
    CLOSE ERROR
      DRF was unable to close the dataset successfully.
  
  System action:  Recovery stops for the database.
  System programmer response:  Correct the problem and rerun the
  recovery.
  
  Module:  FRXMPSB0
  

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:

  UK26225

Modules/Macros

• FRXBDMG0 FRXDDCR0 FRXEDSG  FRXEDSG0 FRXEGRM1
  FRXGRPT0 FRXGUOW0 FRXIRTH0 FRXIVCN0 FRXMINI0 FRXMINI1 FRXMNP
  FRXMPSB0 FRXMTC   FRXNDSI  FRXNDSO  FRXRVGB  FRXRVIC  FRXRWCE
  FRXUORM0 FRXVADD0 FRXVSTA0 FRXVSTA1
  

Fix information

• Fixed component name

  IMS DB RECOVERY

• Fixed component ID

  5655I4400

Applicable component levels

• R310 PSY UK26225

     UP07/06/20 P F706