DEFINE wczytaj_sprzedaz2 PROGRAM
PROGRAM
  SQL DECLARE k_sprz CURSOR FOR select sklep, produkt, miesiac, l_sztuk from v_sprzedaz
  SQL OPEN k_sprz
  SQL FETCH k_sprz LOOP INTO :MATCH sklepy -
                             :MATCH d_prod_nazwa -
                             :MATCH czas -
                             :sprzedane (sklepy sklepy d_produkty d_prod_nazwa czas czas)
  SQL CLOSE k_sprz
  SQL CLEANUP
  UPDATE
  COMMIT
END