SARFSS cartriges scratched before the date.
search cancel

SARFSS cartriges scratched before the date.

book

Article ID: 10817

calendar_today

Updated On:

Products

CA 1 Flexible Storage

Issue/Introduction

SAR tapes need to be kept even if they abend.

VIEW is abending tapes and EXPDT is set to EXPDT=LDATE/nnn 

The tape is scratching earlier than expected.                                                                                           

 



Resolution

The EXPDT=LDATE/nnn is being set due to the CA1 option ABE.  It is set to  EXPDT=LDATE/nnn where nnn is the value of the ABE parameter coded in the TMOOPT00.  The volume will be scratched when the  EXPDT =LDATE/nnn is reached.

This could cause the tapes to scratch earlier than expected.                              

 

To prevent this use one of the 2 methods:     

1) code the TMSEXITB exit to bypass the abend retention for these datasets. 

 OR

2) use the RDS to override the abend retention   (RECOMMENDED so that an exit is not needed to be maintained )

 

In order for the RDS to override the retention when a file has abended, you have to code the ABEND=RETPD=xx or ABEND=EXPDT=xxxxxxx on the RDS rule (separate line for each data set):                                    

    sample:                                                                       

DSN=MVS.SAR.*.SARTAPE,LABEL=EXPDT='CATALOG'                               

DSN=MVS.SAR.*.SARTAPE,ABEND=EXPDT=xxxxxxx                                 

DSN=MVS.SAR.*.*.SARTAPE,LABEL=EXPDT='CATALOG'                             

DSN=MVS.SAR.*.*.SARTAPE,ABEND=EXPDT=xxxxxxx                               

                                                                          

You will only need to add the SELECT=ALL statement for the first time in order to pick up any data sets in the past that had the ABEND flag on.    

After that, with the ABEND statement in the RDS, you will no longer need the SELECT=ALL statement.  You will also need to add the PARM of DSNBS if you want to update secondary files.                                       

                                                                          

Please keep in mind that the ABEND override will work for the S122 abend that you are experiencing, but there are some system abends that CA-1 does not see, i.e. SBxx, SDxx, so the ABEND bit would not be turned on.  Since you are receiving the S122 abend, this would not affect you, but I wanted  you to know in case you have these other types of abends on these data sets.

The RDS file is the file used in input during the TMSEXPDT or

on the //TMSRDS DD DISP=SHR,DSN=SAMS.CA1.RDS * REALTIME RETENTION if the one is coded on the TMSINIT. 

To can override EXPDT or RETPD values supplied by the JCL you need to set the Retention Override (RO) parameter in TMOOPTxx to YES.

To load this value, a TMSINIT should be restarted.

If the RDS file is coded during the start of TMSINIT, once that this one has been modified, TMSINIT should be started.