![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
#3
| |||
| |||
|
|
What is wrong with this? create or replace PACKAGE DAL_TABLE_METHODS AS TYPE T_CURSOR IS REF CURSOR; PROCEDURE GET_EMP ( p_EMPNO IN NUMBER, cur_EMP OUT T_CURSOR ); PROCEDURE UPDATE_EMP ( pEMPNO IN NUMBER, pENAME IN VARCHAR2, pJOB IN VARCHAR2, pMGR IN NUMBER, pHIREDATE IN DATE, pSAL IN NUMBER, pCOMM IN NUMBER, pDEPTNO IN NUMBER ); PROCEDURE DELETE_EMP ( p_EMPNO IN NUMBER ); PROCEDURE INSERT_EMP ( pEMPNO OUT NUMBER, pENAME IN VARCHAR2, pJOB IN VARCHAR2, pMGR IN NUMBER, pHIREDATE IN DATE, pSAL IN NUMBER, pCOMM IN NUMBER, pDEPTNO IN NUMBER ); END DAL_TABLE_METHODS; CREATE OR REPLACE PACKAGE BODY DAL_TABLE_METHODS AS PROCEDURE GET_EMP ( p_EMPNO IN NUMBER, cur_EMP OUT T_CURSOR ) IS BEGIN OPEN cur_EMP FOR SELECT "EMPNO" , "ENAME" , "JOB" , "MGR" , "HIREDATE" , "SAL" , "COMM" , "DEPTNO" FROM EMP WHERE (EMPNO = p_EMPNO); END GET_EMP; PROCEDURE UPDATE_EMP ( pEMPNO IN NUMBER, pENAME IN VARCHAR2, pJOB IN VARCHAR2, pMGR IN NUMBER, pHIREDATE IN DATE, pSAL IN NUMBER, pCOMM IN NUMBER, pDEPTNO IN NUMBER ) IS BEGIN UPDATE EMP SET "ENAME" = pENAME , "JOB" = pJOB , "MGR" = pMGR , "HIREDATE" = pHIREDATE , "SAL" = pSAL , "COMM" = pCOMM , "DEPTNO" = pDEPTNO WHERE (EMPNO = p_EMPNO); END UPDATE_EMP; PROCEDURE DELETE_EMP ( p_EMPNO IN NUMBER ) IS BEGIN DELETE FROM EMP WHERE (EMPNO = p_EMPNO); END DELETE_EMP; PROCEDURE INSERT_EMP ( pEMPNO OUT NUMBER, pENAME IN VARCHAR2, pJOB IN VARCHAR2, pMGR IN NUMBER, pHIREDATE IN DATE, pSAL IN NUMBER, pCOMM IN NUMBER, pDEPTNO IN NUMBER ) IS BEGIN pEMPNO := DEVELOPER.EMPNO_SEQUENCE.NEXTVAL; INSERT INTO "EMP" ( "EMPNO" ,"ENAME" ,"JOB" ,"MGR" ,"HIREDATE" ,"SAL" ,"COMM" ,"DEPTNO" ) VALUES ( pEMPNO ,pENAME ,pJOB ,pMGR ,pHIREDATE ,pSAL ,pCOMM ,pDEPTNO ); END INSERT_EMP; END DAL_TABLE_METHODS; |
![]() |
| Thread Tools | |
| Display Modes | |
| |