*DECK,TXTQPAR 
USETEXT COMCBEG 
PROC COMQPAR; 
CONTROL STEXT;
BEGIN 
*CALL COMQPAR 
END 
TERM
