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);  

 ??

 개인 메모장도 아니고 뭐지...