PROCEDURE define_ica_network (
  physical_data_array: (VAR) array of string = $optional
  host_network: string = $optional
  network_ids: (VAR) array of string = $optional
  system_ids: (VAR) array of string = $optional
  relays: (VAR) array of string = $optional
  ica_index1: (VAR) array of integer = $optional
  ica_index2: (VAR) array of integer = $optional
  physical_entries: integer = $optional
  lcu_entries: (VAR) integer = $optional
  status)

" Make local copies of the procedure parameters.

  physical_data = physical_data_array
  host_network_id = host_network
  network_id_array = network_ids
  system_id_array = system_ids
  rr_array = relays
  ica_element1_index = ica_index1
  ica_element2_index = ica_index2
  number_physical_entries = physical_entries
  number_lcu_entries = lcu_entries

  "$FORMAT=OFF
  VAR
    choice: string
    cr_requested: string
    ica_type: string
  VAREND
  "$FORMAT=ON"

main_loop: ..
  LOOP

    choose_ica_type ica_type
    IF ica_type = ' ' THEN
      EXIT main_loop
    ELSEIF ica_type = 'DEFINE_NETWORK_CONNECTION' THEN
      define_network_connection physical_data host_network network_id_array system_id_array rr_array ..
            ica_element1_index ica_element2_index number_physical_entries number_lcu_entries

    ELSEIF ica_type = 'DEFINE_NETWORK_ACCESS' THEN
      define_ica physical_data host_network network_id_array system_id_array rr_array ica_element1_index ..
            ica_element2_index number_physical_entries number_lcu_entries
    IFEND

  LOOPEND main_loop

  physical_data_array = physical_data
  network_ids = network_id_array
  system_ids = system_id_array
  relays = rr_array
  ica_index1 = ica_element1_index
  ica_index2 = ica_element2_index
  physical_entries = number_physical_entries
  lcu_entries = number_lcu_entries

PROCEND define_ica_network
