*DECK TXTQCAF 
USETEXT COMCBEG 
USETEXT COMCCAE 
PROC COMQCAF; 
CONTROL STEXT;
BEGIN 
*CALL COMQCAF 
END 
TERM
