Entschuldige habe Fehler gefunden
SQL-Code:
create PROCEDURE RI_ALT (
JAHR SMALLINT,
MONAT SMALLINT)
AS
DECLARE VARIABLE R INTEGER;
DECLARE VARIABLE JAHR1 SMALLINT;
DECLARE VARIABLE MONAT1 SMALLINT;
DECLARE VARIABLE T INTEGER;
begin
for
select nr,extract(year from geb_datum),
extract(month from geb_datum) from rinder
where id_nr < 20000
into :t,:jahr1,:monat1
do begin
r = (((jahr-jahr1)-1)*12)+12-monat1+monat;
update rinder set alter_ = :r where nr = :t;
end
suspend;
end
Danke an Malo und Phoenix
peter
[edit=Sharky]SQL-Tags gesetzt. Mfg, Sharky[/edit]