В результате ожидаю получить возвращаемое значение, а получаю .F. и
loAnswer= -1
Что не так? Процедура в оракле отрабатывает нормально.

В фоксе:
LOCAL RNOUT,CodeOut,DateOut,par4
Handle=SQLCONNECT(...)
RNOUT= 100
CodeOut=1
DateOut=DATE()
stroka = [call gen_card('RNOUT','CodeOut','DateOut',?@par4)]
loAnswer=SQLEXEC(Handle,stroka) && Здесь возвращает -1
MESSAGEBOX(par4) && Здесь нет результата
SQLDISCONNECT(Handle)

в оркле:
create or replace procedure gen_card
(
vrn in number,ntype in number,dat in date, serr out varchar2
)
as
begin
insert into a_prikaz(rn) values(gen_id());
commit;
serr:=to_char(vrn) ||' '|| to_char(ntype) || ' Привет!';
end;