*DECK TXTDFRD 
USETEXT COMCBEG 
PROC COMDFRD; 
CONTROL STEXT;
BEGIN 
*CALL COMDFRD 
END 
TERM
