*COMDECK RWT1 
          CONTROL EJECT;
  # ******************************************************************# 
  # *                                                                *# 
  # *   THE REPORT WRITER TABLES.  THIS AREA HOLDS SEVERAL LINKED    *# 
  # *   TABLES THAT ARE REFERENCED BY THE PROCEDURES GETRWT AND      *# 
  # *   SETRWT.                                                      *# 
  # *                                                                *# 
  # ******************************************************************# 
  
  
          COMMON RWTCOMM; 
          BASED ARRAY RWT[0:0] S(1);
            ITEM RWT$ENTRY         U(0,0,60); 
