Аркадий
Я плохо понимаю суть написанного, т. к. впервые столкнулся с Postgres.

Аркадий
К тому же у меня к Postgres есть только жалкая оболочка DBeaver, в которой я не могу по-человечески даже запустить набор команд.

Аркадий
Например, есть несколько различных типов объектов/субъектов, имеющих адреса, телефоны, паспорта, электропочту и прочую одинаковую ерунду, которую я храню в единых для всех таблицах. Поэтому хочется вести у них (в таблицах с этими объектами/субъектами) общую уникальную кодировку. Для этого я завёл свой счётчик.

Аркадий
Конечно, я могу из фокса писать явный UPDATE и SELECT, брать значение из полученного курсора, но уже привык получать значение кода из процедуры сразу в переменную и использовать её.
Я рассчитывал, что такие свойства процедур едины и присущи всем СУБД, и я смогу всюду использовать свои базовые классы с подобными процедуринами.

Аркадий
можно реализовать моё желание?

Аркадий
Таблицы не одинаковые в части полей, это всё дочерние таблицы, т. к. адресов, телефонов и пр. у каждой записи может же быть произвольное количество, а все прочие реквизиты совершенно разные.

CREATE SCHEMA sdadd AUTHORIZATION postgres;

CREATE SEQUENCE sdadd.my_big_sequence;

CREATE TABLE sdadd.email
(
  id integer NOT NULL DEFAULT nextval('sdadd.my_big_sequence'::regclass),
  email character varying(40),
  CONSTRAINT sdadd_email_id PRIMARY KEY (id)
);

CREATE TABLE sdadd.phone
(
  id integer NOT NULL DEFAULT nextval('sdadd.my_big_sequence'::regclass),
  phone character varying(40),
  CONSTRAINT sdadd_phone_id PRIMARY KEY (id)
);

insert into sdadd.phone (phone) values ('123');
insert into sdadd.email (email) values ('abc');
insert into sdadd.phone (phone) values ('456');
insert into sdadd.email (email) values ('def');
select currval('sdadd.my_big_sequence'::regclass);

Аркадий

UPDATE id_counter SET @nRetVal = id_counter.id, id_counter.id = id_counter.id + 1

PaulWist

Аркадий

UPDATE id_counter SET @nRetVal = id_counter.id, id_counter.id = id_counter.id + 1

Честно говоря "напрягла" эта конструкция, в табличке id_counter ВСЕГДА ОДНА запись?

Аркадий
Я так понимаю, что общую последовательность надо сделать у основных таблиц. Это у людей и организаций разного рода коды не должны пересекаться. А в списках адресов и телефонов - безразлично.

  CREATE TABLE sdadd.email  
  (  
    id serial NOT NULL,  
    email character varying(40),  
    CONSTRAINT sdadd_email_id PRIMARY KEY (id)  
  ); 

lnNewId := NextVal('email_id_seq'::RegClass);
INSERT INTO Email (Id, Email) VALUES (lnNewId, '''.phorum_html_encode('My@Email.Com').''');

Аркадий

SQLEXEC(nStatementHandle, 'select * from tstfunc(?@pp, ?qq);' )

не работает, как хочется. Переменная pp, объявленная в программе, не меняется, как ни передавай: ?@pp или ?pp. Курсор возвращается с полем с именем INOUT-параметра.
Но не хочется получать курсор, запоминать и возвращаться в рабочие области, может, в этот Postgres нельзя передать параметр по ссылке?

Аркадий
Неужели стандартный вызов процедуры

EXECUTE tstfunc ?@pp, ?qq

тут не существует?

Аркадий
Спасибо! Что-нибудь придумаю.
А можно ли в эту процедуру вставить транзакцию? Конструкция типа

begin ;
commit;

приведённая на их форуме, выдаёт ошибку о неположенной ';'