PROC generate_defcn (
  network            : string = $optional
  rr                 : string = $optional
  physical_data      : string = $optional
  configuration_file : file = $optional
  status             : var of status = $optional
  )

  put_line ('define_channel_network network='//$value(network)//' relays_restricted='//$value(rr)//' ..' ..
'  connected_system='//$trim($substr($value(physical_data), 10, 31))) o=$value(configuration_file)

PROCEND generate_defcn
