*DECK COBDF 
USETEXT CCTTEXT 
          PRGM COBDF; 
  
 #        COBDF - SETS UP DIAG FORMATTER INFO                          #
  
          BEGIN 
          XREF
              BEGIN 
              PROC DFLDOV;    # LOAD 30,1 OVERLAY # 
              PROC TERMPROG;
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              END 
  
  
 #     START OF EXECUTION                                              #
  
          IF CCTETEXTLEN NQ 0 
          THEN
              DFLDOV;   # GO LOAD 30,1 OVERLAY AND OUTPUT DIAGS # 
          TERMPROG;          #WRAP UP THIS PROGRAM# 
          OVERRTN;
          END 
          TERM
