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
|
