CRELIB
.PROC,CRELIB*I
,LIBNAME =(*F)
,NX      =(*A)
. 
  
RETURN(ZZZLIB)
REWIND(LIBNAME) 
LIBGEN(F=LIBNAME,P=ZZZLIB,N=LIBNAME,#NX=NX) 
REWIND(ZZZLIB)
COPYBF(ZZZLIB,TPROD)
BKSP(TPROD) 
RETURN(LIBNAME,ZZZLIB)
  
REVERT. CRELIB(LIBNAME) 
EXIT. CRELIB(LIBNAME) 
REVERT(ABORT) CRELIB(LIBNAME) 
*WEOR 
