FUNCTION product_category_graph_members

(* SCHEMA technical_data_packaging; *)

  FUNCTION product_category_graph_members(
               p: product_category
      ): SET OF product_category;

    LOCAL
      pcr    : BAG OF product_category_relationship;
      result : SET OF product_category := [];
    END_LOCAL;
    pcr := USEDIN(p,'TECHNICAL_DATA_PACKAGING.' + 
        'PRODUCT_CATEGORY_RELATIONSHIP.CATEGORY');
    IF SIZEOF(pcr) > 0 THEN
      result := result + p;
      REPEAT i := 1 TO SIZEOF(pcr) BY 1;
        result := result + product_category_graph_members(pcr[i].
            sub_category);
      END_REPEAT;
    END_IF;
    pcr := USEDIN(p,'TECHNICAL_DATA_PACKAGING.' + 
        'PRODUCT_CATEGORY_RELATIONSHIP.SUB_CATEGORY');
    IF SIZEOF(pcr) > 0 THEN
      result := result + p;
      REPEAT i := 1 TO SIZEOF(pcr) BY 1;
        result := result + product_category_graph_members(pcr[i].category);
      END_REPEAT;
    END_IF;
    RETURN(result);

  END_FUNCTION; -- product_category_graph_members

Referenced By

Defintion product_category_graph_members is references by the following definitions:

Definition	Type
data_definition_exchange_categorized_as_document	RULE
identification_of_sheet_constraint	RULE
indentured_data_list_identification_constraint	RULE

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:35-04:00