*DECK TXTMGET 
USETEXT COMCBEG 
    PROC COMMGET; 
CONTROL STEXT;
      BEGIN 
*CALL COMMGET 
      END 
    TERM
