*DECK TXTRDSDL
USETEXT COMCBEG 
PROC COMRDSDL;
CONTROL STEXT;
BEGIN 
*CALL COMRDSDL
END 
TERM
