Get statement

[Aci Polajnar]

Hi there!

I have troubles with an very simple screen looks like this:

scr x

file krckre designer

procedure designer xx nodata
begin
  get krckre viai krckre-id using "3000052" opt
  if accessok
   then info "3000052 - OK - 1!" now res
  while retr krckre viai krckre-id using "9876543"
  begin
    info "9876543 - OK!" now res
  end
  get krckre viai krckre-id using "3000052" opt  <-----------
  if accessok
   then info "3000052 - OK - 2!" now res
   else info "3000052 - NOT OK - 2!" now res
end

My platform is OPEN VMS 7.3, PH is 7.10G1 and krckre is
RMS file with unique index krckre-id. In my file I have an
existing id "3000052". Id  "9876543" doesen't exists.

My problem is that the second get statement alvays fails if preceding
while retrieving loop doesen't find anything. I have already tried all
kinds of open and close options I can also ommit the first get statement,
with same result.

Anyone familiar with this???

Regards!

-- 
                  _\\///_
                 (' o-o ')
_______________ooOo_( )_oOoo_____________________________________

Aci Polajnar                  Tel   : +386(0)3 4274174
IS Consultant                 Fax   : +386(0)3 4274198
Razvojni Center Celje         e-mail: acip@rcc-irc.si
3000 Celje, Slovenia          URL   : http://www.rcc-irc.si  
_______________oooO____Oooo______________________________________
              (   )    (   )
               \ (      ) /
                \_)    (_/