The Retrieve  Work Station  Attributes command  allows you to  retrieve
the  attributes of  the requester work  station into  your program.   A
typical use would be:

     RTVWSDA    DEVTYP(&DEVTYP)
     IF         (&DEVTYP *EQ '3180') DO ....

This  allows  you to  condition  your logic  by  determining attributes
about the  device such  as screen  size,  whether the  device is  local
etc.

RTVWSDA can only be  run in an interactive CL program.   One or more of
the return parameters may be specified.

The  command causes an open to  the device.  The  RPG POST operation is
used to access the attributes.  No PUT or GET occurs to the device.

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

   DEVTYP        The device  type.    This  must be  defined  as  *CHAR
                 LEN(6).   This includes  values such  as 3179,  317902
                 (for  the Model  2 display),  3180,  etc.   The values
                 are shown in the  RPG Reference Manual (Positions  272
                 - 277) of the feedback area.

   ROWS          The number  of  rows on  the display.    This must  be
                 defined as *DEC LEN(4 0).

   COLS          The number  of columns on  the display.   This must be
                 defined as *DEC LEN(4 0).

   SCNSIZ        The  screen  size  of  the  display.    This  must  be
                 defined as *DEC  LEN(4 0).   A typical value would  be
                 1920 (80 x 24).

   LOCAL         Whether  the  device is  local  (attached  to a  local
                 workstation  controller).   This is  a Y/N value.   It
                 must be defined as *CHAR LEN(1).

   ALWBLK        Whether the device  allows blinking.   This  is a  Y/N
                 value.  It must be defined as *CHAR LEN(1).

   RMTLOC        The  remote  location  of  the device.    It  must  be
                 defined  as *CHAR  LEN(8).   If  the device  is local,
                 blanks will exist.

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

Because the command  returns variables, it  can only be  executed in  a
CL Program.

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

None.

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

None, the tool is ready to use.

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

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

   RTVWSDA       *CMD                      TAAWSDA        QATTCMD
   TAAWSDAD      *FILE         DSPF        TAAWSDAD       QATTDDS
   TAAWSDAC      *PGM          CLP         TAAWSDAC       QATTCL
   TAAWSDAR      *PGM          RPG         TAAWSDAR       QATTRPG