CREATE DOMAIN orders.d_int
  AS integer
  DEFAULT  0 
  NOT NULL;
ALTER DOMAIN orders.d_int OWNER TO postgres;

CREATE DOMAIN orders.d_num10_2
  AS numeric( 10 , 2 )
  DEFAULT  0 
  NOT NULL;
ALTER DOMAIN orders.d_num10_2 OWNER TO postgres;

CREATE SEQUENCE orders.gen_test
  INCREMENT  1 
  MINVALUE  1 
  MAXVALUE  9223372036854775807 
  START  1 
  CACHE  1 ;
ALTER TABLE orders.gen_test OWNER TO postgres;

CREATE TABLE orders.test1
(
  nid integer NOT NULL DEFAULT  0 ,
  mynum orders.d_num10_2 NOT NULL DEFAULT  0 ,
  CONSTRAINT p_test1_nid PRIMARY KEY (nid)
)
WITH (OIDS=FALSE);
ALTER TABLE orders.test1 OWNER TO postgres;

CREATE OR REPLACE FUNCTION orders.p_test3(IN lnnum orders.d_num10_2, OUT lnid orders.d_int)
  RETURNS orders.d_int AS
$BODY$begin
lnid=nextval('orders.gen_test');
insert into orders.test1 (nid,mynum) values (lnid,lnnum); 
end$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
ALTER FUNCTION orders.p_test3(orders.d_num10_2) OWNER TO postgres;

LOCAL aaa
  aaa= 32131 . 21 
  llOk=SQLEXEC(lnHand,'SELECT * FROM orders.p_test3(?aaa)',"tCurRet")

llOk=SQLEXEC(lnHand,'SELECT * FROM orders.p_test3(12345.12)',"tCurRet")

LOCAL aaa
aaa= 32131 . 21 
llOk=SQLEXEC(lnHand,'SELECT * FROM orders.p_test3(?aaa::numeric)',"tCurRet")