create or replace package body pk_demo is
--
p_body_string varchar2(100) := '*';
p_body_string2 varchar2(100) := '%';
procedure pro_OutputStr is
begin
dbms_output.put_line(p_body_string);
dbms_output.put_line(p_head_string);
end;
procedure pro_Upd_str is
begin
p_body_string := p_body_string || '*';
p_head_string := p_head_string||'@';
end;
begin
p_body_string := p_body_string||'*';
p_head_string := p_head_string||'@';
end;
create or replace package body pk_demo is
--
p_body_string varchar2(100) := '*';
p_body_string2 varchar2(100) := '%';
procedure pro_OutputStr is
begin
dbms_output.put_line(p_body_string);
dbms_output.put_line(p_head_string);
end;
procedure pro_Upd_str is
begin
p_body_string := p_body_string || '*';
p_head_string := p_head_string||'@';
end;
begin
p_body_string := p_body_string||'*';
p_head_string := p_head_string||'@';
end;