Yurttas/PL/DBL/oracle/F/02/Movie/q01.sp

 1/*
 2REM
 3REM q01.sp
 4REM
 5REM Find all movies produced by 'Paramount'
 6REM studios in between 1990 - 1995.
 7REM
 8*/
 9
10CREATE OR REPLACE
11PROCEDURE q01 IS
12
13  CURSOR movie_cursor IS 
14    SELECT title 
15    FROM Movie
16    WHERE studioname = 'Paramount'
17      AND year BETWEEN 1980 AND 1995;
18
19  movie_rec movie_cursor%ROWTYPE;
20
21BEGIN
22
23  OPEN movie_cursor;
24
25  DBMS_OUTPUT.PUT_LINE('Title');
26
27  FETCH movie_cursor INTO movie_rec;  
28
29  WHILE movie_cursor%FOUND 
30  LOOP
31    DBMS_OUTPUT.PUT_LINE(movie_rec.title);             
32    FETCH movie_cursor INTO movie_rec;
33  END LOOP;
34
35END q01;
36/