*DECK,TXTQKDS 
USETEXT COMCBEG 
USETEXT COMCAPR 
PROC COMQKDS; 
CONTROL STEXT;
BEGIN 
*CALL COMQKDS 
END 
TERM
