class oo.BarSer
inherits progress.lang.apperror
serializable:
   def private var errors1 as progress.lang.object extent.
   def private var errors2 as progress.lang.object extent 5.
   
   def temp-table tt1 field f1 as int.
   def dataset ds1 for tt1.
   def temp-table tt2 field f2 as int.
   
   constructor public BarSer():
      extent(errors1) = 2.
      
      def var i as int.
      do i = 1 to extent(errors2):
         errors2[i] = new progress.lang.apperror("error2 " + string(i)).
      end.
      
      do i = 1 to extent(errors1):
         errors1[i] = new progress.lang.apperror("error1 " + string(i)).
      end.
      
      create tt1.
      tt1.f1 = 10.
      release tt1.
      
      create tt2.
      tt2.f2 = 20.
      release tt2.
   end.

   method public void printData().
      for each tt1:
         message tt1.f1.
      end.
      
      for each tt2:
         message tt2.f2.
      end.
      
      message errors1[1].
      message errors2[1].
   end.

end.