please have a look at this code. It raises exception couldNotCreate in a class initializer, it outputs however error r000 (in VIP 900):
Code: Select all
class someClass
end class someClass
%---
implement someClass
class facts
flag : boolean := true.
class predicates
initialize : () [classInitializer].
clauses
initialize() :-
if flag = true then
exception::raise_couldNotCreate([])
end if.
end implement someClass
%===
implement main
clauses
run() :-
succeed.
end implement main