SET SERVEROUTPUT ON;
DECLARE
X VARCHAR2(34):='SALES';
Y VARCHAR2(233):='DALLAS';
Z NUMBER(2):=1;
V NUMBER(2);
BEGIN
SELECT MAX(DEPTNO) INTO V
FROM DEPT
WHERE LOC=Y;
LOOP
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES((V+Z),X,Y)
EXIT WHEN Z>3;
END LOOP;
END;

أخي محمد
بالنسبة للخطأ في البرنامج فإن الدوران هو عبارة عن دوران غير نهائي أي
INFINITE LOOP
حيث أن قيمة المتغير Z لا تتغير..
إذا أردتها أن تقرأ من الجدول فعليك باستخدام ال CURSOR

أما إذا كانت قيمة (MAX(DEPTNO أكبر من 2 فإنه سوف يعمل INSERT لمرة واحدة

السلام عليكم ورحمة الله وبركاته
كلام الاخ/محمد1980 صحيح جدا ولتعديل هذا البلوك ارجو اضافة الجملة الاتيةz=z+1 قبل جملة end loop حتى يمكن للدوران ان يتم يشكل صحيح
وجزاكم الله خيرا

جزاكم الله خيرااااااااااااااا