RULE reference_document_requires_subcategorization

(* SCHEMA technical_data_packaging; *)

  RULE reference_document_requires_subcategorization FOR (
             product_related_product_category);

    LOCAL
      prpc   : SET OF product_related_product_category;
      pcr    : BAG OF product_category_relationship;
      result : BOOLEAN := TRUE;
    END_LOCAL;
    prpc := QUERY ( v <* product_related_product_category | (v\
        product_category.name = 'reference document') );
    REPEAT i := 1 TO SIZEOF(prpc) BY 1;
      pcr := USEDIN(prpc[i],'TECHNICAL_DATA_PACKAGING.' + 
          'PRODUCT_CATEGORY_RELATIONSHIP.CATEGORY');
      IF SIZEOF(pcr) < 1 THEN
        result := FALSE;
      END_IF;
    END_REPEAT;

  WHERE
    wr1: result;

  END_RULE; -- reference_document_requires_subcategorization

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