*COMDECK COMRRHH
#     COMRRHH  - RHH CALL FORMATS. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRRHH - RHH CALL FORMATS. 
* 
*     COMRRHH CONTRAINS THE ARRAY DEFINITIONS FOR RHH CALLS. RHH
*     IS THE REMOTE HOST FACILITY SUBSYSTEM HELPER. 
* 
* 
# 
  
      BEGIN  # COMRRHH COMMON DECK #
  
      DEF  RH$INIT    #0#;           # RHH FUNCTIONS - INITIALIZE # 
      DEF  RH$VALIDAT #1#;           # VALIDATE UCP # 
      DEF  RH$PID     #2#;           # OBTAIN HOST PID #
      DEF  RH$CLEAR   #3#;           # CLEAR RHF ACTIVE IN EST #
      DEF  RH$DAYFILE #4#;           # SET UP DAYFILE FNT # 
      DEF  RH$FLUSH   #5#;           # FLUSH DAYFILE #
      DEF  RH$INCTAPE #6#;           # INCREMENT TAPE COUNT # 
      DEF  RH$EXIT    #7#;           # SET FORCE EXIT PROCESSING BIT #
  
      COMMON COMRRHH; 
      BEGIN  # COMRRHH COMMON AREA #
  
      ARRAY RHHCALL [0:0] S(1);      # RHH CALL # 
        BEGIN  # RHH CALL WORD #
        ITEM RHHNAME    C(00,00,03) = ["RHH"];
        ITEM RHHRCL     B(00,19,01) = [FALSE];
        ITEM RHHFUNCTN  U(00,24,12);
        ITEM RHHPARMAD  I(00,42,18);
        END 
  
      ARRAY [0:0] S(1);              # RHH PARAMETER WORD # 
        BEGIN  # RHH PARAMETER DESCRIPTIONS # 
  
        ITEM RHH$PARAM  I(00,00,60); # RHH PARAMETER WORD # 
  
# 
*     RHH INITIALIZE FUNCTION.
# 
  
        ITEM RHH$NUMNAD U(00,00,12); # NUMBER OF LOCAL NADS # 
        ITEM RHH$NADADR I(00,30,18); # LOCAL NAD TABLE ADDRESS #
        ITEM RHH$COMPLT B(00,59,01); # RHH COMPLETE BIT # 
  
# 
*     RHH VALIDATE UCP FUNCTION.
# 
  
        ITEM RHH$RBITS  U(00,24,12); # RHH RETURN BITS #
        ITEM RHH$SWAP   B(00,33,01); # UCP SWAPPED OUT #
        ITEM RHH$$RH    B(00,34,01); # UCP HAS $RH SOURCE ID #
        ITEM RHH$SYSLIB B(00,35,01); # UCP WAS LOADED FROM SYSTEM LIB # 
        ITEM RHH$JDTORD U(00,36,12); # UCP JDT ORDINAL #
#       ITEM RHH$COMPLT B(00,59,01)    RHH COMPLETE BIT # 
  
# 
*     RHH OBTAIN PID FUNCTION 
# 
  
        ITEM RHH$PID    C(00,00,03); # THIS MAINFRAME'S PID # 
  
  
# 
*     RHH - CLEAR RHF ACTIVE IN EST.
# 
  
        ITEM RHH$ESTORD U(00,36,12); # EST ORDINAL #
#       ITEM RHH$COMPLT B(00,59,01)    RHH COMPLETE BIT # 
  
# 
*     RHH SET UP DAYFILE FNT FUNCTION.
# 
  
#       ITEM RHH$COMPLT B(00,59,01)    RHH COMPLETE BIT # 
  
# 
*     RHH FLUSH DAYFILE FUNCTION. 
# 
  
#       ITEM RHH$COMPLT B(00,59,01)    RHH COMPLETE BIT # 
  
# 
*     RHH INCREMENT TAPE COUNT FUNCTION.
# 
  
        ITEM RHH$COUNT  U(00,00,05); # INCREMENT TAPE COUNT FIELD # 
        ITEM RHH$MTCNT  B(00,00,01); # INCREMENT MT COUNT FLAG #
        ITEM RHH$NTCNT  B(00,01,01); # INCREMENT NT COUNT FLAG #
        ITEM RHH$HDCNT  B(00,02,01); # INCREMENT HD COUNT FLAG #
        ITEM RHH$PECNT  B(00,03,01); # INCREMENT PE COUNT FLAG #
        ITEM RHH$GECNT  B(00,04,01); # INCREMENT GE COUNT FLAG #
        ITEM RHH$RTNCOD U(00,12,12); # RHH RETURN CODE #
#       ITEM RHH$COMPLT B(00,59,0U)    RHH COMPLETE BIT # 
  
# 
*     RHH SET FORCE EXIT PROCESSING BIT.
# 
  
#       ITEM RHH$COMPLT B(00,59,01)    RHH COMPLETE BIT # 
  
        END  # RHH PARAMETER DESCRIPTIONS # 
  
      END  # COMRRHH COMMON AREA #
  
      END  # COMRRHH COMMON DECK #
  
                                               CONTROL LIST;
