The Retrieve Date Entry  Description command is designed to  bring back
a  description  of how  a  job date  should  be entered  when  the date
format  and date separator may  vary.  The current  job date format and
separator are used to construct the description.

A typical command would be:

             DCL           &DATDSC *CHAR LEN(20)
              .
             RTVDATENTD    DATDSC(&DATDSC)

If DATFMT = *MDY and DATSEP = /, the description returned would be:

                 MMDDYY or MM/DD/YY

RTVDATENTD escape messages you can monitor for
----------------------------------------------

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

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

   DATDSC        The date description  that is intended  to be used  to
                 describe  how a  date should  be entered.   This  is a
                 required  return  variable that  must  be  declared as
                 *CHAR LEN(20).

                 Assuming DATFMT  = *MDY  and DATSEP  =  /, the  return
                 value would be 'MMDDYY or MM/DD/YY'.

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

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

   RTVDATENTD    *CMD                   TAADAUF       QATTCMD
   TAADAUFC      *PGM       CLP         TAADAUFC      QATTCL