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