1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

CREATE PROCEDURE ARTIKELTREE (
    ROOT INTEGER,
    LVL INTEGER)
RETURNS (
    AID INTEGER,
    RLVL INTEGER)
AS
DECLARE VARIABLE SUB_AID INTEGER;
begin
SELECT aid from artikel WHERE aid=:ROOT INTO :aid;

IF (aid IS NOT NULL) THEN
    BEGIN
    RLVL=LVL;
    SUSPEND;
    FOR
        SELECT aid FROM artikel
        WHERE parent=:root
        ORDER BY aid
        INTO :sub_aid
    DO
        BEGIN
        FOR
            SELECT aid, rlvl FROM artikeltree(:sub_aid,:lvl+1)
            INTO :aid,:rlvl
            DO
                SUSPEND;
            END
        END
    END                    

1:
2:
3:

for variable in (select ...) loop
...
end loop;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

declare cursor mycursor [local static forward_only] for select * from foobar
open mycursor

fetch next from mycursor into @var1, @var2, @var2
while (@@fetch_status = 0) begin
  // do something 
  fetch next from mycursor into @var1, @var2, @var2
end

close mycursor
deallocate mycursor