PROCEDURE emp_proc(num NUMBER);
FUNCTION emp_fun(empno NUMBER) RETURN VARCHAR2;
END pack_me;
CREATE OR REPLACE PACKAGE BODY pack_me AS
PROCEDURE emp_proc(num NUMBER) IS
e_mail VARCHAR2(50);
BEGIN
SELECT t.e_mail INTO e_mail
FROM employees t
WHERE t.id = num;
DBMS_OUTPUT.PUT_LINE(e_mail);
END emp_proc;
FUNCTION emp_fun(empno NUMBER) RETURN VARCHAR2 IS
emp_name VARCHAR2(10);
BEGIN
SELECT t.name INTO emp_name
FROM employees t
WHERE t.id = empno;
RETURN emp_name;
END emp_fun;
END pack_me;