The Retrieve  Subsystem  Pool command  uses the  number  assigned to  a
subsystem pool  to retrieve the  corresponding system pool  number when
the  subsystem is  active.   This is  the same  information as  seen on
WRKSBS.

Assume you defined a  subsystem.  Using DSPSBSD, the  'Pool definition'
option  displays  a   list  of  the  pools  defined.     Each  pool  is
consecutively  numbered 1  -  10 as  a 'Pool  ID'.   If a  storage size
exists, it is  a user defined pool  (versus a shared  pool).  When  the
subsystem  is started,  the  system must  assign  storage  to any  user
defined pools.

The  system uses its own  consecutive numbers 1 -  64 when it discusses
the pools that are in use.   These numbers can be seen with  WRKSYSSTS.

Each user  defined subsystem pool  becomes a system  pool.  The  WRKSBS
display allows  you to correlate the subsystem pool  ID with the number
assigned as a system pool.

The  function  provided by  RTVSBSPOOL  is to  allow  you to  input the
subsystem  pool  ID  and  retrieve  the  system  pool  number  that  is
assigned.

Typical coding would be:

             DCL           &SYSPOOL *DEC LEN(5 0)
              .
             RTVSBSPOOL    SBSD(xxx) SBSPOOL(3) SYSPOOL(&SYSPOOL)

The  third  pool  of  the  subsystem  would be  searched  for  and  the
corresponding system pool ID returned.

RTVSBSPOOL escape messages you can monitor for
----------------------------------------------

      TAA9892    The subsystem is not active
      TAA9893    The subsystem pool ID could not be found

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

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

   SBSD          The  qualified  name  of  the  subsystem  to  retrieve
                 from.  The library value  defaults to *LIBL.   *CURLIB
                 may also be used.

                 The subsystem must be active.

   SBSPOOL       The  number  of  the  subsystem pool.    This  is  the
                 number  that  is displayed  by  DSPSBSD  for the  pool
                 definitions.  It must be a value between 1 and 10.

   SYSPOOL       The return pool ID  assigned by the  system.  This  is
                 the  value  that  is  displayed   with  WRKSBS.    The
                 variable must be declared as *DEC LEN(5 0).

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

None.

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

The following TAA Tools must be on your system:

     EDTVAR          Edit variable
     RTVSBSD         Retrieve subsystem
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVSBSPOOL    *CMD                   TAAJODT       QATTCMD
   TAAJODTC      *PGM       CLP         TAAJODTC      QATTCL