RDFEX 
.PROC,RDFEX*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMIA 
*CALL COMTOB
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* RDFEX 
*CALL     PSRLEV
* 
  
.*****  RDFEX 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,RDFEX,INSTALL.
  
.***    INPUT.
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
.*
.*  START RDFEX VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,RDFEX,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        RDFEX. 
EXIT. 
REVERT(ABORT)  RDFEX. 
  
  
.DATA,ZZZPROC 
.PROC,RDFEX.
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
  
NOTE(MODIR,NR);*EDIT RDFP;*NOSEQ
BEGIN(,MODIFY1) 
BEGIN(PFGOUT,INSTALL,PRDNAME=RDF1,LFN=COMPILE)
REWIND(COMPILE) 
COPYBR(COMPILE,LGO) 
REPLACE(COMPILE=RDF)
  
NOTE(MODIR,NR);*EDIT IAFEX,1TM
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=NOSTEXT,S=NETTEXT,S=LDRTEXT,S=SSYTEXT,L=LIST) 
  
.* SEPARATE THE ABS/RDFEX AND PROC/RDF FROM THE OTHER 
.* BINARIES TO ELIMINATE OVERLAPPING BINARY REFERENCES
.* BETWEEN IAF AND RDFEX IN GLOBLIB 
  
REWIND(LGO) 
COPYBR(LGO,LGO1,2)
COPYEI(LGO,LGO2)
BEGIN(GENDIR,INSTALL,LIB=30,LGO=LGO1) 
BEGIN(GENDIR,INSTALL,LIB=30,LGO=LGO2) 
BEGIN(SAVELGO,INSTALL,PRDNAME=RDF1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        RDFEX ************************************ 
EXIT. 
REVERT(ABORT)  RDFEX ************************************ 
*WEOR 
