The   Retrieve  SQL   Package   Attributes  command   retrieves   basic
information  about  an *SQLPKG  object  type.   The  spooled file  from
PRTSQLINF  is used to access  some of the information.   Only lower and
upper case English is supported.

A typical series of commands would be:

             DCL        &SYSLVL *CHAR LEN(6)
             DCL        &TGTRLS *CHAR LEN(10)
              .
             RTVSQLPKGA SQLPKG(xxx) TGTRLS(&TGTRLS) +
                          CRTSYSLVL(&SYSLVL)

The information is retrieved and placed in the return variables.

RTVSQLPKGA escape messages you can monitor for
----------------------------------------------

      TAA9892    No jobs exist to convert.  Check selection.

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

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

   SQLPKG        The  qualified  name  of  the  *SQLPKG  object.    The
                 library value  defaults to *LIBL.   A specific library
                 or *CURLIB may also be used.

   RTNLIB        The  library where  the *SQLPKG  object exists.   This
                 may  be helpful  if  *LIBL  was  used  to  access  the
                 object.   This is  an optional  return parameter  that
                 if specified must be declared as *CHAR LEN(10).

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

   CRTDATE       The date  the *SQLPKG  object was  created in  CYYMMDD
                 format.   This  is an  optional return  parameter that
                 if specified must be declared as *CHAR LEN(7).

   CRTTIME       The  time  the *SQLPKG  object  was created  in HHMMSS
                 format.   This is  an optional  return parameter  that
                 if specified must be declared as *CHAR LEN(6).

   CRTSYSLVL     The system  level that the *SQLPKG  object was created
                 in  VnRnMn   format.    This  is  an  optional  return
                 parameter  that  if  specified  must  be  declared  as
                 *CHAR LEN(6).

   COMMIT        The commit attribute  of the *SQLPKG object.   A value
                 such as  *NONE will be returned.   This is an optional
                 return parameter that  if specified  must be  declared
                 as *CHAR LEN(10).

   OPTION        The first 100  bytes of the options specified  for the
                 *SQLPKG  object.   Values such  as *SQL  *NOEXTIND and
                 *PERIOD  will  be  returned  with  intervening spaces.
                 This  is   an  optional  return   parameter  that   if
                 specified must be declared as *CHAR LEN(100).

   TGTRLS        The target  release of the *SQLPKG object.   An actual
                 release  such  as  VnRnMn  will  be  returned  or  the
                 special value  *PRV.    This  is  an  optional  return
                 parameter  that  if  specified  must  be  declared  as
                 *CHAR LEN(6).

   ALWCPYDTA     The  value  of  the ALWCPYDTA  option  for  an *SQLPKG
                 object.     The  special   value  *OPTIMIZE   may   be
                 returned.  This  is an optional return  parameter that
                 if specified must be declared as *CHAR LEN(10).

   CLOSQLCSR     The  value  of the  CLOSQLCSR  option  for an  *SQLPKG
                 object.   The  special value *ENDPGM  may be returned.
                 This  is   an  optional   return  parameter  that   if
                 specified must be declared as *CHAR LEN(10).

   TEXT          The text description  of the SQL package.   This is an
                 optional  return parameter  that if specified  must be
                 declared as *CHAR LEN(50).


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

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

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

The following TAA Tools must be on your system:

     CVTSYSLVL       Convert system level
     SCNVARRGT       Scan variable right
     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
   ------        ----    ---------      ----------    ----------

   RTVSQLPKGA    *CMD                   TAAPGOB       QATTCMD
   TAAPGOBC      *PGM       CLP         TAAPGOBC      QATTCL