use mytable
*index on office tag office 
   where office=office

 if office<>office
report form new1 preview
eject(mean new page and new header and new office)

next office......to end of file