DEFINE wczytaj_sklepy PROGRAM
PROGRAM
  SQL DECLARE k_skl CURSOR FOR select nazwa from sklepy
  SQL OPEN k_skl
  SQL IMPORT k_skl INTO :APPEND sklepy
  SQL CLOSE k_skl
  SQL CLEANUP
  UPDATE
  COMMIT
END