RESETP
.PROC,RESETP*I, 
*CALL COMPROC 
. 
  
*CALL     PSRLEV
* RESETP - REBUILD PRODUCT WITH ONLY THE ULIB'S NEEDED BY SEED. 
*          MAKE *DIRFILE* MATCH PRODUCT WITH ITS LIBEDIT DIRECTIVES.
RETURN(TPROD,TDIR)
BEGIN(ACCESS,INSTALL,PRODUCT,M=W) 
BEGIN(ACCESS,INSTALL,DIRFILE,M=W) 
.* THIS IS A LIST OF ALL ULIB'S NEEDED FOR BUILD DEPENDENCIES 
UPROD(MSAMLIB)
UPROD(PFGLIB) 
UPROD(PASCLIB)
UPROD(SRT5LIB)
UPROD(SYSLIB) 
UPROD(SYMLIB) 
UPROD(SFLIB)
UPROD(FTN5LIB)
UPROD(FORTRAN)
UPROD(SRVLIB) 
UPROD(NETIOD) 
UPROD(NETIO)
UPROD(NETXIO) 
UPROD(NETXIOD)
UPROD(MACLIB) 
UPROD(NFMLIB) 
UPROD(BIT8LIB)
UPROD(DMSLIB) 
UPROD(BAMLIB) 
UPROD(AAMLIB) 
UPROD(TRANLIB)
UPROD(LCNLIB) 
UPROD(COBOL5) 
UPROD(NVERELS)
UPROD(QSFLIB) 
LIBEDIT(P=TPROD,N=PRODTMP,B=0,Z)/*BUILD,PRODUCT 
REWIND(TDIR)
COPYEI(TDIR,DIRFTMP)
BEGIN(ACCESS,INSTALL,PRODUCT,M=RETURN)
BEGIN(ACCESS,INSTALL,DIRFILE,M=RETURN)
RETURN(TPROD,TDIR)
REVERT.          RESETP 
EXIT. 
REVERT,ABORT. RESETP. HAS SEED BEEN RUN.
.DATA,UPROD 
.PROC,UPROD*I"UPDATE LOCAL FILE DIR", 
ULIB    ' NAME OF ULIB TO GET FROM PRODUCT     '=(*F),
. 
RETURN,ZZ.
GTR(PRODOLD,ZZ,,,,NA)###ULIB/ULIB 
IF, FILE(ZZ, AS) ,UPROD1. 
  GTR(PRODOLD,TPROD,U)###ULIB/ULIB
  GTR(DIRFOLD,TDIR)ULIB 
ENDIF(UPROD1) 
  
REVERT. UPROD - ###ULIB ULIB PROCESSED
EXIT. UPROD(ULIB) 
REVERT(ABORT) UPROD - ERRORS IN PROCESSING ###ULIB ULIB 
*WEOR 
