*DECK,TXTQPID 
USETEXT COMCBEG 
USETEXT COMCAPR 
PROC COMQPID; 
CONTROL STEXT;
BEGIN 
*CALL COMQPID 
END 
TERM
