GENLIB
.PROC,GENLIB*I,\
LIBRARY ' NAME OF LIBRARY TO MODIFY            '=(*N=,*F),
LIB     ' LFN CONTAINING RELOCATABLES          '=(*N=,*F),
NX      ' CROSS REFERENCE OF ULIB     (0/1)    '=(*N=0,1),
REL     ' REL, ABS, OR OVL     DEFAULT IS REL  '=(*N=REL,ABS,OVL),
*CALL COMPROC 
. 
*CALL     PSRLEV
* GENLIB - USE LIB TO CREATE OR UPDATE LIBRARY(LOCAL OR IN PRODUCT) 
  
.****   GENLIB
.*
.*      CREATE A LIBRARY THAT WILL BE SUBSEQUENTLY ADDED
.*      TO FILE *PRODUCT*.
  
.**     ENTRY  LIBRARY - NAME OF LIBRARY TO BE CREATED. 
.*
.*             LIB     - LOCAL FILE CONTAINING BINARIES FOR LIBRARY.
.*
.*             NX      - 0 IF DECKS ARE TO BE CROSS-REFERENCED IN THE 
.*                         ULIB DIRECTORY.
.*                       1 IF DECKS ARE NOT TO BE CROSS-REFERENCED IN 
.*                         THE ULIB DIRECTORY.
  
.**     EXIT   LIBRARY ADDED TO FILE *PRODUCT*. 
.*
***************** G E N L I B ********************
*  GENERATE THE LIBRARY REQUIRED
RETURN(OLD,NEW) 
GTR(LIBRARY,OLD,,,,NA)ULIB/LIBRARY
IFE(.NOT.FILE(OLD,AS),X10LIB) 
  BEGIN(ACCESS,INSTALL,PRODUCT) 
  GTR(PRODUCT,OLD,,,,NA)ULIB/LIBRARY
  UNLOAD(PRODUCT) 
ENDIF(X10LIB) 
* 
NOTE(GENDIR)+*BEFORE *,REL/*,CAP/*+*BUILD,LIBRARY 
LIBEDIT(P=OLD,B=LIB,N=NEW,I=GENDIR) 
LIBGEN(F=NEW,P=LIBRARY,#NX=NX)
  
REVERT. GENLIB ***********************************
EXIT. GENLIB
REVERT(ABORT) GENLIB *****************************
*WEOR 
