Yurttas/PL/DBL/oracle/F/02/Movie/q01.sp
Jump to navigation
Jump to search
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/