The Retrieve Tape Label command retrieves information about a mounted
volume and the first file (if any). This can be used to determine
such information as the volume ID, the owner, the density, the name
of the first file on tape, the date it was written, and the
expiration date. The QTARTLBL API is used.
A typical series of commands would be:
DCL &VOLID *CHAR LEN(6)
.
RTVTAPLBL DEV(xxx) VOLID(&VOLID)
If there are no files are the tape, some values will be returned as
blanks.
RTVTAPLBL escape messages you can monitor for
----------------------------------------------
None. Escape messages from based on functions will be re-sent.
Command parameters *CMD
------------------
DEV The device where the tape is mounted.
VOL The volume ID to retrieve.
*MOUNTED is the default.
A specific volume ID may be entered in 6 characters
or less.
STDLBL Whether the tape has a standard label. A *YES or
*NO will be returned. This is an optional return
variable that if used must be specified as *CHAR
LEN(4).
CODE Whether the tape has an ASCII or EBCDIC label.
*ASCII or *EBCDIC will be returned. This is an
optional return variable that if used must be
specified as *CHAR LEN(7).
DENSITY The density of the tape. A value such as *SLR60,
*QICnnn, will be returned. This is an optional
return variable that if used must be specified as
*CHAR LEN(10).
OWNER The owner of the tape. This is an optional return
variable that if used must be specified as *CHAR
LEN(10).
VOLID The volume ID of the tape. This is an optional
return variable that if used must be specified as
*CHAR LEN(6).
CTGID The cartridge ID if it exists. If it does not
exist, blanks will be returned. This is an optional
return variable that if used must be specified as
*CHAR LEN(10).
FSTFILE The name of the first file on the tape if it exists.
If it does not exist, blanks will be returned. This
is an optional return variable that if used must be
specified as *CHAR LEN(10).
FSTWRTDAT The date in the format CYYMMDD that the first file
was written to tape. If a file does not exist,
blanks will be returned. This is an optional return
variable that if used must be specified as *CHAR
LEN(7).
FSTEXPDAT The expiration date in the format CYYMMDD of the
first file. If the expiration date is permanent,
*PERM will be returned. If a file does not exist,
blanks will be returned. This is an optional return
variable that if used must be specified as *CHAR
LEN(7).
Restrictions
------------
Because the command returns variables, it may only be used in a CL
program.
Prerequisites
-------------
The following TAA Tools must be on your system:
RSNLSTMSG Resend last message
RTVDEVTAP Retrieve device tape
SNDESCMSG Send escape message
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
RTVTAPLBL *CMD TAATAPP QATTCMD
TAATAPPC *PGM CLP TAATAPPC QATTCL
|
