*DECK DF
          PRGM DF;
  # THIS ROUTINE CALLS D-FORMATTER TO PROCESS THE ERROR MESSAGES# 
          BEGIN 
          XREF   PROC         D$FORMATTER;
          XREF PROC DFOVRTN;
  
          D$FORMATTER;
          DFOVRTN;   # RETURN TO 30,0 OVERLAY # 
  
          END 
TERM
