*DECK TXTADEF 
USETEXT COMCBEG 
PROC COMADEF; 
CONTROL STEXT;
BEGIN 
*CALL COMADEF 
END 
TERM
