|
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) |