OA64125: DFSMSRMM DEFTABLE NOKEYDATE DOES NOT HANDLE RETPD WHEN SPECIFIED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Current design of DEFTABLE command operand NOKEYDATE does not
  ignore the specification of RETPD= in JCL and does not behave
  the same way as it does with EDGUX100 UXTABLE RO=NO(Retention
  Override=NO).
  .
  With RO=NO specified in UXTABLE, the rule is only applied when
  neither EXPDT= or RETPD= is specified.
  .
  When using the conversion tool SYS1.SAMPLIB(EDGJDEF) which
  converts UXTABLE to DEFTABLE it is converting UXTABLE RO=NO as
  NOKEYDATE in DEFTABLE.
  .
  DEFTABLE NOKEYDATE rule is being applied when RETPD= is being
  specified. The behaviour is not the same as it is with UXTABLE
  RO=NO.
  .
  As an example when following DEFTABLE command is used and RETPD=
  is used in JCL, this rule is being applied
  .
  DEFAULT -
      DSNAME(**) -
      JOBNAME(*) -
      NOKEYDATE  -
      VRSVAL(CATALOG)
  .
  Where as the following rule in UXTABLE is NOT applied when
  RETPD= is used in the JCL:
  .
  EDGCVRSG DSN=*,    X
           RO=NO,    X
           VRSVAL=CATALOG
  .
  .
  To address this issue with the DFSMSrmm handling of NOKEYDATE in
  DEFTABLE, a new NODATE operand will be added. NODATE will
  handle the case where neither an expiration date or retention
  date is specified (no date is provided from either source).  The
  code that converts the UXTABLE statements to the DEFTABLE
  statements will be updated to parse for UXTABLE RO=NO and if
  found it will generate NODATE instead of NOKEYDATE.
  .
  For example:
  .
  DEFAULT -
      DSNAME(**) -
      JOBNAME(*) -
      NODATE  -
      VRSVAL(CATALOG)
  .
  

Local fix

• BYPASS/CIRCUMVENTION:
  Remove the default DEFTABLE entry for NOKEYDATE and
  create a '**' VRS with UntilExpired and WhileCatalog=NO.
  
  RECOVERY ACTION:
  Remove the default DEFTABLE entry for NOKEYDATE and
  create a '**' VRS with UntilExpired and WhileCatalog=NO.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * DFSMSrmm customer using DEFAULTS table.                      *
  * EDGRDEF REXX exec to convert UXTABLE to a DEFAULTS table     *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * Defaults table is missing a function to assign attributes    *
  * only to the DATASET where key date or retention period is    *
  * not specified for DATASET in the JCL.                        *
  * EDGRDEF REXX exec converts Retention Overide = NO (RO(NO))   *
  * UXTABLE entries with NOKEYDATE DEFAULTS table entry. which   *
  * is not same as RO(NO).                                       *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• A NODATE keyword has been added to the DEFAULTS table to allow
  users to assign default attributes to datasets where a retention
  period or expiry date is not specified. The EDGRDEF REXX utility
  has been modified to convert the RO(NO) keyword in the UXTABLE
  to the NODATE keyword in the DEFAULTS table.
  Documentation changes can be found...
  
  https://public.dhe.ibm.com/eserver/zseries/zos/DFSMS/RMM/OA64125
  /
  

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:

  UJ92162 UJ92163

Modules/Macros

• EDGHCD05 EDGPARM  EDGSOCS  EDGDEFTB EDGMTAB  EDGHCD01 EDGSRV1
  EDGTSO   EDGXSFB  EDGRDEF
  

Fix information

• Fixed component name

  DFSMSRMM

• Fixed component ID

  5695DF186

Applicable component levels

• R250 PSY UJ92163

     UP23/03/29 P F303 ¢

• R240 PSY UJ92162

     UP23/03/29 P F303 ¢

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.