Mnu_Itm_Ide,       Mnu_Itm_Nam,      Itm_Ttl
          1       Fsd_Mnu.Man_Frm   Main Form
          2       Fsd_Mnu.Sub_Frm   Sub Form
       

 Usr_cod,  Itm_Ide
          1       1
          1       2

Declare
Cursor c is 
Select A.Mnu_Itm_Nam
From A,B
Where A.Itm_ide=B.Itm_Ide;
Begin
For V In C Loop
	SET_MENU_ITEM_PROPERTY(V.MNU_ITM_NAM,VISIBLE,PROPERTY_TRUE);
	SET_MENU_ITEM_PROPERTY(V.MNU_ITM_NAM,Label,v.itm_des);
End Loop;
End;