ما معنى وجود كلمة return فى البروسيدجر التالى؟

PROCEDURE move_element(t_list_from in varchar2, t_list_into in varchar2) IS
lb varchar(14);
vl number;
idx_from number; idx_into number;
BEGIN idx_from := Get_List_Current_Index(t_list_from);
IF idx_from = 0
then RETURN;
end if;
idx_into := Get_List_Current_Index(t_list_into);
if idx_into = 0 
then Clear_List(t_list_into);
end if;
lb := Get_List_Element_Label(t_list_from, idx_from);
vl := Name_IN(t_list_from);
Add_List_Element(t_list_into, idx_into +1, lb, vl);
Copy(vl, t_list_into);
Delete_List_Element(t_list_from, idx_from);
idx_from := Least(idx_from, Get_List_Element_Count(t_list_From));
vl := Get_List_Element_Value(t_list_from, idx_from);
Copy (vl, t_list_from);
END;

مع العلم أن
Get_List_Current_Index
عباره عن function ترجع قيمة index على ال list item

وهى كالتالى

FUNCTION Get_List_Current_Index(List_Name in varchar2) RETURN NUMBER IS
cnt number;
ret number := 0;
list_val number := Name_IN(List_Name);
BEGIN cnt := Get_List_Element_Count(List_Name);
for i in 1..cnt LOOP
IF List_Val = Get_List_Element_Value(List_Name, i)
	then ret := i;
	exit;
end if;
end loop;
return ret;
END;

تحياتى

السلام عليكم.

كلمة RETURN تستخدم لإنهاء القطعه البرمجيه مباشرة (أي أنه إذا تحقق الشرط يتم الخروج من القطعه البرمجيه دون اللجوء إلى كلمة END في آخر الكود، ) بعد تحقيق الشرط في الكود السابق. مثل كلمة EXIT في ال LOOP. والمشابهه لها في الإستخدام كلمة GOTO مع إجراء بعض الإضافات لجملة GOTO.

جزاك الله ألف خير ياباشا

وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خير

ولك بمثل ما دعوت لي إن شاء الله. هذا من واجب كل مسلم فزكاة العلم نشره.

وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خيرا

الأخ / احمد

اود ان اشكرك على المجهود المتميز بالمنتدى وعلى سرعة الرد على الاخوه الاعضاء ...

بارك الله فيك

تقبل تحياتى

والله يا أخ أمجد كلماتك هذه لها معنى كبير عندي ، عموماً مشاركاتي قليله بالنسبه لمشاركات الإخوه الأعضاء الآخرين وأتمنى أن أكون سبب لنفع الجميع