>stocknum is fieldname in view intrancust
>
>GO BOTTOM
>IF empty('stocknum')
>DELETE in 'intrancust'

Remove the next 3 lines. There is really no need to pack a table after every delete. I only pack tables if the user decides to rebuild the indexes. Since both require exclusive table use, I take advantage of that process. Besides, SET EXCLUSIVE ON is not retro-active to tables already opened as shared. You would have to close the tables then re-open them under exclusive conditions.

>SET EXCLUSIVE ON
>PACK
>SET EXCLUSIVE OFF

>ENDIF
>
>view is made up of 3 tables, only one of which is updatable. Stocknum is a character field. This code did not remove an append blank, why?

If you have optimistic row or table buffering, you can issue a Tablerevert(.f., 'myview') to take out the appended record. Remember my recommendation about using table buffering? If you had done an append blank, done some other editing on other records then decided to revert the append blank, you can selectively revert any or all changed or added rows. In row buffering, you can only revert the current row.