В Forms Builder есть 2 текстовых айтима:

:block1.text_item1 и
:block1.text_item2.

Я приссоеденил к айтиму :block1.text_item1, тригер WHEN - VALIDATE - ITEM, вот текст тригера :

declare
str varchar2(20);
temp varchar2(20);
n varchar2(20);
begin

-- primul nu trebuie sa fie '/'
str:=:block1.text_item1;
select substr(str,0,1) into n from dual;
if (n = '/') then
:block1.text_item2:='Primul ch. nu trebuie sa fie /';
end if;

-- ultimul nu trebuie sa fie '/'
select substr(str,length(str),1) into n from dual;
if (n = '/') then
:block1.text_item2:='Ultimul ch. nu trebuie sa fie /';
end if;

-- nu trebuie sa fie doua '/' unul linga altul
for i in 1..length(str) loop
n := substr(str,i,1);
if (n = '/') and (n = substr(str,i+1,1)) then
:block1.text_item2:='Nu trebuie sa fie doua // unul linga altul';
end if;
end loop;


SELECT TRANSLATE( str,'@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/-?:().,''+{} ','@') into temp FROM DUAL;
if (temp is not null) and length(str)>16 then
:block1.text_item2:='That is not ok';
else :block1.text_item2:='That is ok';
end if;

end;

Форма запускается, но когда я ввожу в первый айтем :block1.text_item1 недопускаемое значение -- выскакивает ошибка FRM - 40735 :

FRM-40735: %s trigger raised unhandled exception %s.

Cause: Application design error. The current trigger raised an exception (other than FORM_TRIGGER_FAILURE), but it did not handle the exception.

Action: Rewrite the trigger text to handle the exception.

Level: >25

Type: Error

Но я не знаю как исправить ошибку, помогите кто может.
За рание спасибо.

create or replace procedure a is
cursor ch is select eng from english;
v_ch ch%rowtype;
begin
for v_ch in ch loop
if ch%isopen then
dbms_output.put_line('FORYES');
else
dbms_output.put_line('FORNO');
end if;
end loop;

if ch%isopen then
dbms_output.put_line('yeeeeeeeeeeeees');
else
dbms_output.put_line('nooooooooo');
end if;
end a;

Выходит что всетаки закрыт...