The Retrieve Data  Type Description command retrieves a  description of
the  one  byte  code  used  by  the  system  for  data  types  such  as
A=Character and B=Binary.  A 50 byte description is returned.

A typical command sequence would be:

             DCL           &DTATYP *CHAR LEN(1)
             DCL           &DESCRP *CHAR LEN(50)
              .
             RTVDTATYPD    DTATYP(&DTATYP) DESCRP(&DESCRP)

The supported data types may be seen by the DSPDTATYP command.

RTVDTATYPD escape messages you can monitor for
----------------------------------------------

      TAA9891    The one byte code is not recognized.

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

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

   DTATYP        The  one  byte data  type code  that a  description is
                 needed for.  The  supported data types may be  seen by
                 the DSPDTATYP command.

   DESCRP        The  return  description.    It must  be  declared  as
                 *CHAR LEN(50).

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

Because  the command returns  a variable, it  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
   ------        ----    ---------      ----------    ----------

   RTVDTATYPD    *CMD                   TAADBJQ       QATTCMD
   TAADBJQC      *PGM       CLP         TAADBJQC      QATTCL