home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / oraexamp.sql < prev    next >
Encoding:
Text File  |  1995-04-13  |  668 b   |  30 lines
  1. -- These stored procedures assume that you have already run DEMOBLD7.SQL
  2.  
  3.  
  4. create or replace package Employee as
  5.  
  6.  PROCEDURE GetEmpName (inEmpno IN NUMBER, outEmpName OUT VARCHAR2);
  7.  FUNCTION GetEmpSal (inEmpno IN NUMBER)  RETURN NUMBER;
  8.  
  9. end Employee;
  10. /
  11.  
  12.  
  13. create or replace package body Employee as
  14.  
  15. PROCEDURE GetEmpName (inEmpno IN NUMBER, outEmpName OUT VARCHAR2) is 
  16. BEGIN 
  17.  SELECT ENAME into outEmpName from EMP WHERE EMPNO = inEmpNo;
  18. END;
  19.  
  20. FUNCTION GetEmpSal (inEmpno IN NUMBER)
  21. RETURN NUMBER is 
  22.   outEmpsal NUMBER(7,2);
  23. BEGIN 
  24.   SELECT SAL into outEmpsal from EMP WHERE EMPNO = inEmpno;
  25.   RETURN (outEmpsal);
  26. END;
  27.  
  28. end Employee;
  29. /
  30.