The Retrieve Product  Library command retrieves the current  values for
the  Product Library  portion of the  library list.   RTVPRDLIB  can be
used  in  conjunction  with  the CHGPRDLIB  tool  to  swap  the product
library portion of the library list.

A typical command would be:

          RTVPRDLIB     PRDLIB1(&xxx) PRDLIB2(&yyyy)

The RTVPRDLIB command  is intended to be  used in conjunction with  the
CHGPRDLIB  TAA   Tool  command.     CHGPRDLIB  requires  that   you  be
authorized to the TAAPRDLIB authorization list.

The  RTVPRDLIB command is  created with PRDLIB(*NOCHG)  so that running
the  command does  not  interfere  with  the  current  setting  of  the
product library portion of the library list.

If you intend to  use the Product Library portion  of the library list,
good programming  practice would be to retrieve  the current values and
then reset them when your function is complete.

For example you would specify:

          DCL           &PRDLIB1 *CHAR LEN(10)
          DCL           &PRDLIB2 *CHAR LEN(10)
           .
          RTVPRDLIB     PRDLIB1(&PRDLIB1) PRDLIB2(&PRDLIB2)
          CHGPRDLIB     PRDLIB1(xxx) PRDLIB2(yyy)
           .
           .                /* Your function requiring the */
           .                /*   Product libraries         */
           .
          CHGPRDLIB     PRDLIB1(&PRDLIB1) PRDLIB2(&PRDLIB2)

RTVPRDLIB uses the QUSRJOBI API to retrieve the current values.

For  a  discussion  of  the   Product  libraries,  see  the  the   tool
CHGPRDLIB.

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

   PRDLIB1       The  library that  is  in the  first  position of  the
                 Product library portion of the library list.

                 The  special value  *NONE  is returned  if  no library
                 exists.

   PRDLIB2       The  library  that is  in the  second position  of the
                 Product library portion of the library list.

                 The special  value  *NONE is  returned  if no  library
                 exists.

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

Because the  command returns  values, RTVPRDLIB can  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
   ------        ----    ---------      ----------    ----------

   RTVPRDLIB     *CMD                   TAALIBP       QATTCMD
   TAALIBPC      *PGM       CLP         TAALIBPC      QATTCL