
  CONST
    clc$max_path_elements = clc$max_path_name_size DIV 2;

  TYPE
    clt$path_container = SEQ (REP clc$max_path_elements of pft$name);

  TYPE
    clt$open_position = record
      case specified: boolean of
      = TRUE =
        value: amt$open_position,
      = FALSE =
        ,
      casend,
    recend;

*copyc amt$open_position
*copyc clt$cycle_selector
*copyc clt$path_name
*copyc ost$string
*copyc pft$name
