*DECK,TXTQCMD 
USETEXT COMCBEG 
PROC COMQCMD; 
CONTROL STEXT;
BEGIN 
*CALL COMQCMD 
END 
TERM
