Job Control Statements

Utilities › TMSCLEAN Utility—List Scratch, Clean and Scratch Inventory Volumes › Extend Expiration Dates › Job Control Statements

Job Control Statements

//stepname EXEC PGM=TMSCLEAN,
//             PARM='[TEST,]EXTEND[,LDATE],nn,xx,aaaaaa'
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//TMSRPT   DD  SYSOUT=A
//EARLOUT  DD  DSN=extend.earlout,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,5),
//             DCB=(RECFM=FB,LRECL=376,BLKSIZE=15416)      *NOTE
[//TMSRPT89  DD SYSOUT=A]
[//SYSIN     DD *]
[VOL=ssssss-eeeeee]

[EXCLUDE=ssssss-eeeeee]
[SCRPOOL=xxxxx]
[FILE1DSN=pattern]

Note: The BLKSIZE can be any multiple of 376.

Parameter Definitions

TEST: Process normally, but do not update any TMC records. The records processed are written to EARLOUT to subsequently produce the Extend Expiration Dates report, but the TMC is not updated. This parameter is optional, and, if used, must be specified before EXTEND.
EXTEND: Extends the expiration dates on qualified TMC records.
LDATE: Allows LDATE/ddd expirations to be extended with all other qualified tapes.
nn: Is the number of days to extend the expiration date. If the tape has an expiration date less than the current date, it may still be eligible for scratch after adding the extension.
xx: Is the range of days from the current date within which the existing expiration date must fall to qualify for extension, that is, tapes expiring within xx days from the current date are to be extended nn days.
aaaaaa: Is the index of a data set or fully qualified data set name of data sets to be extended. The specification ALL may be used to extend all data sets, but when used with FILE1DSN control statements, a parm of ALL must be used.

JCL Considerations

SYSIN DD: If the SYSIN DD is found, the TMC is processed based on the volumes specified in the range control statements. If no control statements are coded, the complete TMC is processed. A maximum of 20,000 range control statements is allowed. If the SYSIN DD is not found, then TMSCLEAN processes the complete TMC.
TMSRPT89 DD: If the SYSIN DD is used, this DD must be coded. The range control statements are printed to this DD and any errors found in the control statements are printed to this DD.

Range Control Statements

VOL=ssssss-eeeeee

The VOL statement is used to select the volumes to be processed based on a starting and ending volume number. A single volume may be specified by only coding a start volume.

SCRPOOL=xxxxx

The SCRPOOL statement is used to select the volumes to be processed based on a scratch subpool name.

FILE1DSN=pattern

The FILE1DSN statement is used to select volumes based on the DSN of the first file on the volume, using standard CA 1 pattern masking. When the FILE1DSN statement is the only selection statement used, the complete TM will be processed and only volumes that match the specified pattern are processed. If FILE1DSN= statement is used with VOL and/or SCRPOOL statements, then only volumes within the requested ranges that match the pattern are processed.

EXCLUDE=ssssss-eeeeee

The EXCLUDE statement selects the volumes you want to exclude from processing based on a starting and ending volume number. To specify a single volume, code only a start volume.

Start and end volumes must be six digit numbers. If the volume number has five or fewer digits, it must be padded with 0s.

EXCLUDE=001500-001575

The EXCLUDE control statement can be used without a VOL control statement.

Example: The control statement excludes the volser range of 001500-001550 from being processed by TMSCLEAN.

EXCLUDE=001500-001550

Note: If the volumes included match the volumes excluded, the exclude control statement overrides the include control statement.

Extending Expiration Date Examples

An expiration date is extended four days for all data sets expiring during a four-day holiday weekend.
```
//stepname EXEC PGM=TMSCLEAN,
//             PARM='EXTEND,04,04,ALL'
```
An expiration date is extended four days for data sets beginning with the data set name ABC that are expiring during a four-day holiday period.
```
//stepname EXEC PGM=TMSCLEAN,
//             PARM='EXTEND,04,04,ABC'
```
All tapes including LDATE tapes that will expire during a four-day holiday weekend are extended.
```
//stepname EXEC PGM=TMSCLEAN,
//             PARM='EXTEND,LDATE,04,04,ALL'
```