LOCAL
      gm : SET  OF  shape_representation := [];
      is : SET  OF  Item_shape := [];
      sda : SET OF Shape_description_association := [];      
    END_LOCAL;
    
    is := bag_to_set(USEDIN(input,'SHAPE_PROPERTY_ASSIGNMENT_XIM.ITEM_SHAPE.DESCRIBED_ELEMENT'));

    IF  (SIZEOF(is) >= 0) THEN
      REPEAT  i := 1 TO  HIINDEX(is);
      sda := sda + bag_to_set(USEDIN(input,'SHAPE_PROPERTY_ASSIGNMENT_XIM.SHAPE_DESCRIPTION_ASSOCIATION.REPRESENTED_CHARACTERISTIC'));
      END_REPEAT;
     IF (SIZEOF(sda) >= 0) THEN
       REPEAT i := 1 TO HIINDEX(sda);
       gm := gm + sda[i]\Shape_description_association.representation;
       END_REPEAT;    
       RETURN (gm);
     END_IF;
    END_IF;
    RETURN(?);