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
v_cnt pls_integer;
begin
-- Check if the table already exists
select count(*) into v_cnt from user_tables where table_name = 'NUM1';
-- Create the table dynamically only if it does not exist
if v_cnt = 0 then
p_in := 'create table num1(
name varchar2(30),
id number)';
execute immediate p_in;
commit;
end if;
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;
/