home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEV / EODEV.Z / oraclesp.sql < prev    next >
Encoding:
Text File  |  1996-08-24  |  1.7 KB  |  59 lines
  1. create or replace procedure insert_movie (
  2.   Category VARCHAR2,
  3.   DateReleased DATE,
  4.   Language NUMBER,
  5.   Movie_ID NUMBER,
  6.   Rating VARCHAR2,
  7.   Revenue NUMBER,
  8.   Studio_ID NUMBER,
  9.   Title VARCHAR2
  10. ) IS
  11. begin
  12.   insert into movie ( category, date_released, language, movie_id,
  13.     rating, revenue, studio_id, title) values (Category, DateReleased,
  14.     Language, Movie_ID, Rating, Revenue, Studio_ID, Title);
  15. end;
  16. /
  17.  
  18. create or replace procedure delete_movie (Movie_ID number) IS
  19.   tempID NUMBER;
  20. begin
  21.   tempID := Movie_ID;
  22.   delete from movie where movie.movie_id = tempID;
  23. end;
  24. /
  25.  
  26. create or replace procedure NEXT_MOVIE_PRIMARY_KEY (a_movie_id OUT NUMBER) IS
  27. begin
  28.   select movie_seq.nextval into a_movie_id from dual;
  29. end;
  30. /
  31.  
  32. create or replace package movie_procedures as
  33.   TYPE MovieCursorType is REF CURSOR return movie%ROWTYPE;
  34.   PROCEDURE fetch_movies_all (rows IN OUT MovieCursorType);
  35.   PROCEDURE fetch_movie_with_primary_key (aMovie_id int,
  36.                                                 rows IN OUT MovieCursorType);
  37. end movie_procedures;
  38. /
  39.  
  40. create or replace package body movie_procedures as
  41.   PROCEDURE fetch_movies_all (rows IN OUT MovieCursorType) IS
  42.   begin
  43.     open rows for
  44.     SELECT  t0.CATEGORY, t0.DATE_RELEASED, t0.LANGUAGE, t0.MOVIE_ID,
  45.     t0.RATING, t0.REVENUE, t0.STUDIO_ID, t0.TITLE  FROM  MOVIE t0;
  46.   end fetch_movies_all;
  47.  
  48.   PROCEDURE fetch_movie_with_primary_key (aMovie_id int,
  49.                                                 rows IN OUT MovieCursorType) IS
  50.   begin
  51.     open rows for
  52.     SELECT  t0.CATEGORY, t0.DATE_RELEASED, t0.LANGUAGE, t0.MOVIE_ID,
  53.     t0.RATING, t0.REVENUE, t0.STUDIO_ID, t0.TITLE  FROM  MOVIE t0
  54.     WHERE t0.MOVIE_ID = aMovie_id;
  55.   end fetch_movie_with_primary_key;
  56. end movie_procedures;
  57. /
  58.  
  59.