Forms 4.5 Situation

This code works in SQL+ but will not work in Forms 4.5. I know everything is fine except forms will not acknowledge the where clause in the update. The code is in a procedure and called in the When-New-Forms-Instance.

begin
declare

 v_1 fv_cashpoll.rest_number%type;
 v_2 char(10);
 v_4 fv_cashpoll.reg_date%type;
 v_5 fv_cashpoll.hold_flag%type;

 

cursor c_6 is

   select c.rest_number, d.reg_date, to_char(c.reg_date,'DY'), c.hold_flag from fv_cashpoll c, fv_cashpoll d, fv_restbank r

     where c.rest_number = r.rest_number and c.rest_number = d.rest_number

     and c.cash > r.wed_maxcash and c.cash_batch is null;

BEGIN
open c_6;
loop

fetch c_6 into v_1,v_4,v_2,v_5;

if v_2 = 'WED' then

         message('wed update');
	  update fv_cashpoll
  	  set hold_flag = 'Y'
          where reg_date = v_4 and rest_number = v_1; 
          message('after update');
else           

    null;
    message('not wed');
end if;

exit when c_6%notfound;
end loop;
close c_6;
commit;
END;
end;

Any input would be helpful, TIA

Dave Pierrepont Received on Wed Apr 23 1997 - 00:00:00 CEST