GENDIR2 
.PROC,GENDIR2*I,
 LGO     =(*F,*N=LGO),
 DIR     =(*A), 
*CALL COMXOPL 
*CALL COMPROC 
. 
RETURN(ZZZZDIR) 
REWIND(LGO) 
GET(GDIR/NA)
IF, FILE(GDIR, .NOT. AS) ,GENDIR1.
  BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,PNO=PN99,PRO=PR99) 
  RENAME(OPL=AUXPL) 
  BEGIN(GDIR,INSTALL) CREATE GDIR SOURCE FILE 
  NOTE(ZZZZIN2)=RS:/+CALL/,/*CALL/;*=END
EDIT(GDIRSC,I=ZZZZIN2,L=0)
  MODIFY(Z,C=GDIRIN)/*CREATE,GDIRSC/*NOSEQ/*EDIT,GDIR 
  COMPASS(A,I=GDIRIN,S=NOSTEXT,B=GDIRZ,L=0) 
  LDSET(PRESET=ZERO,ERR=ALL)
  LOAD(GDIRZ) 
  NOGO(GDIR)
  REPLACE(GDIR) 
  RETURN(GDIRIN,GDIRZ,ZZZZIN2)
ENDIF(GENDIR1)
GDIR(LGO,OP=#DIR,L=ZZZZDIR) 
EDIT(ZZZZDIR,I=ZZZZZIN,L=0) 
SKIPEI(DSTDIR)
COPYEI(ZZZZDIR,DSTDIR)
RETURN(EXCAT,ZZZZZIN,ZZZZDIR) 
  
REVERT. GENDIR2(LGO,DIR)
EXIT. GENDIR2(LGO,DIR)
REVERT(ABORT) GENDIR2(LGO,DIR)
.DATA,ZZZZZIN 
RS:)ZZAABBCCDD),)DIR)      $REPLACE ZZAABBCCDD WITH ACTUAL DIRECTIVE
END 
*WEOR 
