Oracle Forms Developer – Form Builder Reference, Volume 1

112
item_id ITEM;
item_name VARCHAR(25) := ’OLEITM’;
verb_cnt_str VARCHAR(20);
verb_cnt NUMBER;
verb_name VARCHAR(20);
loop_cntr NUMBER;
BEGIN
item_id := Find_Item(item_name);
IF Id_Null(item_id) THEN
message(’No such item: ’||item_name);
ELSE
verb_cnt_str := Forms_OLE.Get_Verb_Count(item_id);
verb_cnt := TO_NUMBER(verb_cnt_str);
FOR loop_cntr in 1..verb_cnt LOOP
verb_name := Forms_OLE.Get_Verb_Name(item_id,loop_cntr);
IF verb_name = ’Edit’ THEN
EXEC_VERB(item_id,verb_name);
END IF;
END LOOP;
END IF;
END;