Use the TMSEXPDT utility to enforce data set retention standards without modifying the JCL used to create tape data sets.
If the JCL does not specify an EXPDT, RETPD, or ACCODE parameter, CA 1 assigns the default retention which is defined using the RP parameter in the TMOOPTxx member of hlq.CTAPOPTN. When the CA 1 default retention is used, TMSEXPDT has the capability to reset the date if the Retention Data Set (RDS) has an entry for the data set name or SMS Management Class.
Data sets that received the default retention defined by the RP parameter can be identified by:
The RDS is a sequential file containing 80-byte records describing the SMS management class, the data set name, optional qualifying job name, the desired EXPDT or RETPD to be assigned, or an EXPDT/RETPD to be assigned to tape data sets closed by ABEND processing. Data set name and job name can be specified using the CA 1 Pattern Masking Specification. RDS entries are sorted according to the CA 1 pattern masking hierarchy, as established by CTSPM.
Note: For more information on pattern masking see the Programming Guide.
Optionally, you can override EXPDT or RETPD values supplied by the JCL by setting the Retention Override (RO) parameter in TMOOPTxx to YES. The eligible for RDS override bit in FLAG1 is turned on for all tape data sets, allowing you to enforce your data set retention standards. If the Retention Override option is set to NO, the eligible for RDS override bit in FLAG1 is not turned on during OPEN processing when the JCL specifies an EXPDT, RETPD, or ACCODE parameter, thereby preventing RDS override action.
TMSEXPDT provides an option for reassigning an EXPDT or RETPD to a tape data set closed by ABEND processing. This allows tape data sets created in a step that abended to receive an EXPDT or RETPD that differs from the EXPDT or RETPD assigned to a tape data set that went through normal CLOSE processing.
In addition, TMSEXPDT can be used to reset the EXPDT or RETPD of all tape data sets matching an RDS rule. When SELECT=ALL is specified on the RDS rule, all matching data sets can be assigned a new EXPDT or RETPD, regardless of the eligible for RDS override bit in FLAG1.
CA 1 also provides an alternate way to enforce data set retention standards defined in the RDS. The Realtime Expiration feature is designed to apply the RDS rules in realtime as tape files are created. Note that the Retention Override (RO) parameter discussed above must also be set on for Realtime Expiration to be able to override expiration dates set through JCL. For further information on the Realtime Expiration feature see the information on the TMSINIT utility later in this guide.
Because TMSEXPDT is used to establish expiration dates in the TMC, TMSEXPDT must be executed before TMSCTLG, TMSCYCLE and TMSCLEAN.
CA 1 must be active or batch active to run TMSEXPDT.
For normal processing, TMSEXPDT queries the TMC to determine if an RDS override should be applied. Records that are eligible for normal TMSEXPDT processing can be identified by:
FLAG1 equal to TMDFAULT (bit X'01') (eligible for RDS override)
FLAG1 not equal to TMDELET (bit X'02') (volume in inactive (DELETE) status)
FLAG1 not equal TMSCRTCH (bit X'04') (volume in scratch status)
FLAG1 not equal TMABEND (bit X'10') (volume closed by abend)
FLAG1 not equal TMINTAL (bit X'80') (internal field manually updated)
FLAG2 not equal TMETMS (bit X'01') (expired by TMS, CA 11, or EDM)
DSNB FLAG1 equal to DSNBDFLT (bit X'01') (eligible for RDS override)
DSNB FLAG1 not equal DSNBUSRU (bit X'80') (updated by user)
DSNB FLAG1 not equal DSNBTMSI (bit X'40') (expired by TMS, CA 11, or EDM)
DSNB FLAG1 not equal DSNBABND (bit X'10') (data set closed by abend)
For abend date processing, records that are eligible for TMSEXPDT processing can be identified by:
FLAG1 equal to TMABEND (bit X'10')
FLAG1 equal to TMDFAULT (bit X'01')
FLAG1 not equal to TMDELET (bit X'02')
FLAG1 not equal TMSCRTCH (bit X'04')
FLAG1 not equal TMINTAL (bit X'80')
FLAG2 not equal TMETMS (bit X'01')
DSNB FLAG1 equal to DSNBABND (bit X'10')
DSNB FLAG1 equal to DSNBDFLT (bit X'01')
DSNB FLAG1 not equal DSNBUSRU (bit X'80')
DSNB FLAG1 not equal DSNBTMSI (bit X'40')
For reassigning EXPDT or RETPD to all data sets (SELECT=ALL), records eligible for TMSEXPDT processing can be identified by:
FLAG1 not equal TMDELET (bit X'02')
FLAG1 not equal TMSCRTCH (bit X'04')
any value in DSNB FLAG1
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|