create or replace package cr_in_u is
procedure n_a (p_in varchar2);
procedure c_i (p_n varchar2,p_i number);
procedure c_i_u (p_s varchar2,p_w number);
end cr_in_u;
create or replace package body cr_in_u is
procedure n_a
(p_in in out varchar2) as
begin
p_in := 'create table num1(
name varchar2(30),
id number)';
EXECUTE IMMEDIATE p_in;
commit;
end;
procedure c_i (p_n varchar2
,p_i number) as
begin
insert into num1 values(p_n,p_i);
end;
procedure c_i_u (p_s varchar2,p_w number) as
begin
update num1 set name = p_s where id = p_w;
end;
end;
/