*DECK TXTQRMB 
USETEXT COMCBEG 
PROC COMQRMB; 
CONTROL STEXT;
BEGIN 
*CALL COMQRMB 
END 
TERM
