PROC accept_ntf_messages accnm (
  control_facility_name, cfn : name = $required
  output, o : file = $output
  task_name, tn : name = $optional
  status)

  if $specified(task_name) then
    task_name = $string($value(task_name))
  else
    task_name = $string($value(control_facility_name))
  ifend

  create_variable ntf_library k=string v='$system.network_transfer_facility.bound_product'
  create_variable scf_library k=string v='$system.batch_device_support.osf$batch_device_support'
  execute_task task_name=$name(task_name) ..
        starting_procedure=nfp$accept_ntf_messages ..
        libraries=($fname(ntf_library),$fname(scf_library)) ..
        parameters='CFN='//$string($value(cfn))//' O='//$string($value(o))

PROCEND accept_ntf_messages
