Update a date type in a table

Question

I am trying to update a date type coloumn in table;
declare
cursor cur is
select current_doh
from adp_service_dates71608
for update of adp_service_dates71608.current_doh;
rec cur%rowtype;
begin
for rec in cur loop
dbms_output.put (
to_char (rec.current_doh
if rec.current_doh > 2030 then
update adp_service_dates71608 set to_date(to_char(t.current_doh,'ddmmyyyy')-100, 'ddmmyyyy')
where current of cur;
dbms_output.put_line(' updated');
else
dbms_output.new_line;
end if;
end loop;
end;
when I run it I get erro like
ORA-06550: line 11, column 6:
PLS-00103: Encountered the symbol ";" when expecting one of the following:
. ( ) , * % & | = - + < / > at in is mod remainder not range
rem => .. <an exponent (**)> <> or != or ~= >= <= <> and or
like LIKE2_ LIKE4_ LIKEC_ as between from using || multiset
member SUBMULTISET_
The symbol ")" was substituted for ";" to continue.
ORA-06550: line 13, column 57:
PLS-00103: Encountered the symbol "(" when expecting one of the following:
ORA-06550: line 13, column 99:
PLS-00103: Encountered the symbol ")" when expecting one of the following:
, * & - + / at mod remainder rem <an identifier>
<a double-quoted delimited-identifier> <an exponent (**)> as
from into || multiset bulk
what error?
thanks

Answer 1

I formatted it for you:
declare
    cursor cur is
        select current_doh
        from   adp_service_dates71608
        for update of adp_service_dates71608.current_doh;
        rec cur%rowtype;
begin
    for rec in cur loop
        dbms_output.put ( to_char (rec.current_doh );
        if rec.current_doh > 2030 then
            update adp_service_dates71608
            set to_date(to_char(t.current_doh,'ddmmyyyy')-100, 'ddmmyyyy')
            where current of cur;
            dbms_output.put_line(' updated');
        else
            dbms_output.new_line;
        end if;
    end loop;
end;Check the number of opening and closing brackets in the dbms_output.put statement. Also, the syntax of UPDATE is
UPDATE sometable SET somecolumn = somevalue WHERE ...Also "rec cur%rowtype;" is not needed or used. The Cursor FOR loop construction implicitly declares its own, and the one you declared at the top is ignored.
Message was edited by:
William Robertson