基于DM数据库的“Power Builder“程序开发

--建表
create table pbdm (a bigint,b binary,c bit,
d blob,e char,f clob,g date,h decimal,i double,
j float,k integer,l smallint,m time,
n timestamp,o tinyint,p varbinary,q varchar);
--输入参数过程
create or replace procedure proc_in 
(b binary,c bit,d blob,e char,f clob,g date,h decimal,
i double,j float,k integer,l smallint,
m time,n timestamp,o tinyint,p varbinary,q varchar)
as
temp integer;
begin
select isnull(max(a),0) into temp from pbdm;
temp:=temp 1
insert into pbdm values (temp,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q);
end;
--输出参数过程
create or replace procedure proc_out(a1 in int , 
b1 out binary , c1 out bit , d1 out blob , 
e1 out char , f1 out clob , g1 out date , 
h1 out decimal
, i1 out double , j1 out float , k1 out integer , 
l1 out smallint , m1 out time , n1 out timestamp , o1 out
tinyint , p1 out varbinary , q1 out varchar ) 
as 
temp integer ;
begin 
select b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q into b1,c1,
d1,e1,f1,g1,h1,i1,j1,k1,l1,m1,n1,o1,p1,
q1 from pbdm where pbdm.a = a1 ;
print 'hi' ;
end
--输入输出参数过程
create or replace procedure proc_inout
(a1 in out int , b1 in out binary , c1 in out bit ,
d1 in out blob , e1 in out char , f1 in out clob , 
g1 in out date , h1 in out decimal
, i1 in out double , j1 in out float , 
k1 in out integer , 
l1 in out smallint , m1 in out time , 
n1 in out timestamp , o1 in out
tinyint , p1 in out varbinary , q1 in out varchar ) 
as 
temp integer ;
begin 
select b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q into b1,c1,
d1,e1,f1,g1,h1,i1,j1,k1,l1,m1,n1,o1,p1,
q1 from pbdm where pbdm.a = a1 ;
print 'hi' ;end