/**************************************************************************
 *            This ARexx script activates the task <taskname>.            *
 *                     USAGE: activatetask <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: activatetask <taskname>"
  exit
end

FindTask taskname
taskaddress = result
if taskaddress = 'RESULT' then
  say "Can't find task '" || taskname || "'!"
else do
  ActivateTask taskname
  say "Now task '" || taskname || "' is activated!"
end
exit