Overview Schemas Index

PHYSICAL_CONNECTIVITY_DEFINITION_XIM (jsdai.SPhysical_connectivity_definition_xim)


FUNCTION get_pct
          (input : SET [0:?] OF physical_connectivity_element_armx) : SET [0:?] OF physical_component_terminal_armx;

LOCAL
   pct : SET OF Physical_component_terminal_armx := [];
    i : INTEGER := 0;
  END_LOCAL;
  REPEAT  i := 1 TO SIZEOF(input) BY 1;
   IF  ('PHYSICAL_COMPONENT_FEATURE_XIM.PHYSICAL_COMPONENT_TERMINAL_ARMX' IN  TYPEOF(input[i].start_terminus)) THEN
   pct := pct + input[i].start_terminus;
   END_IF;
   IF ('PHYSICAL_COMPONENT_FEATURE_XIM.PHYSICAL_COMPONENT_TERMINAL_ARMX' IN TYPEOF(input[i].end_terminus)) THEN
   pct := pct + input[i].end_terminus;
   END_IF;
  END_REPEAT;
  RETURN(pct);

END_FUNCTION; -- get_pct

public class FGet_pct
          public static Value run(SdaiContext _context, Value input)