The  Retrieve Virtual  Tape  Resources command  retrieves  the list  of
virtual tape  resources, the status  of each, and  a count of  how many
exist.   The names and status of each  of the resources are passed back
in a 1000 byte and 1200  byte variables where each resource name  is 10
bytes and each status is 12 bytes.

A typical series of commands would be:

             DCL           &RSCNAM *CHAR LEN(1000)
              .
             RTVVTPRSC     RSCNAM(&RSCNAM)

RTVVTPRSC escape messages you can monitor for
---------------------------------------------

None.  Escape messages from based on functions will be re-sent.

Command parameters                                    *CMD
------------------

   RSCNAM        A  return value  of the  virtual tape  resource names.
                 Each  resource takes  10 bytes.   This is  an optional
                 return variable  that  if used  must be  specified  as
                 *CHAR LEN(1000).

   RSCSTS        A return  value of the status  of each of  the virtual
                 tape  resource  names.   Each status  takes  12 bytes.
                 This is  an  optional  return variable  that  if  used
                 must be specified as *CHAR LEN(1200).

   RSCCNT        A  return  value   of  the  number  of   virtual  tape
                 resource names.   This is an  optional return variable
                 that if used must be specified as *DEC LEN(3 0).

Restrictions
------------

Because  the command returns  variables, RTVVTPRSC may  only be used in
a CL program.

Prerequisites
-------------

The following TAA Tools must be on your system:

     SNDESCINF       Send escape information

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   RTVVTPRSC     *CMD                   TAATAPQ       QATTCMD
   TAATAPQC      *PGM       CLP         TAATAPQC      QATTCL
   TAATAPQR      *PGM       RPG         TAATAPQR      QATTRPG