Db/Oracle
Oracle Package Procedure Sample
seongsland
2010. 4. 6. 23:54
CREATE OR REPLACE PACKAGE DD_PKG AS
PROCEDURE DD_MAIN (
vi_seq IN VARCHAR2,
out_msg OUT VARCHAR2
);
END DD_PKG;
/
CREATE OR REPLACE PACKAGE BODY DD_PKG AS
PROCEDURE DD_MAIN (
vi_seq IN VARCHAR2,
out_msg OUT VARCHAR2
)
AS
BEGIN
out_msg := '0';
IF 1=1 THEN
DD_MAIN2(vi_seq, out_msg);
DD2.DD_MAIN(vi_seq, out_msg);
ELSIF 2=2 THEN
out_msg := '1';
BEGIN
UPDATE DD SET CC = '' WHERE CC = '1'
END;
END IF;
END DD_MAIN;
END DD_PKG;
/
PROCEDURE DD_MAIN (
vi_seq IN VARCHAR2,
out_msg OUT VARCHAR2
);
END DD_PKG;
/
CREATE OR REPLACE PACKAGE BODY DD_PKG AS
PROCEDURE DD_MAIN (
vi_seq IN VARCHAR2,
out_msg OUT VARCHAR2
)
AS
BEGIN
out_msg := '0';
IF 1=1 THEN
DD_MAIN2(vi_seq, out_msg);
DD2.DD_MAIN(vi_seq, out_msg);
ELSIF 2=2 THEN
out_msg := '1';
BEGIN
UPDATE DD SET CC = '' WHERE CC = '1'
END;
END IF;
END DD_MAIN;
END DD_PKG;
/