Does DELETE close a lookup?

[GCC Consulting]

> -----Original Message-----
> From: 
> filepro-list-bounces+gccconsulting=comcast.net at lists.celestial
> .com 
> [mailto:filepro-list-bounces+gccconsulting=comcast.net at lists.c
> elestial.com] On Behalf Of Jay R. Ashworth
> Sent: Sunday, December 02, 2007 5:19 PM
> To: filepro-list at lists.celestial.com
> Subject: Does DELETE close a lookup?
> 
> If I have a lookup open, and decide I want to DELETE the free 
> record I just allocated through it, will 
> 
> IF: tag
> 
> be false after that?  By definition, I mean; I'm sure I could 
> test it, but I'm equally sure that might not be 
> authoritative, and the help file doesn't seem to say, on either end.
> 
> Cheers,
> -- jra
> -- 
> Jay R. Ashworth                   Baylink                     
>  jra at baylink.com
> Designer                     The Things I Think               
>         RFC 2100
> Ashworth & Associates     http://baylink.pitas.com            
>          '87 e24
> St Petersburg FL USA      http://photo.imageinc.us            
>  +1 727 647 1274
> 
> 	     Witty slogan redacted until AMPTP stop screwing 
> WGA _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list

I'll way in on this a bit late.

Deleting from a browse lookup I"
	1. set rn=(lookup at rn);GOTO del_rec

At del_rec 
	if:
	then: lookup alias = lookup  r=rn -np
	if: not alias
	then:BEEP;ERRORBOX "Record to delete not Found";GOTO browse
	if:
	then: delete filename;write (closes the record not the file)
	if:
	then: GOTO browse (use pkeep to hold position)

The browse will be re-executed and the cursor will be on the next item as it
will have moved up 1 line.

This avoids processing dropping through and the file has not been closed and
reopened.

I have found it safer to delete records using the record # as above the just
deleting from an @bkD option.

For safety, one could add an input popup to confirm the deletion.  Now
whether you make the (Y)es=\kZ (enter) as a default value would be your own
choice.  I usually, in these cases, force either a (Y) or (N) to be typed to
avoid a mindless key stoke answer.

Richard Kreiss
GCC Consulting