*DECK TXTQCIO 
USETEXT COMCBEG 
PROC COMQCIO; 
CONTROL STEXT;
BEGIN 
*CALL COMQCIO 
END 
TERM
