*DECK TXTQCPM 
USETEXT COMCBEG 
PROC COMQCPM; 
CONTROL STEXT;
BEGIN 
*CALL COMQCPM 
END 
TERM
