The  Retrieve   Universal  Time   command  retrieves  the   coordinated
universal date  and time (UTC).   UTC is based on an  atomic clock with
leap  seconds  added at  irregular  intervals to  synchronize  with the
earth's rotation.  It  may be used interchangeably with  Greenwich Mean
Time if sub  second precision is not required.  UTC  may be useful when
dealing with data from around the world.

Your  system must  be connected to  an internet-based  time server such
as  SNTP  (Simple  Network  Time  Protocol)  to   provide  standardized
accurate time.  Otherwise, the system's clock is used.

The QWCRTVTM API is used.

UTC  time  is dependent  on  the  protocol  SNTP (Simple  Network  Time
Protocol).

A typical series of commands would be:

             DCL        &DATE *CHAR LEN(7)
             DCL        &TIME *CHAR LEN(6)
              .
             RTVUTC     DATE(&DATE) TIME(&TIME)

The date  is returned in CYMD  format.  The time  is returned in HHMMSS
format.

RTVUTC escape messages you can monitor for
------------------------------------------

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

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

   DATE          The universal  date  in  CYMD  format.    This  is  an
                 optional  return  variable   that  if  used   must  be
                 specified as *CHAR LEN(7).

   TIME          The  universal time  in  HHMMSS  format.   This  is an
                 optional   return  variable  that   if  used  must  be
                 specified as *CHAR LEN(6).

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

Because RTVUTC  returns variables, the  command may only  be used in  a
CL program.

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

The following TAA Tools must be on your system:

     CVTDTS          Convert date/time stamp
     SNDESCINF       Send escape information

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

None, the tool is ready to use.

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

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

   RTVUTC        *CMD                   TAATINX       QATTCMD
   TAATINXC      *PGM       CLP         TAATINXC      QATTCL