IAF 
.PROC,IAF*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* IAF 
*CALL     PSRLEV
* 
  
.*****  IAF 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,IAF,INSTALL.
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
.*         THE FOLLOWING PROC S ARE MOVED FROM OPL999 TO FILE *PRODUCT* 
.*             IAF,  IAFTR,  IAFTM. 
  
.***    DEPENDENCIES: 
.*           REQUIRES NETTEXT FROM *NAM2*   BUILD.
.*           REQUIRES LDRTEXT FROM *LOADER* BUILD.
  
  
.*
.*  START IAF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,IAF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        IAF. 
EXIT. 
REVERT(ABORT)  IAF. 
  
  
.DATA,ZZZPROC 
.PROC,IAF.
*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)+*IDENT DUMMY+*DEFINE IAF$
NOTE(MODIR,NR)+*EDIT 1TN,RECOVER,EOR1,IAFEX,1TM 
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=NOSTEXT,S=NETTEXT,S=LDRTEXT,L=LIST) 
COMPASS(A,I,S=NOSTEXT,S=SSYTEXT,S=NETTEXT,S=LDRTEXT,L=LIST)    IAFEX/RDF
NOTE(MODIR,NR)+*EDIT IAFP,EOR1,IAFTM,EOR2,IAFTR 
BEGIN(,MODIFY1) 
COPYBR(COMPILE,IAF) 
COPYBR(COMPILE,IAFTM) 
COPYBR(COMPILE,IAFTR) 
REPLACE(IAF,IAFTM,IAFTR)
BEGIN(PFGOUT,INSTALL,PRDNAME=IAF1,LFN=COMPILE)
.IF, ( R1G .NE. 0 ) ,GENPL. 
RETURN,NEWPL. 
GTR,OPL,ZZZ.OPLC/COPYRT,OPLC/COMCLNI-OPL/RECOVER
LIBEDIT(P=ZZZ,N=NEWPL,B=0,Z)/*BUILD IAF 
RETURN,ZZZ. 
BEGIN(PRDOUT,INSTALL,PRDNAME=IAF1,#PNO=PN99,#PRO=PR99)
.ENDIF(GENPL) 
  
.* SEPARATE THE BINARIES CREATED BY IAF INTO 2 SEPARATE FILES 
.* IN ORDER TO ELIMINATE OVERLAPPING BINARY REFERENCES BETWEEN
.* IAF AND RDFEX IN GLOBLIB 
  
REWIND(LGO) 
COPYBR(LGO,LGO1,9)
COPYEI(LGO,LGO2)
BEGIN(GENDIR,INSTALL,LIB=30,LGO=LGO1) 
BEGIN(GENDIR,INSTALL,LIB=30,LGO=LGO2) 
BEGIN(SAVELGO,INSTALL,PRDNAME=IAF1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        IAF ************************************ 
EXIT. 
REVERT(ABORT)  IAF ************************************ 
*WEOR 
