PROCEDURE generate_defnc (
  physical_data: string = $optional
  system_id: string = $optional
  configuration_file: file = $optional
  status)

  IF $substr(physical_data,5,4)='ICA2' THEN
    put_line 'define_network_connection  connected_system='//$trim($substring(physical_data, 11, 31))//..
'   system_identifier='//$substring(system_id, 7, 6)//'(16)' o=configuration_file
  ELSE
    put_line 'define_network_connection  connected_system='//$trim($substring(physical_data, 11, 31)) ..
              o=configuration_file
  IFEND

PROCEND generate_defnc
