*DECK TXTQFIL 
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMQDEF 
PROC COMQFIL; 
CONTROL STEXT;
BEGIN 
*CALL COMQFIL 
END 
TERM
