DECLARE
 arh_tab_cur CURSOR for SELECT name_table,name_prefix FROM owner_ink.arh_list_tables;
 arh_tab_rec RECORD;
 _id_event int4;
 _status              bpchar(32);
BEGIN

LOOP
FETCH NEXT FROM arh_tab_cur INTO arh_tab_rec;
EXIT WHEN NOT FOUND;

  _status = 'COMPLITE';
  EXECUTE 'INSERT INTO owner_ink.arh_events (id_event,fdate,desc_event) VALUES ('||_id_event||',now(),'||chr(39)||'создание таблицы '||arh_tab_rec.name_prefix||'_'||arh_tab_rec.name_table||' '||chr(39)||')';

  BEGIN
    EXECUTE 'CREATE TABLE owner_ink.'||arh_tab_rec.name_prefix||'_'||arh_tab_rec.name_table||' as TABLE owner_ink.'||arh_tab_rec.name_table||' with NO DATA';
    EXCEPTION WHEN OTHERS then
      _status = 'FALIED';
   END;

  EXECUTE 'UPDATE owner_ink.arh_events SET status='||chr(39)||_status||chr(39)||',edate=now() WHERE id_event='||_id_event;

END LOOP;
CLOSE arh_tab_cur;
END;