*DECK TXTMRHH 
USETEXT COMCBEG 
    PROC COMRRHH; 
CONTROL STEXT;
      BEGIN 
*CALL COMRRHH 
      END 
    TERM
