The RTVNBRACT command  returns the information from the  WRKSBS command
to  a  CL program.    The  information you  can  retrieve includes  the
number  of active jobs, the number  of active subsystems and the number
of  active  subsystems  with  active  jobs.    This   is  helpful  when
attempting to determine  if the restricted state has  been reached or a
subsystem  is safe to  shutdown.   You can request  all subsystems (the
default) or a specific subsystem.

A typical use of the command is as follows:

             RTVNBRACT  ACTJOBS(&ACTJOBS2))
             IF         (&ACTJOBS2 *EQ 1) DO /* This is the only one */
              .
              .            /* You are the only job in the system */
              .

The command  uses the  TAA Tool  CVTWRKSBS to  access  the output  from
WRKSBS.

The  WRKSBS output  shows a  count of  1 for  each active  workstation.
Thus  you cannot determine  if there are  group jobs or  system request
jobs active.

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

   SBS           The subsystem to be considered.   The default is  *ALL
                 meaning to return  counts for all the subsystems.   If
                 a specific  subsystem is named, the  return counts are
                 only for that specific subsystem.

   ACTJOBS       This  is  an optional  return  variable which  must be
                 coded as *DEC  LEN(5 0).   It will contain the  number
                 of active jobs per the SBS parameter.

                 If  the  number  of  active jobs  exceeds  99999,  the
                 value will be set to 0.  Use ACTJOBS2.

   ACTJOBS2      This  is  an optional  return variable  which  must be
                 coded as *DEC  LEN(7 0).  It  will contain the  number
                 of active jobs per the SBS parameter.

   ACTSBS        This  is an  optional return  variable  which must  be
                 coded  as *DEC LEN(5 0).   It will  contain the number
                 of active subsystems per the SBS parameter.

   SBSJOBS       This is  an optional  return  variable which  must  be
                 coded as *DEC  LEN(5 0).   It will contain  the number
                 of subsystems  per the SBS parameter  that have active
                 jobs.

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

Because  RTVNBRACT returns variables,  the command can  only be used in
a CL program.

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

The following TAA Tools must be on your system:

      CVTWRKSBS  Convert WRKSBS to an output file
      EXTLST     Extract list

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

None, the tool is ready to use.

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

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

   RTVNBRACT     *CMD                      TAAJOBB        QATTCMD
   TAAJOBBC      *PGM          CLP         TAAJOBBC       QATTCL