кожин / S4

create or replace procedure vvod_knig
(nazv in varchar2,
tom_1 in number,
bid_1 in number,
jazyk_1 in varchar2,
povtor_1 in number,
izdatelstvo_1 in varchar2,
god_vypuska_1 in varchar2,
data_priobr_1 in varchar2,
zena_1 in number,
kolvo in number,
kod out number
) is
i number(6);
j number;
begin
select n_izd.nextval into kod from dual;
insert into izdanie (nazvanie,tom, bid, jazyk,povtor,izdatelstvo,god_vypuska , kod_izdanija)
values (nazv,tom_1, bid_1, jazyk_1,povtor_1,izdatelstvo_1,
to_date(god_vypuska_1,'dd-mm-yyyy'), kod);
for j in 1..kolvo loop
select inv_nom.nextval into i from dual;
insert into ekzemp (inv_nomer , data_priobr, zena)
values (i,to_date(data_priobr_1,'dd-mm-yyyy'), zena_1);
insert into prinadl (izdan, inv_n ) values (kod,i);
end loop;
end;
/