*DECK TXTQDSP 
USETEXT COMCBEG 
USETEXT COMQDEF 
PROC COMQDSP; 
CONTROL STEXT;
BEGIN 
*CALL COMQDSP 
END 
TERM
