*DECK COBRG 
          PRGM COBRG; 
  
 #        COBRG - SETS UP REPORT GENERATOR INFO                        #
  
          BEGIN 
*CALL TABLEDF 
*CALL TABLETYP
          XREF
              BEGIN 
              PROC RG;
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              END 
  
  
 #     START OF EXECUTION                                              #
  
 #      CTEXT WAS READ ONLY - REPORT GEN WILL EXTEND IT # 
          TTABREADONLY [TABLETYPE"CTEXT$"] = FALSE;  # CLEAR READ ONLY #
          RG;     #EXECUTE SOURCE SCANNER#
          OVERRTN;
          END 
          TERM
