*DECK,TXTQSEL 
USETEXT COMCBEG 
PROC COMQSEL; 
CONTROL STEXT;
BEGIN 
*CALL COMQSEL 
END 
TERM
