GENDIR
.PROC,GENDIR*I, 
 LIB     =(*S2(0123456789)),
 LGO     =(*F,*N=LGO),
*CALL COMPROC 
. 
.EX.BEGIN(GENDIR2,INSTALL,#LGO=LGO,DIR=$*ADD #LIB_LIB,$)
*WEOR 
