FUNCTION CLASSOF
(the_instance : GENERIC:ininst) : SET [0:?] OF STRING;
LOCAL result : SET OF STRING; classifications : BAG OF Classification_assignment; END_LOCAL;
result := TYPEOF(the_instance); classifications := USEDIN(the_instance,'GENERAL_MODEL_PARAMETER_ARM.CLASSIFICATION_ASSIGNMENT.ITEMS');
REPEAT i := LOINDEX(classifications) TO HIINDEX(classifications); result := result + classifications[i].ASSIGNED_CLASS.ID; END_REPEAT;
RETURN (result); END_FUNCTION; -- CLASSOF
|