*DECK TXTMNAM 
USETEXT COMCBEG 
    PROC COMRNAM; 
CONTROL STEXT;
      BEGIN 
*CALL COMRNAM 
      END 
    TERM
