LOCAL
      middle : BAG [0:?] OF Independent_property_relationship;
    END_LOCAL;
      middle := QUERY (ipr <* (USEDIN(input, 'INDEPENDENT_PROPERTY_ARM.' + 
        'INDEPENDENT_PROPERTY_RELATIONSHIP.RELATED')) | ipr.relation_type = 'decomposition');      
      REPEAT i := 1 TO HIINDEX(middle);       
        IF('CHARACTERISTIC_ARM.CHARACTERISTIC_DATA_TABLE_HEADER' IN TYPEOF(middle[i].relating))THEN
          RETURN  (middle[i].relating);
        END_IF;
      END_REPEAT;
      RETURN (?);