Why is this record being saved?

[Barry Wiseman]

GCC Consulting wrote:

>>-----Original Message-----
>>From: filepro-list-bounces at lists.celestial.com 
>>[mailto:filepro-list-bounces at lists.celestial.com] On Behalf 
>>Of Barry Wiseman

>>I have the following code fragment:
>>
>>100  @KEY$::input popup yn "Update cost (y/n) ? ":
>>101  :yn ne "Y":end:
>>102  ::popup update -,"A2":
>>103  :@sk eq "BRKY":clearp; end:
>>104  ::clearp; gosub updcost; goto exit:
>>
>>In the course of navigating Screen A2, WLF processing is 
>>triggered which performs various lookups and calculations, 
>>and populates some fields on screen A2 with data. 
>>There are no WRITE statements anywhere in this code.
>>
>>When I press Ctrl-C to cancel out of screen A2, the debugger 
>>shows me that line 103 tests true and the END is performed at 
>>that point.  Nevertheless, I find that the record has been 
>>rewritten, and the modified fields from screen A2 have been saved.
>>
>>Is this expected behavior?  How can I discard the results of 
>>this POPUP UPDATE if the user requests BREAK instead of SAVE?
>>
> 
> Have you tried changin the end of line 106 to "EXIT" instead of END?

Well, no, since that will terminate the entire program rather than exit the current
record. ;-)  But, trying your proposed change anyway, I see the record still gets saved.

Apparently the mere fact of having performed WLF processing within the POPUP UPDATE
is flagging the record for rewrite no matter what I do next....?

-----------------------------------------------------------------
  Barry Wiseman                              barry at gensoftdes.com
  Genesis Software Designs, Inc.            Voice: (212) 889-9191
  18 E. 41 Street, New York, NY 10017         Fax: (212) 889-1589
-----------------------------------------------------------------