Need a help on Screen entry

[Chris Sharman]

>Effective-Date                      Interest                    Valid
>--------------------                       -----------                    ---------
>June 28, 1999                            .333                       Y
>June 30, 1999                            .332                       N
>June 30, 1999                            .342                       Y

>In this screen you can only enter data.  if the user is entered an incorrect
>interest, then he is allowed to enter the effective date again and enter the
>interest,  When a new  interest is entered for an existing effective date, the
>system would turn the first entry as invalid.
>
>I have tried so many ways, but no luck yet.

I'd suggest something like this ...

file interest primary occurs N
file interest secondary alias old occurs with interest open 1
 access via effective-date using effective-date of interest
 select if (valid="Y")

...

field effective-date lookup on old nowarn

...

procedure preupdate
 begin
 for interest
  if not newrecord of old
   then let valid of old = "N"
 end

_______________________________________________________________________
Chris.Sharman@CCAgroup.co.uk		http://www.ccastat.demon.co.uk/
CCA Stationery Ltd, Eastway, Fulwood, Preston, Lancashire, PR2 9WS.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.