ㄱㄱ
CREATE OR REPLACE PACKAGE BODY view_value_pkg IS PROCEDURE set_val( p_val IN VARCHAR2, p_gubun IN NUMBER ) IS BEGIN IF p_gubun = 1 THEN g_val1 := p_val; ELSIF p_gubun = 2 THEN g_val2 := p_val; ELSIF p_gubun = 3 THEN g_val3 := p_val; END IF; END set_val ;
FUNCTION get_val( p_gubun IN NUMBER ) RETURN VARCHAR2 IS v_return VARCHAR2(4000); BEGIN IF p_gubun = 1 THEN v_return := g_val1; ELSIF p_gubun = 2 THEN v_return := g_val2; ELSIF p_gubun = 3 THEN v_return := g_val3; END IF; RETURN v_return; END get_val ; END view_value_pkg;
CREATE OR REPLACE PACKAGE view_value_pkg AS g_val1 VARCHAR2(4000); g_val2 VARCHAR2(4000); g_val3 VARCHAR2(4000); g_num1 NUMBER; g_num2 NUMBER; g_num3 NUMBER; PROCEDURE set_val( p_val IN VARCHAR2, p_gubun IN NUMBER );
FUNCTION get_val( p_gubun IN NUMBER ) RETURN VARCHAR2; --------------------------------------------------------------------- PROCEDURE set_date( p_date IN DATE, p_gubun IN NUMBER );
FUNCTION get_date( p_gubun IN NUMBER ) RETURN DATE; END view_value_pkg;
-- 선언 view_value_pkg.set_num(p_num1,1); view_value_pkg.set_num(p_num2,2); view_value_pkg.set_num(p_num3,3); --가져오기 view_value_pkg.get_num(1); view_value_pkg.get_num(2); view_value_pkg.get_num(3);
??
개인 메모장도 아니고 뭐지...