CLEAR =CREATEOBJECT("ClassName") DEFINE CLASS ClassName AS Custom Name = 'ObjectName' PROCEDURE Init ? "Class expected <ClassName>, Observed :" ,this.Class * this not set Class this.Name = "AnotherName" ? "Class expected <ClassName>, Observed :" ,this.Class ENDDEFINE