CREATE OR REPLACE PACKAGE pkg_test
AS
type t_record is record(   
     code varchar(8),
     name varchar(10),
     sex  varchar(2),
     biyeyanxiao varchar(20));
END pkg_test;
/
create or replace procedure www(qianggegejilu in pkg_test.t_record) is
returnline integer:=0;
begin
   insert into qianggege values (qianggegejilu.code,qianggegejilu.name,qianggegejilu.sex,qianggegejilu.age,qianggegejilu.jiguan,qianggegejilu.biyeyanxiao);
    returnline:=returnline+1;
end www;
/
declare
qianggege1 pkg_test.t_record;
begin
qianggege1.code:='19991834';
qianggege1.name:='张岩';
qianggege1.sex:='男';
qianggege1.biyeyanxiao:='东北林业大学';
www(qianggege1);
end;
/