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