Why is this record being saved?

[GCC Consulting]

> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com 
> [mailto:filepro-list-bounces at lists.celestial.com] On Behalf 
> Of Barry Wiseman
> Sent: Tuesday, March 21, 2006 11:53 AM
> To: filePro list
> Subject: Why is this record being saved?
> 
> 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?

100  @KEY$::input popup yn "Update cost (y/n) ? ":
101  :yn ne "Y":end:
102  ::popup update -,"A2":
103  :@sk eq "BRKY":clearp;EXIT:
104  ::clearp; gosub updcost; goto exit:

Richard Kreiss
GCC Consulting