*DECK TXTQDEF 
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
PROC COMQDEF; 
CONTROL STEXT;
BEGIN 
*CALL COMQDEF 
END 
TERM
