/**************************************************************************
 *        This ARexx script sends a CTRL-C to the task <taskname>.        *
 *                      USAGE: breaktask <taskname>                       *
 **************************************************************************/

if showlist('p','SCOUT.1') < 1 then do
  say "Scout is not running!"
  exit
end
address 'SCOUT.1'
parse arg taskname

options results
options failat 20

if taskname = '' then do
  say "usage: breaktask <taskname>"
  exit
end

FindTask taskname
taskaddress = result
if taskaddress = 'RESULT' then
  say "Can't find task '" || taskname || "'!"
else do
  BreakTask taskname
  say "CTRL-C sent..."
  address command 'wait 1 sec'
  FindTask taskname
  taskaddress = result
  if taskaddress = 'RESULT' then
    do
      say "... and task '" || taskname || "' is no longer in system!"
      exit
    end
  else
    say "... but task '" || taskname || "' (" || taskaddress || ") is still in system!"
end
exit