TAA Tools
RTVLIBL         RETRIEVE LIBRARY LIST                  TAALIBP

The  Retrieve Library  List  command returns  a  single variable  which
contains  the libraries in  the library list  in the same  sequence the
system  will check them  when *LIBL is used.   RTVJOBA returns portions
of the library list,  but not the complete  list.  The return  variable
is large enough to account for additional growth.

A typical series of commands would be:

             DCL            &LIBLST *CHAR LEN(9999)
              .
             RTVLIBL        LIBLST(&LIBLST)

Each  library  takes 11  bytes  (library  name  followed by  a  blank).
Unused  positions  are  filled with  blanks.   There  is  room  for 909
libraries.

If  the  same  library  exists   multiple  times  on  the  list,   each
occurrence is returned.

Because the  RTVLIBL command specifies  TAATOOL as the  product library
on  CRTCMD, TAATOOL  is not returned  if TAATOOL  is used as  the first
part of the product library on the library list.

TAALICPC2 program for exact library list
----------------------------------------

The TAALICPC2 program is provided which  is similar to the RTVLIBL  CPP
with an exception.

  **   The  TAATOOL library  is  not a  special  case for  the  Product
       portion of the library list.

By using  a CALL, you will see  the library list as it  exists for your
job.

See the following section on TAALICPC2 for sample code.

RTVLIBL escape messages you can monitor for
-------------------------------------------

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

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

   LIBLST        The  return  variable containing  the  current library
                 list.   Each  library  takes  11 bytes  (library  name
                 followed by  a blank).   Any unused positions  are set
                 to blanks.

                 If  a  library  is  specified  multiple  times on  the
                 library list (such as the  current library is also  on
                 the   user  portion   of  the   library  list),   each
                 occurrence is returned.

                 Because  the RTVLIBL command specifies  TAATOOL as the
                 product library  on CRTCMD,  TAATOOL is  not  returned
                 if TAATOOL is  used as the  first part of  the product
                 library on the library list.

                 If  used, the  return  variable must  be  specified as
                 *CHAR LEN(9999).

   LIBLCNT       The  count of all  libraries on the  library list.  If
                 used, the return  variable must  be specified as  *DEC
                 LEN(5 0).

   SYSCNT        The count  of the libraries  on the system  portion of
                 the  library list.  If used,  the return variable must
                 be specified as *DEC LEN(5 0).

   PRODCNT       The count of the libraries  on the product portion  of
                 the  library  list.    TAATOOL  will  be  in  the  1st
                 product  portion of  the list  and is  not considered.
                 Therefore, this can be a maximum  of 1.  If used,  the
                 return variable  must be specified  as *DEC  LEN(5 0).

   CURCNT        The  count of  the  libraries on  the  current library
                 portion  of the library  list.  This  can be a maximum
                 of  1.    If   used,  the  return  variable   must  be
                 specified as *DEC LEN(5 0).

   USRCNT        The  count of  the libraries  on the  user  portion of
                 the  library list.  If used,  the return variable must
                 be specified as *DEC LEN(5 0).

TAALICPC2 program for a direct call
-----------------------------------

Using a call to TAALICPC2 allows you  to see the library list as it  is
without  the  special case  for  the  TAATOOL  library in  the  product
portion of the library list.

The following code is in a format that may be copied to a CL program:

             DCL        &LIBLST *CHAR LEN(9999)
             DCL        &LIBCNT *DEC LEN(5 0)
             DCL        &SYSCNT *DEC LEN(5 0)
             DCL        &PRODCNT *DEC LEN(5 0)
             DCL        &CURCNT *DEC LEN(5 0)
             DCL        &USRCNT *DEC LEN(5 0)
              .
             CALL       PGM(TAATOOL/TAALICPC2) PARM(&LIBLST &LIBCNT +
                          &SYSCNT &PRODCNT &CURCNT &USRCNT)

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

The  TAATOOL library is  special cased if  the RTVLIBL command  is used
because TAATOOL  will  exist on  the  Product portion  of  the  library
list.

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

The following TAA Tools must be on your system:

     RTVPRDLIB       Retrieve product library
     SNDESCINF       Send escape information

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

None, the tool is ready to use.

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

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

   RTVLIBL       *CMD                   TAALICP       QATTCMD
   TAALICPC      *PGM       CLP         TAALICPC      QATTCL
   TAALICPC2     *PGM       CLP         TAALICPC2     QATTCL
					

Added to TAA Productivity tools October 15, 2003


Home Page Up to Top