PROC generate_defna (
  network            : string = $optional
  rr                 : string = $optional
  physical_data1     : string = $optional
  physical_data2     : string = $optional
  configuration_file : file = $optional
  status             : var of status = $optional
  )

  put_line ('define_network_access network='//$value(network)//' relays_restricted='//$value(rr)//' ..' ..
'  access=('//$trim($substr($value(physical_data1), 10, 31))//' '//$trim($substr($value(physical_data2), 10, 31))//')') ..
        o=$value(configuration_file)

PROCEND generate_defna
