RHC 
.PROC,RHC*I,
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMPROC 
. 
* 
*RHC-REMOTE HOST COMMON DECKS.
* 
BEGIN(SUBPROC,INSTALL,RHC,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.              RHC
EXIT. 
REVERT(ABORT)        RHC
.DATA,ZZZPROC 
.PROC,RHC.
*CALL PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=RHC1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=RHC) 
BEGIN(PRDOUT,INSTALL,PRDNAME=RHC1,#PNO=PNO,#PRO=PRO)
* 
*RHC PRODUCES ONLY A NEWPL. 
* 
REVERT.    RHC  ************************
EXIT. 
REVERT(ABORT)   RHC   *********************** 
*WEOR 
