PROCEDURE deactivate_drje (
  control_facility_name, cfn: name = station_controller_1
  status)

  VAR
    local_status: status
  VAREND

  MANAGE_JOBS
    select_job login_family=$system login_user=$system name=$dynamic_remote_job_entry ..
          user_information='DRJE@'//control_facility_name status=local_status
    IF local_status.normal AND ($size(jmv$selected_jobs) > 0) THEN
      terminate_job names=jmv$selected_jobs status=local_status
    ELSE
      local_status = $status(false, 'NF', nfe$drje_not_active, control_facility_name)
    IFEND
  QUIT

  EXIT procedure WITH local_status

PROCEND deactivate_drje
