The Retrieve  Translate Table tool  provides a  method of describing  a
standard translate  table for system wide use  and retrieving the value
in  a CL program.   A data area  is shipped with  a value of QSYSTRNTBL
in QSYS  which is  the name of  the English  version to  fold lower  to
upper case.   The value  is retrieved by  various TAA Tools to  allow a
translation to occur.

The data area which is shipped is TAATRNTBL in TAASECURE.

If  you use a  system translate table  that is other  than English, you
(as  an  *ALLOBJ  user)  should  change  the  value  to  your  language
translate table with the command:

             EDTCONARR   DTAARA(TAASECURE/TAATRNTBL)

When  the  display  appears,  enter   your  translate  table  name  and
library.

To retrieve  the value, use the RTVTRNTBL command  in a CL program such
as:

             DCL          &TRNTBL *CHAR LEN(10)
             DCL          &TRNTBLLIB *CHAR LEN(10)
              .
             RTVTRNTBL    TRNTBL(&TRNTBL) TRNTBLLIB(&TRNTBLLIB)

The command is  available to  the public and  adopts QSECOFR  authority
in order  to access  the data  area information.   There  are no  known
security  exposures in allowing  the command  to have read  only access
to the information in a secure library.

RTVTRNTBL escape messages you can monitor for
---------------------------------------------

None, but escape messages from based on functions will be re-sent.

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

   TRNTBL        The  name  of  the  Translate  Table  in  TAATRNTBL in
                 TAASECURE.    The value  must  be  declared  as  *CHAR
                 LEN(10).

   TRNTBLLIB     An optional  return variable with the  name of library
                 of   the  Translate  Table.     If  used,  the  return
                 variable must be declared as *CHAR LEN(10).

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

None.

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

      CONARR         Constant array

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

None, the tool is ready to use.

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

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

   RTVTRNTBL     *CMD                      TAATRNA        QATTCMD
   TAATRNAC      *PGM          CLP         TAATRNAC       QATTCL
   TAATRNTBL     *DTAARA

The data area is in TAASECURE.