Why is this record being saved?

[Barry Wiseman]

Howard Wolowitz wrote:
> 
> ----- Original Message ----- From: "Barry Wiseman" <barry at gensoftdes.com>
> To: "filePro list" <filepro-list at lists.celestial.com>
> Sent: Tuesday, March 21, 2006 11:53 AM
> 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?
> 
> 
> I'm not sure without testing but try
> 
> pushkey "[brky]" ; end
> 
> if the user presses break.
> 
> Howie

You mean this?

    103  :@sk eq "BRKY":clearp; pushkey "[BRKY]"; end:

That takes me back too far, to the "Enter Record Number" prompt or however I had 
gotten to the record I was standing on.  P.S., the fields are still saved.

    "I'm in pain!  I'm in pain ... and I'm wet ... and I'm STILL hysterical!"
					-- Leo Blum, "The Producers"

-----------------------------------------------------------------
  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
-----------------------------------------------------------------