TAA Tools
RTVTAPLBL       RETRIEVE TAPE LABEL                    TAATAPP

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
					

Added to TAA Productivity tools July 15, 2006


Home Page Up to Top