SAVELIB 
.PROC,SAVELIB*I"SAVE LIBRARY FILE FOR SMD", 
LIB     ' NAME OF FILE TO PROCESS              '=(*F),
LIBNAME ' NAME OF LIBRARY TO SAVE              '=(*F),
NX      ' CROSS REFERENCE OF ULIB     (0/1)    '=(Y=1,N=0,0,1,*N=0),
*CALL,COMPROC 
. 
  
*************** S A V E L I B ********************
  
BEGIN(UPXMT,INSTALL,LFN=LIB,PROC=UPLIB, 
                    PARAM=$,#LIBNAME=LIBNAME,#NX=NX$) 
  
REVERT. SAVELIB **********************************
EXIT. SAVELIB 
REVERT(ABORT) SAVELIB ****************************
*WEOR 
