The RTVCLSA command allows  you to extract one or  more parameters from
an  existing class  object into a  CL program.   This  can be  used for
various functions in working with programs.

A typical use of the command is to extract the PURGE parameter:

        DCL         &PURGE *CHAR LEN(4)
        .
        .
        RTVCLSA     CLS(CLSA) PURGE(&PURGE)
        IF          (&PURGE *EQ '*YES') DO .....

The  command  parameters may  be prompted  for with  the command.   The
value in the  parenthesis for each  parameter describes the length  and
type  of field  to  be specified  in  your CL  program  to receive  the
parameter.

The information is accessed using the QWCRCLSI API.

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

   CLS           Qualified  class   name.    The  library  defaults  to
                 *LIBL.

   RTNLIB        An optional  return  variable that  will  contain  the
                 library name  where the class  object was found.   The
                 value may  be helpful if the  class object is accessed
                 without a specific  library name.   If specified,  the
                 variable must be declared as *CHAR LEN(10).

   RUNPTY        An  optional return  variable  that will  contain  the
                 run  priority  of   the  class.    If  specified,  the
                 variable must be declared as *CHAR LEN(2).

   TIMESLICE     An  optional  return  variable that  will  contain the
                 time  slice  that a  job  using  this  class  may  use
                 before other  jobs are  given the opportunity  to run.
                 The   value   is  returned   in   milliseconds.     If
                 specified, the  variable  must be  declared  as  *CHAR
                 LEN(7).

   PURGE         An  optional return  variable that  will contain  *YES
                 or  *NO  for   whether  a  job  using  this  class  is
                 eligible to  be purged.   If  specified, the  variable
                 must be declared as *CHAR LEN(4).

   DFTWAIT       An  optional return  variable  that will  contain  the
                 default wait  time for the  class.  The  value will be
                 *NOMAX  or  a number  of seconds.   If  specified, the
                 variable must be declared as *CHAR LEN(7).

   CPUTIME       An optional  return  variable  that will  contain  the
                 maximum amount of  CPU time that a job  may have using
                 this  class.    A  value  of  *NOMAX  or  a number  of
                 seconds  will  be   returned.     If  specified,   the
                 variable must be declared as *CHAR LEN(7).

   MAXTMPSTG     An  optional return  variable  that  will contain  the
                 maximum  amount of  temporary  storage for  the class.
                 The value will  be *NOMAX or  the number of  kilobytes
                 will be  returned.   If specified,  the variable  must
                 be declared as *CHAR LEN(7).

   MAXTHD        An  optional  return variable  that  will contain  the
                 maximum  number of  threads per  job.   The value will
                 be *NOMAX or the  number of threads will  be returned.
                 If specified,  the variable must be  declared as *CHAR
                 LEN(6).

   TEXT          An  optional  return variable  that  will  contain the
                 text description of the  class object.  If  specified,
                 the variable must be declared as *CHAR LEN(50).

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

None.

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

None.

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

None, the tool is ready to use.

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

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

   RTVCLSA       *CMD                      TAACLSA        QATTCMD
   TAACLSAC      *PGM          CLP         TAACLSAC       QATTCL