一个例子 看了之后感觉对自己很有帮助

    /* File on web: justonce.sql */
    CREATE OR REPLACE PACKAGE BODY justonce
    IS
       TYPE desc_t IS TABLE OF hairstyles.description%TYPE
          INDEX BY BINARY_INTEGER;
       descriptions   desc_t;
    
       FUNCTION description (code_in IN hairstyles.code%TYPE)
          RETURN hairstyles.description%TYPE
       IS
          return_value   hairstyles.description%TYPE;
    
          FUNCTION desc_from_database RETURN hairstyles.description%TYPE
          IS
             CURSOR desc_cur IS
                SELECT description FROM hairstyles WHERE code = code_in;
             desc_rec   desc_cur%ROWTYPE;
          BEGIN
             OPEN desc_cur;
             FETCH desc_cur INTO desc_rec;
             CLOSE desc_cur;
             RETURN desc_rec.description;
          END;
       BEGIN
          RETURN descriptions (code_in);
       EXCEPTION
          WHEN NO_DATA_FOUND THEN
             descriptions (code_in) := desc_from_database;
             RETURN descriptions (code_in);
       END;
    END justonce;