RHF 
.PROC,RHF*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMX3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* RHF - THIS JOB UPDATES THE REMOTE HOST FACILITY SOFTWARE. 
*CALL     PSRLEV
  
.*
.*  START RHF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,RHF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        RHF. 
EXIT. 
REVERT(ABORT)  RHF. 
  
  
.DATA,ZZZPROC 
.PROC,RHF.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=RHF1,#PN=PN,#PR=PR,DISK=0)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
BEGIN(PRDAUX,INSTALL,PRDNAME=RHC1,#PNO=PN3,#PRO=PR3)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=RHF,NUMAUX=1)
COMPASS(A,I,X=OPL,S=NOSTEXT,B=LGO,L=LIST)               NDR/RHH/NLD/5CV 
COMPASS(A,I,      S=0,      B=LGO,L=LIST)               FIPTEXT 
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,B=LIB,L=LIST)     LCNLIB
SYMPL(I,N,H,B=0,L=LIST,S=SYMLIB)                        FIP COMDECKS
SYMPL(I,ET=T,L=0,B=TXTA,S=SYMLIB)                       RHC TEXTS 
SYMPL(I,ET=T,L=0,Y=TXTA,B=TXTFB,S=SYMLIB)               FIP TEXTS 
SYMPL(I,ET=T,L=0,Y=TXTA,Y=TXTFB,B=TXTFC,S=SYMLIB)       FIP TEXTS 
SYMPL(I,ET=T,LR=LIST,Y=TXTA,Y=TXTFB,Y=TXTFC,B=LIB,S=SYMLIB) FIP 
SYMPL(I,N,H,B=0,LR=LIST,S=SYMLIB)                       RHF COMDECKS
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,B=RHFBIN,L=LIST)  RHF 
SYMPL(I,ET=T,L=0,Y=TXTA,B=TXTRB,S=SYMLIB)               RHF TEXTS 
SYMPL(I,ET=T,LR=LIST,Y=TXTA,Y=TXTRB,B=RHFBIN,S=SYMLIB)  RHF 
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,B=RHFBIN,L=LIST)  RHF 
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,B=OVLBIN,L=LIST)  RHF 
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,S=CETEXT,B=DMPNBIN,L=LIST) DMPNAD 
COPYBR(COMPILE,LGO)                                     RCFGEN
SYMPL(I,ET=T,LR=LIST,B=0,H,N,S=SYMLIB)                  MHF COMDECKS
SYMPL(I,ET=T,L=0,Y=TXTA,B=TXTMB,S=SYMLIB)               MHF TEXTS 
SYMPL(I,ET=T,LR=LIST,Y=TXTA,Y=TXTMB,B=MHFBIN,S=SYMLIB)  MHF 
COMPASS(A,I,X=OPL,S=SYSTEXT,S=PSSTEXT,B=MHFBIN,L=LIST)  MHF 
BEGIN(GETULIB,INSTALL,SYMLIB,SYSLIB)
LIBGEN(F=LIB,P=LCNLIB)
REWIND(OVLBIN,RHFBIN,NRHFBIN) 
COPYLM(OVLBIN,RHFBIN,NRHFBIN,,AR) 
LDSET(LIB=LCNLIB,ERR=ALL,PRESET=ZERO) 
LOAD(NRHFBIN) 
NOGO(LGO) 
REWIND(DMPNBIN) 
LDSET(ERR=ALL,PRESET=ZERO,LIB=LCNLIB) 
LOAD(DMPNBIN) 
NOGO(LGO) 
REWIND(MHFBIN)
LDSET(ERR=ALL,PRESET=ZERO,LIB=LCNLIB) 
LOAD(MHFBIN)
NOGO(LGO,MHF,$SSJ=$)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=LCNLIB) 
BEGIN(PRDOUT,INSTALL,PRDNAME=RHF1,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=49)
BEGIN(SAVELGO,INSTALL,PRDNAME=RHF1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  RHF
EXIT. 
REVERT(ABORT)  RHF
*WEOR 
