www.allods2.com

PROCEDURE n_lock_dover  (tbl IN OUT n_dover_tab,   nom IN NUMBER)  IS
BEGIN DECLARE
    x BINARY_INTEGER;
    temp NUMBER(10,0);
    BEGIN
      FOR x IN 1..tbl.COUNT
      LOOP
        SELECT kod
        INTO temp
        FROM THE(SELECT n1_naimen FROM d_dover4 WHERE kod=nom)
        WHERE kod=tbl(x).kod
        FOR UPDATE;
      END LOOP;
    END;
END;