*DECK TXTMRTN 
USETEXT COMCBEG 
    PROC COMRRTN; 
CONTROL STEXT;
      BEGIN 
*CALL COMRRTN 
      END 
    TERM
