Вы используете недопустимый оператор для команды DEFINE CLASS. Правильными операторами являются: ADD OBJECT, ADD PROTECTED OBJECT, DIMENSION, FUNCTION, PROCEDURE, и PROTECTED. См. дополнительно команду DEFINE CLASS .