Easy Learning... (Web Development,.NET Technology,Oracle,Silverlight,REST,SQL,Oracle,MySQL,Data Science, Python and many more ...)
CREATE OR REPLACE PACKAGE emp_package AS
PROCEDURE addemp(veno emp.eno%type, vename emp.ename%type, vesalary emp.esalary%type);
PROCEDURE addemp(veno emp.eno%type, vename emp.ename%type, vesalary emp.esalary%type, vedoj emp.edoj%type, vedno emp.edno%type);
END emp_package;
/
SET Serveroutput ON
DECLARE
veno emp.eno%type;
BEGIN
veno := '&veno';
DBMS_OUTPUT.PUT_LINE(emp_name.find_name(veno));
END;
/
CREATE OR REPLACE PACKAGE BODY emp_name AS
FUNCTION find_name(veno emp.eno%TYPE) return varchar IS
vename emp.ename%TYPE;
BEGIN
SELECT ename INTO vename
FROM emp
WHERE eno = veno;
RETURN vename;
END;
END emp_name;
/
CREATE OR REPLACE PACKAGE emp_name AS
FUNCTION find_name(veno emp.eno%type)return varchar;
END emp_name;
/
SET Serveroutput ON
DECLARE
veno emp.eno%type;
BEGIN
veno := '&veno';
emp_sal.find_sal(veno);
END;
/
CREATE OR REPLACE PACKAGE BODY emp_sal AS
PROCEDURE find_sal(veno emp.eno%TYPE) IS
vesalary emp.esalary%TYPE;
BEGIN
SELECT esalary INTO vesalary
FROM emp
WHERE eno = veno;
dbms_output.put_line('Salary: '|| vesalary);
END;
END emp_sal;
/
CREATE OR REPLACE PACKAGE emp_sal AS
PROCEDURE find_sal(veno emp.eno%type);
END emp_sal;
/