17,086
社区成员
发帖
与我相关
我的任务
分享
SQL> create or replace package PACK_TEST is
2 v_global varchar2(1000):='nnnnnnn';
3
4 procedure get_values (v_values out varchar2);
5 procedure set_values (v_values11 in varchar2);
6 procedure set_values (v_values11 in number);
7
8 end PACK_TEST;
9 /
程序包已创建。
SQL> create or replace package body PACK_TEST is
2 procedure get_values (
3 v_values out varchar2
4 )
5 as
6
7 begin
8 v_values:=v_global;
9
10 end;
11
12 procedure set_values (
13 v_values11 in varchar2
14 )
15 as
16
17 begin
18 v_global:=v_values11;
19 exception
20 when others then
21 dbms_output.put_line(sqlcode||':'||sqlerrm);
22 end;
23
24 procedure set_values (
25 v_values11 in number
26 )
27 as
28
29 begin
30 v_global:=v_values11;
31 exception
32 when others then
33 dbms_output.put_line(sqlcode||':'||sqlerrm);
34 end;
35 end PACK_TEST;
36 /
程序包体已创建。
SQL> declare
2 v_c varchar2(100);
3 v_d varchar2(100);
4 begin
5 v_c:='wkc';
6 pack_test.set_values(v_c);
7 pack_test.get_values(v_d);
8 dbms_output.put_line(v_d);
9 end;
10 /
PL/SQL 过程已成功完成。
SQL> set serveroutput on
SQL> /
wkc
SQL> ed
已写入 file afiedt.buf
1 create or replace package PACK_TEST is
2 v_global varchar2(1000):='uuuu';
3 procedure get_values (v_values out varchar2);
4 procedure set_values (v_values11 in varchar2);
5 procedure set_values (v_values11 in number);
6* end PACK_TEST;
7 /
程序包已创建。
SQL>
SQL> declare
2 v_c varchar2(100);
3 v_d varchar2(100);
4 begin
5 pack_test.get_values(v_d);
6 dbms_output.put_line(v_d);
7 end;
8 /
uuuu
PL/SQL 过程已成功完成。