The Retrieve Object  Version command allows  you to retrieve  the first
or last  version (based on  the create date/time) when  the same object
name  exists  in  multiple  libraries.    The  command  is  useful when
different versions are shipped in different libraries.

DSPOBJD2 may  be used  to display  the information.   RTVOBJVER  allows
you to determine the library name within a program.

A typical set of commands would be:

             DCL           &RTNLIB *CHAR LEN(10)
              .
             RTVOBJVER     OBJ(*ALL/xxx) OBJTYPE(*xxx) RTNLIB(&RTNLIB)

The default  is to  return the  last version.   If multiple  objects of
the  same name and type  exist, the RTNLIB  parameter would contain the
name of  the library  where the  object with  the  most current  create
date/time was found.

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

RTVOBJVER escape messages you can monitor for
---------------------------------------------

      TAA9893    No objects exist

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

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

   OBJ           The  qualified name  of the object  to retrieve.   The
                 library value defaults to  *LIBL.  *USRLIBL,  *CURLIB,
                 *ALLUSR, or *ALL may be specified.

   OBJTYPE       The type of object  to retrieve for.  The  values that
                 may be  entered are the  same as on DSPOBJD.   Use the
                 prompter to see the list of values.

   VERSION       The  version  to  be  retrieved  based  on  the create
                 date/time.   The default is  *LAST meaning the  object
                 with the most current create date/time.

                 *FIRST may  be specified  to retrieve the  object with
                 the oldest create date/time.

   RTNLIB        The  library where the  object exists  for the version
                 requested.  This is  an optional return variable  that
                 if used must be specified as *CHAR LEN(10).

   OWNER         The owner of  the object.  This is  an optional return
                 variable  that  if used  must  be  specified as  *CHAR
                 LEN(10).

   CRTDATE       The create date/time of  the version requested.   This
                 is an  optional return variable  that if used  must be
                 specified  as *CHAR  LEN(13).   The value  is returned
                 in cyymmddhhmmss format.

   CHGDATE       The  change date/time of the  version requested.  This
                 is an optional  return variable that  if used must  be
                 specified  as *CHAR  LEN(13).   The value  is returned
                 in cyymmddhhmmss format.

   USEDATE       The  last use date of the  version requested.  This is
                 an optional  return  variable  that if  used  must  be
                 specified as *CHAR  LEN(7).  The value  is returned in
                 cyymmdd format.

   TEXT          The  text description of the  version requested.  This
                 is an optional  return variable that  if used must  be
                 specified as *CHAR LEN(50).

   COUNT         The  count of  how  many objects  exist  for the  same
                 name and  type.  This  is an optional  return variable
                 that if used must be specified as *DEC LEN(5 0).

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

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

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

The following TAA Tools must be on your system:

     RSNLSTMSG       Resend last message
     RTVOBJLST       Retrieve object list
     SNDESCINF       Send escape information

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

None, the tool is ready to use.

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

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

   RTVOBJVER     *CMD                   TAAOBKY       QATTCMD
   TAAOBKYC      *PGM       CLP         TAAOBKYC      QATTCL