ITF 
.PROC,ITF*I,\ 
NOTRACE ' DISABLE AIP TRACE CODE     (NO/YES)  '=(*N=D,NO=D,YES=,*K=),
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMX3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* ITF - INSTALL INTERACTIVE TRANSFER FACILITY.
*CALL     PSRLEV
  
.*      USES LCNLIB CREATED BY RHF
  
  
.*
.*  START ITF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,ITF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        ITF. 
EXIT. 
REVERT(ABORT)  ITF. 
  
  
.DATA,ZZZPROC 
.PROC,ITF.
*CALL     PSRLEV
BEGIN(PRDAUX,INSTALL,PRDNAME=RHC1,#PNO=PN3,#PRO=PR3)
BEGIN(PRDIN,INSTALL,PRDNAME=ITF1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=ITF,NUMAUX=1)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
RETURN(ITFBIN,ITFGEN,ITFSKEL,ITFNAMI) 
SYMPL(I,ET=T,L=0,B=TXTA,S=SYMLIB)                              RHC TEXT 
SYMPL(I,ET=T,L=0,Y=TXTA,B=TXTIB,S=SYMLIB)                      ITF TEXT 
SYMPL(I,ET=T,L=0,Y=TXTA,Y=TXTIB,B=TXTIC,S=SYMLIB)              ITF TEXT 
SYMPL(I,ET=T,LR=LIST,Y=TXTA,Y=TXTIB,Y=TXTIC,B=ITFBIN,S=SYMLIB) ITF
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,S=NETTEXT,B=ITFBIN,L=LIST)
.*
COPYBR(COMPILE,ITFGEN)   ITF SKELETON DECK PROC 
BEGIN(ITFGEN,ITFGEN,
  OPSYS=NOS,SKELBIN=ITFSKEL)
.*
COPYBR(COMPILE,ITFNAMI)   NAMI JOB RECORD 
.*
IF,$LIST$.NE.$0$,CALLITF. 
SYMPL(I,E,N,H,B=0,LR=LIST,S=SYMLIB)  LIST COMMON DECKS FOR REFERENCE. 
ENDIF,CALLITF.
.*
RETURN(COMPILE) 
LIBGEN(F=ITFBIN,P=ITFLIB) 
BEGIN(GETULIB,INSTALL,LCNLIB,NETIO_NOTRACE,SYMLIB,SYSLIB) 
.*
.*        GENERATE ABSOLUTE BINARIES
.*
REWIND(ITFSKEL) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=ITFLIB/NETIO_NOTRACE/LCNLIB)
LOAD(ITFSKEL) 
NOGO(LGO) 
RETURN(LOADLDR,LCNLIB,NETIO_NOTRACE,FORTRAN,SYMLIB,SYSLIB)
.*
.*      UPDATE NAMSTRT TO INCLUDE ITF JOB RECORD. 
.*
BEGIN(PFGOUT,INSTALL,PRDNAME=ITF1,LFN=ITFNAMI)
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
SYSGEN(UPSTRT,ITFNAMI,$$$JOB(JOBITF,IT)$$$) 
RETURN(PRODUCT) 
.*
BEGIN(PRDOUT,INSTALL,PRDNAME=ITF1,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=31)
BEGIN(SAVELGO,INSTALL,PRDNAME=ITF1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        ITF  *************************** 
EXIT. 
REVERT(ABORT)  ITFA  ***************************
*WEOR 
