示例：创建和修改一个包体

CREATE OR REPLACE PACKAGE BODY pkg_test as
  PROCEDURE sp_insert_t1( p_name varchar2 )
    AS  
    BEGIN
        INSERT INTO t1(id, name) values(seq_t1.nextval, p_name) ;
        COMMIT;
        dbms_output.put_line('Add a row which name is : ' || p_name );
    EXCEPTION 
            ROLLBACK;
            dbms_output.put_line('Exception raised!');
    END;
    FUNCTION f_maxid_of_t1 RETURN number
    IS
        i_id    number := -1;
    BEGIN
        RETURN i_id;
    EXCEPTION
        WHEN OTHERS THEN            
            RETURN NULL;
    END;
END; 
/
delimiter ;