DECLARE
CURSOR cur_fetch IS
SELECT D.DET_MAIL_ID,D.TEMP_NUM,D.TEMP_DATE,D.OBJECT_MAIL,D.PERSON_ID,D.IMPORT,P.PROCEDUR_ID,
P.TYP_PROC,P.DET_MAIL_ID,P.DEPT_ID,P.DET_PROC_ID,P.STAT_ID,P.PERSON_ID,P.DATE_END FROM DETAIL_MAIL D,PROCEDURS P
WHERE D.DET_MAIL_ID = P.DET_MAIL_ID;
c cur_fetch%rowtype;
BEGIN
go_block('BLK');
first_record;
OPEN cur_fetch;
loop
FETCH cur_fetch INTO c;
EXIT WHEN cur_fetch%NOTFOUND;
:BLK.row1 :=c.DET_MAIL_id;
:BLK.row2 :=c.TEMP_NUM;
:BLK.row3 :=c.TEMP_DATE;
:BLK.row4 :=c.OBJECT_MAIL;
:BLK.row5 :=c.PERSON_ID;
:BLK.row6 :=c.IMPORT;
:BLK.row7 :=c.PROCEDUR_ID;
:BLK.row8 :=c.TYP_PROC;
:BLK.row9 :=c.DET_MAIL_ID;
:BLK.row10 :=c.DEPT_ID;
:BLK.row11 :=c.DET_PROC_ID;
:BLK.row12 :=c.STAT_ID;
:BLK.row13 :=c.PERSON_id;
:BLK.row14 :=c.DATE_END;
next_record;
END LOOP;
first_record;
END;