Overview Schemas Index

PACKAGED_PART_BLACK_BOX_MODEL_XIM (jsdai.SPackaged_part_black_box_model_xim)


FUNCTION disjoint_package_terminals
          (input : SET [0:?] OF package_terminal_armx) : BOOLEAN;

LOCAL
   pk : SET OF Package_armx := []; -- get access TO  information base
  END_LOCAL;
  
  REPEAT i := 1 TO HIINDEX( input);
  pk := pk + input[i].associated_definition;
  END_REPEAT;
  
    RETURN(SIZEOF(input) = SIZEOF(pk));

END_FUNCTION; -- disjoint_package_terminals

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