DEFINE wczytaj_produkty PROGRAM
PROGRAM
  SQL DECLARE kurs_prod CURSOR FOR -
    select prod_nazwa, rodzaj, kategoria -
    FROM produkty

  SQL OPEN kurs_prod

  SQL FETCH kurs_prod LOOP INTO :APPEND d_prod_nazwa -
                                :APPEND d_prod_rodzaj -
				:APPEND d_prod_kategoria -
    THEN -
         rel_d_produkty(d_produkty d_prod_nazwa) = d_produkty(d_prod_rodzaj d_prod_rodzaj) -
	 rel_d_produkty(d_produkty d_prod_rodzaj) = d_produkty(d_prod_kategoria d_prod_kategoria)
  SQL CLOSE kurs_prod
  SQL CLEANUP
  UPDATE 
  COMMIT
END