/* WatchKSBox.rexx */

parse arg code

options results

address 'rexx_AHP'

if upper(code) ~= "$BFE301" then do
  say code
  say "Eingegebener Code stimmt nicht!"
  exit
end

batch_started = 0

'activeport get'

port = result

'call_ssid '||port

if result ~= "DB0EAM-3" then do
  'command '||port||' do ahp4:Batch/DB0EAM'
  batch_started = 1
end

do forever
weiter:
  'waitforlinkevent '||port
  call = result
  signal value call_auswerten
end

call_auswerten:

if call="discon" then do
  'msgwindow Linkhalter beendet'
  exit
end
else if call="RESULT" then do
  exit
end
else if call="DB0WOB" then do
  if (batch_started = 0) then do
    'command '||port||' do ahp4:Batch/DB0EAM'
    batch_started = 1
  end
end
else if call="DB0EAM" then do
  if (batch_started = 0) then do
    'msgwindow Linkhalter beendet'
    exit
  end
end
else if call="DB0EAM-3" then do
  if (batch_started = 1) then batch_started = 0
end

signal value weiter