*DECK,TXTQQAC 
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMQDEF 
PROC COMQQAC; 
CONTROL STEXT;
BEGIN 
*CALL COMQQAC 
END 
TERM
