The Convert Date  13 command converts  the 13 character  date retrieved
by many  system commands in  the format CYYMMDDHHMMSS  and returns date
and  time  values ready  for printing.   The  date  is returned  in job
format with the  job date separator  used.  The  time is returned  with
the job time separator used.

A typical series of commands would be:

             DCL          &CHAR13 *CHAR LEN(13)
             DCL          &RTNDATE *CHAR LEN(8)
             DCL          &RTNTIME *CHAR LEN(8)
              .
             RTVOBJD      OBJ(xxx) CRTDATE(&CHAR13)
             CVTDAT13     DATE13(&CHAR13) RTNDATE(&RTNDATE) +
                            RTNTIME(&RTNTIME)

If the create  date information for the object  had been 1090115123456,
the USA standard return values would be '01/15/09' and '12.34.56'.

An  option  exists that  determines  what occurs  if a  blank  value is
passed in.  Blanks will be returned by default.

CVTDAT13 escape messages you can monitor for
--------------------------------------------

      TAA9891    Input value is blank and BLKACN(*ESCAPE)
      TAA9892    Invalid date
      TAA9893    Invalid time

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

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

   DATE13        The input  date  in  the format  CYYMMDDHHMMSS  to  be
                 converted.

   BLKACN        The  action to  be  used if  the  input  value is  all
                 blank.

                 *BLANKS   is  the  default  meaning   blanks  will  be
                 returned for both return values.

                 *ESCAPE may be specified  to send the TAA9891  message
                 as an escape.

   RTNDATE       The  return date  in  job format  using  the job  date
                 separator character such as 10/11/07.

   RTNTIME       The   return  time  using   the  job   time  separator
                 character such as 09.15.14.

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

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

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

The following TAA Tools must be on your system:

     CVTTIM          Convert time
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   CVTDAT13      *CMD                   TAADAUM       QATTCMD
   TAADAUMC      *PGM       CLP         TAADAUMC      QATTCL