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