The  Retrieve  ASP  (Auxiliary  Storage  Pool)  command  retrieves  the
number of  ASPs on the  system and a  list of their  numbers and device
names.   This allows  for further processing  of the ASPs  by using the
retrieved numbers or names.

The following is  in a  format that may  be copied to  a CL program  to
use the RTVASPLST command:

             DCL        &COUNT *DEC LEN(3 0)
             DCL        &LIST *CHAR LEN(1000)
             DCL        &DEVLST *CHAR LEN(9990)
             DCL        &RX *DEC LEN(5 0)
             DCL        &DX *DEC LEN(5 0)
             DCL        &PROCESS *DEC LEN(3 0)
             DCL        &ASP *CHAR LEN(3)
             DCL        &ASPDEV *CHAR LEN(10)
              .
             RTVASPLST  ASPCNT(&COUNT) ASPLST(&LIST) +
                          ASPDEVLST(&DEVLST)
             CHGVAR     &RX -2
             CHGVAR     &DX -9
 LOOP:       IF         (&PROCESS *LT &COUNT) DO /* Process */
             CHGVAR     &PROCESS (&PROCESS + 1)
             CHGVAR     &RX (&RX + 3)
             CHGVAR     &ASP %SST(&LIST &RX 3)
             CHGVAR     &DX (&DX + 10)
             CHGVAR     &ASPDEV %SST(&DEVLST &DX 10)
                        /*                                  */
                        /*     Your processing of &ASP      */
                        /*       and &ASPDEV                */
                        /*                                  */
             GOTO       LOOP
             ENDDO      /* Process */

A  3 byte character  field is  used for  the ASP  number.   The &ASPLST
variable  is  defined as  LEN(1000)  and  the &DEVLST  as  LEN(9990) to
allow for expansion by the system.

RTVASPLST escape messages you can monitor for
---------------------------------------------

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

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

   ASPCNT        The count  of  ASPs  on  the system.    If  used,  the
                 variable must be declared as *DEC LEN(3 0).

   ASPLST        The list  of ASPs on the  system by number.   If used,
                 the  variable  must be  declared  as  *CHAR LEN(1000).
                 The first  ASP is  in  positions 1-3  and is  a  *CHAR
                 LEN(3) value.    The second  ASP is  in 4-6,  etc.   A
                 large   variable   is  used   to   allow  for   system
                 expansion.

   ASPDEVLST     The  list  of  ASP device  names  on the  system.   If
                 used,  the   variable  must   be  declared  as   *CHAR
                 LEN(9990).    The first  ASP  device  is in  positions
                 1-10  and is  a *CHAR LEN(10)  value.   The second ASP
                 is in 11-20 etc.   A large variable  is used to  allow
                 for system expansion.

                 If  the ASP  is  a number  between  1  and 32  (system
                 basic  ASPs), the  corresponding ASPDEVLST  value will
                 blank.

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

Because RTVASPLST returns  values, the command  may only be  used in  a
CL Program.

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

The following TAA Tools must be on your system:

     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVASPLST     *CMD                   TAAASPB       QATTCMD
   TAAASPBC      *PGM       CLP         TAAASPBC      QATTCL