Job Control Statements

Utilities › TMSTPPRO Utility—Process Tape Volume Header Label Information › Report Description › Job Control Statements

Job Control Statements

//stepname EXEC PGM=TMSTPPRO[,PARM='[DATEFMT=(fmt)],parm']
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//IEFRDER  DD  UNIT=(TAPE,,DEFER),DISP=(OLD,KEEP),LABEL=(,BLP),
//             VOL=SER=anyvol,DSN=any.tape.file
//OUTPUT   DD  DSN=CAI.CA1.IMAGE,UNIT=TAPE,DISP=(NEW,KEEP)     *NOTE

Note: The DD for output is necessary for an output request, for example, PARM=OUTPUT.

Parameter Definition

More than one parameter may be specified.

The parameters specified are processed in the order shown, not in the order of their appearance in the EXEC statement.

DATEFMT=(fmt)

Specifies the date format to be used by TMSTPPRO. The date pattern indicated by (fmt) is limited to 10 bytes and must be enclosed in parentheses. This parameter is optional. For more information on valid date formats, see Overriding the Preferred Date Pattern.

CONSOLE

Reads the tape header label and formats a display to the console operator's terminal through route codes 3 and 5 (TAPE POOL/TAPE LIBRARY). This option is the default.

COMPARE

Reads the tape header label and compares the data set name of the tape to that of the TMC. Issues a WTO of the tape header and the TMC data set name if a difference exists. If the TMC data set name is HEXZEROS, it issues a message. If the data set names are equal, it displays the contents of the tape header label.

UPDATE [,KEYWORD][,EXPDT=[date or keyword]]

Reads the tape header label and constructs a dummy TMC record. Directly updates the TMC only if the TMC record is in scratch status (the scratch bit is on) and the TMC expiration date (EXPDT) is less than or equal to today's date.

KEYWORD: Indicates that expiration dates in the range of 98001 to 99364 are to be treated as CA 1 keywords.
EXPDT=[date or keyword]: Assigns this date or keyword as the TMC expiration date (EXPDT) of the tape. The tape is now eligible for Retention Data Set processing under TMSEXPDT. The highest expiration date allowed is 2155/366.

ERASE

Reads the tape header label and verifies that the tape is in the TMC, is in scratch status, and that the data set names match. If the volume serial number was not supplied by VOLLABI (the VOLSER from the VOL1 record on SL or AL tapes) or the TMSXTPPR user exit, the console operator is asked to supply the volume serial number. The final action taken before the tape is erased is to verify with the console operator that the erase is still desired on this volume.

This verification may be requested or suppressed as a subparameter of the ERASE option. For example, ERASE(VERIFY) will prompt the console operator for final approval. ERASE(NOVERIFY) will suppress the console operator's intervention. The default is VERIFY.

The position of the tape, before the erase sequence is to begin, will depend on the absence or presence of the volume serial number at the time the erase logic was invoked. If the console supplied the volume serial number, the tape is rewound and ERASE will start at load point. If the volume serial number was supplied by the tape header (SL), or supplied by the macro (NSL), the tape is not rewound.

In the ERASE sequence, a tape mark is written followed by an attempt of IBM's Data Security Erase (DSE). If the DSE fails at any point, the DSE is dropped and an ERASE gap loop is used in its place.

OUTPUT

Reads the tape header label and constructs a TMC record that is written to a sequential output file. If ERASE is specified and fails, the output record is not written.