*DECK,TXTQSCH 
USETEXT COMCBEG 
USETEXT COMCAPR 
PROC COMQSCH; 
CONTROL STEXT;
BEGIN 
*CALL COMQSCH 
END 
TERM
