1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
v_ret filmsCatalogue;
newFilms filmsRecord := filmsRecord(NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
TYPE ACTORS IS TABLE OF PERSONNE%ROWTYPE INDEX BY BINARY_INTEGER;
actorOfFilm ACTORS;
TYPE PRODS IS TABLE OF A_PRODUIT%ROWTYPE INDEX BY BINARY_INTEGER;
production PRODS;
TYPE GENRES IS TABLE OF GENRE%ROWTYPE INDEX BY BINARY_INTEGER;
gen GENRES;
counter INTEGER;
actor VARCHAR(2000);
mpaa VARCHAR(30);
director VARCHAR(30);
prod VARCHAR(100);
quality VARCHAR(30);
genr VARCHAR(2000);
TYPE EmpCurTyp IS REF CURSOR; -- define weak REF CURSOR type
curseFilm EmpCurTyp;
lgFilm Film%ROWTYPE;
numFilm INTEGER;
p_id INTEGER;
begin
numFilm := 1;
IF p_id_film.count = 3
THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms);
ELSE
IF p_id_film.count = 5
THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms);
ELSE
v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms);
END IF;
END IF; |
Partager