UPDIR 
.PROC,UPDIR*I,
*CALL COMPRD
. 
  
RETURN(ZZZTEMP) 
COPYBF(IAESMD,ZZDIR)
LIBEDIT(P=TDIR,B=ZZDIR,LO=E,N=ZZZTEMP,I=0)
RENAME(TDIR=ZZZTEMP)
RETURN(ZZDIR) 
  
REVERT. UPDIR (PRDNAME) 
EXIT. UPDIR (PRDNAME) 
REVERT(ABORT) UPDIR (PRDNAME) 
*WEOR 
