* E/reorg.cmd part of EASY POST 05/15/84 WA
@ 15,0 say '     Copying file to a Temporary File'
copy struc to b:E/temp
use b:E/temp
append for company<>' ' .and. .not. * from b:E/data
@ 15,0 say '     Deleting the Original File       '
dele file b:E/data
@ 15,0 say '     Sorting all Addresses Alphabetically'
sort on company to b:E/data
use
@ 15,0 say '     Deleting the temporary file         '
Dele file b:E/temp
return
* E/reorg.cmd
n company to b:E/data
use
@ 15,0 say '     Deleting the tem