The  Retrieve  Hardware  Resource  command  retrieves  the  name  of  a
variety  of hardware  resources  by type.    A list  of  resource names
(such  as memory cards) may  exist.  The API  QRZSCHE is used to return
the information.    For example,  RSCTYP(*ECS) may  return  a value  of
CMN01 which  is the  name of  the first and  only resource  assigned to
Electronic Customer Support.

A typical command would be:

              DCL          &RCSNAMES *CHAR LEN(3200)
              DCL          &ECSNAM *CHAR LEN(32)
               .
              RTVHDWRSC    RSCTYP(*ECS) RSCNAMES(&RSCNAMES)
              CHGVAR       &ECSNAM %SST(&RSCNAMES 1 32)

Up  to 100  resource names are  returned.   Each entry  takes 32 bytes.
The optional RSCCNT parameter contains the number returned.

RTVHDWRSC  escape messages you can monitor for
---------------------------------------------

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

Security considerations
-----------------------

The QRZCRTH API  is used to  retrieve a 'handle'  which is required  to
access multiple resource names.  This program is PUBLIC(*EXCLUDE).

To avoid authorization  problems, the program TAASYSXC  is specified as
USRPRF(*OWNER).   All  commands within  the  program are  either system
commands, calls to system APIs, or qualified TAA Tool commands.

The same  information as  retrieved by  RTVHDWRSC is  available in  the
PUBLIC(*USE) command DSPHDWRSC.

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

   RSCTYP        The  resource type  to be  retrieved.   The  following
                 special values exist:

            *CONSDEV        Console device
            *CTLBUS         Bus controller
            *CTLCMN         Controller communications
            *CTLCONS        Controller console
            *CTLPNL         Control panel
            *CTLSTG         Controller storage
            *CTLWRKSTN      Controller workstation
            *ECS            Electronic customer support
            *IOPCMN         IOP communications
            *IOPSTG         IOP storage
            *IOPWRKSTN      IOP workstation
            *MAINPCSR       Main processor
            *MEMCARDS       Memory cards
            *SRVPCSR        Service processor
            *SYSHDW         System hardware

The *ECS  entry retrieves the default communications  resource that the
system  uses to  create (or  recreate) the  Electronic Customer Support
lines  (QESLINE  and  QTILINE).    If  you  have   changed  these  line
descriptions  to use  other resources,  then  the *ECS  value will  not
return the currently used resource.

   RSCNAMES      An  optional return variable  that will  contain up to
                 100 resource  names.    Each resource  name  takes  32
                 bytes.   The value  of the first  resource name  is in
                 positions  1  - 32,  the  second resource  name  is in
                 positions 33  - 64,  etc.   If specified,  the  return
                 variable must be declared as *CHAR LEN(3200).

   RSCCNT        An  optional return  variable  that will  contain  the
                 number  of resource  names  that exist.    The maximum
                 value  may exceed 100  which is the  maximum number of
                 names  that   may   be   returned  in   the   RSCNAMES
                 parameter.   If  specified, the  return variable  must
                 be declared as *DEC LEN(3 0).

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

None.

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
   ------        ----    ---------      ----------    ----------

   RTVHDWRSC     *CMD                   TAASYSX       QATTCMD
   TAASYSXC      *PGM       CLP         TAASYSXC      QATTCL