*DECK CALLMHF 
    PROC CALLMHF; 
      BEGIN 
*CALL COMCBEGN
*CALL COMMCOM 
*CALL COMMGET 
*CALL COMRNAM 
*CALL COMRNET 
*CALL COMRRHH 
*CALL COMRRTN 
      END 
    TERM
