/*
 * movie_data_base.rexx
 *
 * ARexx-Script für MUIVideo
 * Versucht den gewählten Film in der Movie Data Base
 * mittels MovieMUI zu finden und anzuzeigen.
 *
 * $VER: movie_data_base.rexx V1.0 (16.11.96)
 * Copyright 1996 by Christoph Kirsch
 *
 */

address 'MUIVIDEO.1'            /* MUIVideo adressieren */
options results                 /* Rückgabewerte anfordern */

sleep                           /* Eingaben unterbinden */

get TITEL                       /* Titel holen */
t = result

wake                            /* Eingaben erlauben */

address 'MOVIEMUI'              /* MovieMUI adressieren */

'UNSELECT KEY=0' ; skey=result
'SELECT KEY='||skey||' "'||t||'" FROM ANY' ; numentries=result

if numentries=0 | RC~=0 then do
  address 'MUIVIDEO.1'
  requestnotify 'There is no person that matches the given name/pattern'
  end
else do
 'GET "'||line||'" FROM ANY'
 if RC=0 then do
  address 'MUIVIDEO.1'
  requestnotify result
  address 'MOVIEMUI'
 end
 do i=1 to numentries
  'GETFROMSELECTION KEY='||skey||' NUMBER='||i ; movie=result
  dashpos=pos('===',movie)
  movie=right(movie,length(movie)-dashpos+1)
  address 'MUIVIDEO.1'
  requestnotify movie
  address 'MOVIEMUI'
 end
end
'ENDSELECTION KEY='skey