tests/reread.stat

   1 title 'Test REREAD transformation'.
   2
   3 file handle INPUT /name='reread.data'.
   4
   5 input program.
   6   data list file=INPUT/BRAND 5-10(a).
   7   do if(BRAND='ACME').
   8     reread.
   9     data list /PART 1-4 COUNT 11-15.
  10   else if(BRAND='MISC').
  11     reread.
  12     data list /PART 11-15 COUNT 1-4.
  13   end if.
  14   end case.
  15 end input program.
  16 list.