UPLIB 
.PROC,UPLIB*I,
LIBNAME ' NAME OF LIBRARY TO UPDATE            '=(*F),
NX      ' CROSS REFERENCE OF ULIB     (0/1)    '=(0,1), 
*CALL COMPROC 
. 
  
RETURN(ZZZTEST) 
GTR(BLDLIBS,ZZZTEST,,,,NA)LIBNAME 
IF, FILE(ZZZTEST, .NOT. AS) ,UPLIB1.
  RETURN(LIBNAME) 
*IF,UNDEF,SMD 
  GTR(PRODOLD,LIBNAME,,,,NA)ULIB/LIBNAME
*ENDIF
  LIBEDIT(P=BLDLIBS,B=ZZLIBIN,N=ZZZTEST,LO=E,Z)+*I,START,LIBNAME
  RENAME(BLDLIBS=ZZZTEST) 
  LIBEDIT(P=TDIR,B=ZZDIRIN,N=ZZZTEST,LO=E,Z)+*B,*,LIBNAME 
  RENAME(TDIR=ZZZTEST)
ENDIF(UPLIB1) 
* 
* MERGE BINARIES INTO THE PROPER LIBRARY
* 
RETURN(XXXTEMP) 
COPYBF(IAESMD,XXXXLIB)
LIBEDIT(P=LIBNAME,B=XXXXLIB,N=XXXTEMP,L=0,I=0)
RENAME(LIBNAME=XXXTEMP) 
  
RETURN(ZZLIBIN,ZZDIRIN,ZZZTEST) 
  
REVERT. UPLIB (LIBNAME) 
EXIT. UPLIB (LIBNAME) 
REVERT(ABORT) UPLIB (LIBNAME) 
.DATA,ZZLIBIN 
LIBNAME 
BEGIN(CRELIB,INSTALL,#LIBNAME=LIBNAME,#NX=NX) 
.DATA,ZZDIRIN 
LIBNAME 
*ADD LIB4,ULIB/LIBNAME
*WEOR 
