****************************************************************                              
      * Data Structure for #rtvLibL function                         *                              
      ****************************************************************                              
     D LibListDS@      S               *                                                            
      *                                                                                             
     D LibListDS       DS                  Based(LibListDS@)                                        
     D  #Libs                        10i 0                                                          
     D  LibArray                     10    DIM(25)                                                  
      ****************************************************************                              
      *//////////////////////////////////////////////////////////////*                              
      * #setRmvMsg - Set the Remove Library List Message Flag        *                              
      *                                                              *                              
      * Notes: This function is used to tell the system if you would *                              
      * like it to automatically remove messages from the job log    *                              
      * referring to removing and adding libraries to the library    *                              
      * list.  The default is *ON, which means messages will be      *                              
      * removed by default.  This is normally benificial so your     *                              
      * job log doesn't fill up with these types of messages.        *                              
      *                                                              *                              
      * MsgValue (Input) - Turn removing *ON or *OFF                 *                              
      *//////////////////////////////////////////////////////////////*                              
     D #setRmvMsg      PR                                                                           
     D  MsgValue                       N   Const                                                    
      *//////////////////////////////////////////////////////////////*                              
      * #pushLib - Push a Library onto the Library List              *                              
      *                                                              *                              
      * Notes: This function is used to place a library onto the     *                              
      * top of the current user library list.                        *                              
      *                                                              *                              
      * Lib (Input) - Library to add to library list                 *                              
      *//////////////////////////////////////////////////////////////*                              
     D #pushLib        PR                                                                           
     D   Lib                         10    Const                                                    
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * #popLib - Pop a Library off of the Library List              *                              
      *                                                              *                              
      * Notes: This function is used to remove a specific library    *                              
      * from the current user library list.  If no library is        *                              
      * passed to this function or the special value of *FIRST the   *                              
      * first library is removed.                                    *                              
      *                                                              *                              
      * Lib (Input) - Library to remove from the library list        *                              
      *   *FIRST - Remove the first library in the library list      *                              
      *   library - Remove "library" from the library list           *                              
      *//////////////////////////////////////////////////////////////*                              
     D #popLib         PR                                                                           
     D   Lib                         10    Const Options(*NOPASS)                                   
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * #addLibLE - Add Library List Entry                           *                              
      *                                                              *                              
      * Notes: This function is used to add a specific library into  *                              
      * a specific position in the library list.                     *                              
      *                                                              *                              
      * Lib (Input) - Library to add to the library list             *                              
      * Pos (Optional) - Position to place the library               *                              
      *   *FIRST   - Place the library at the top of the             *                              
      *              library list.                                   *                              
      *   *LAST   -  Place the library at the bottom of the library  *                              
      *              list.                                           *                              
      *   *AFTER   - Place the library after the library referenced  *                              
      *              in the RefLib paramter.                         *                              
      *   *BEFORE  - Place the library before the library referenced *                              
      *              in the RefLib paramter.                         *                              
      *   *REPLACE - Replace the library referenced in the           *                              
      *              RefLib paramter.                                *                              
      * RefLib (Optional) - The name of the library to reference     *                              
      *                     when *AFTER, *BEFORE or #REPLACE is      *                              
      *                     specified in the Pos paramter.           *                              
      *//////////////////////////////////////////////////////////////*                              
     D #addLibLE       PR                                                                           
     D   Lib                         10    Const                                                    
     D   Pos                          8    Const Options(*NOPASS)                                   
     D   RefLib                      10    Const Options(*NOPASS)                                   
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * #chgLibLJD - Change Library List using Job Description       *                              
      *                                                              *                              
      * Notes: This function is used to change the current user      *                              
      * library list to that specified in a job description.         *                              
      *                                                              *                              
      * JobD (Input) - The job description to reference containing   *                              
      *                the library list to use.                      *                              
      * JobDLib(Input) - The library the job description specified   *                              
      *                  in JobD pamameter is located.               *                              
      *//////////////////////////////////////////////////////////////*                              
     D #chgLibLJD      PR                                                                           
     D   JobD                        10    Const                                                    
     D   JobDLib                     10    Const                                                    
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * #rtvLibL - Retrieve Library List                             *                              
      *                                                              *                              
      * Notes: This function is used to return a pointer to a data   *                              
      * structure containing the current library list.  The data     *                              
      * structure and pointer will be imported automatically         *                              
      * into your program.  The pointer is named LibListDS@ and      *                              
      * the data structure is named LibListDS.                       *                              
      *                                                              *                              
      * Example:                                                     *                              
      *                                                              *                              
      * eval LibListDS@ = #rtvLibL('*USER')                          *                              
      *                                                              *                              
      * LibType (Input) - The library list type to retrieve.         *                              
      *   *SYSTEM  - Retrieve the System library list.               *                              
      *   *PRODUCT - Retrieve the Product library list.              *                              
      *   *CURRENT - Retrieve the Current library list.              *                              
      *   *USER    - Retrieve the User library list.                 *                              
      *//////////////////////////////////////////////////////////////*                              
     D #rtvLibL        PR              *                                                            
     D   LibType                     10    Const                                                    
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * #verLib - Verify a Library is in the Libray List             *                              
      *                                                              *                              
      * Notes: This function is used to verify a library is in the   *                              
      * library list.  The value returned will be the current        *                              
      * position in the library list.  A value of less than 1        *                              
      * indicates the library is not in the library list             *                              
      *                                                              *                              
      * Lib (Input) - Library to verify                              *                              
      * LibType (Input) - The library list type to search.           *                              
      *   *SYSTEM  - Retrieve the System library list.               *                              
      *   *PRODUCT - Retrieve the Product library list.              *                              
      *   *CURRENT - Retrieve the Current library list.              *                              
      *   *USER    - Retrieve the User library list.                 *                              
      *//////////////////////////////////////////////////////////////*                              
     D #verLib         PR            10i 0                                                          
     D   Lib                         10    Const                                                    
     D   LibType                     10    Const