Provider=OraOLEDB.Oracle.1;Password=yadayada;Persist Security Info=True;User ID=GRIFFO;Data Source=dbMeta
DECLARE n VARCHAR(256);
BEGIN
SELECT OBJECT_NAME INTO n FROM SYS.ALL_OBJECTS WHERE OBJECT_NAME = 'MYGEN' AND OWNER = 'HR';
EXCEPTION
WHEN NO_DATA_FOUND THEN
EXECUTE IMMEDIATE 'CREATE PACKAGE HR.MYGEN IS TYPE sqlcur IS REF CURSOR; END MYGEN;';
END;
/
CREATE OR REPLACE PROCEDURE \"HR\".\"PK_EMPLOYEES\"
(
p_EMPLOYEE_ID IN EMPLOYEES.EMPLOYEE_ID%type,
outCursor OUT HR.MYGEN.sqlcur
)
IS
BEGIN
OPEN outCursor FOR
SELECT
EMPLOYEE_ID,
FIRST_NAME,
LAST_NAME,
EMAIL,
PHONE_NUMBER,
HIRE_DATE,
JOB_ID,
SALARY,
COMMISSION_PCT,
MANAGER_ID,
DEPARTMENT_ID
FROM EMPLOYEES
WHERE
EMPLOYEE_ID = p_EMPLOYEE_ID
;
END PK_EMPLOYEES;
/Return to General Questions or Comments
Users browsing this forum: No registered users and 0 guests