Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.misc -> Syntax error - what is wrong

Syntax error - what is wrong

From: <tni_at_nc.rr.com>
Date: 11 Aug 2006 14:01:58 -0700
Message-ID: <1155330118.815902.5120@p79g2000cwp.googlegroups.com>


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; Received on Fri Aug 11 2006 - 16:01:58 CDT

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US