رجاء ساعدوني في حل هالمشكله

هي نفس المشكلة اللي شرحتها سابقا

انا كتبت هذا البروسيدجر في الريبورت بس ستل المشكله مستمره


PROCEDURE Proc_book_details IS



CURSOR C1 IS


SELECT LIB_BOOKS.SERIAL,
LIB_BOOKS.BOOK_NAME,
LIB_CLASSIFICATIONS.CLASS_TYPE,
LIB_BOOKS.AUTHOR_NAME,
LIB_BOOKS.PUBLISH_DATE,
LIB_CLASSIFICATIONS.CLASS_NO,
LIB_BOOKS.TOTAL_COPY
FROM LIB_BOOKS, LIB_CLASSIFICATIONS
WHERE LIB_CLASSIFICATIONS.CLASS_ID = LIB_BOOKS.CLASS_ID
and TOTAL_COPY > 1
AND LIB_BOOKS.BOOK_ID BETWEEN _book_id_FROM AND _book_id_TO;


BEGIN

GO_BLOCK('LIB_BOOKS');

CLEAR_BLOCK('LIB_BOOKS');

FIRST_RECORD;

FOR R IN C1 LOOP

:serial := R.SERIAL;

:BOOK_NAME := R.BOOK_NAME;

:class_type := R.CLASS_TYPE;

:AUTHOR_NAME := R.AUTHOR_NAME;

:publish_date := R.PUBLISH_DATE;

:class_no := R.CLASS_NO;

:total_copy := R.TOTAL_COPY;

NEXT_RECORD;

END LOOP;

--EXCEPTION
--WHEN OTHERS THEN
--NULL;
end;

end;

END;