home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / muivideo / arexx / movie_data_base.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-16  |  1KB  |  50 lines
  1. /*
  2.  * movie_data_base.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Versucht den gewählten Film in der Movie Data Base
  6.  * mittels MovieMUI zu finden und anzuzeigen.
  7.  *
  8.  * $VER: movie_data_base.rexx V1.0 (16.11.96)
  9.  * Copyright 1996 by Christoph Kirsch
  10.  *
  11.  */
  12.  
  13. address 'MUIVIDEO.1'            /* MUIVideo adressieren */
  14. options results                 /* Rückgabewerte anfordern */
  15.  
  16. sleep                           /* Eingaben unterbinden */
  17.  
  18. get TITEL                       /* Titel holen */
  19. t = result
  20.  
  21. wake                            /* Eingaben erlauben */
  22.  
  23. address 'MOVIEMUI'              /* MovieMUI adressieren */
  24.  
  25. 'UNSELECT KEY=0' ; skey=result
  26. 'SELECT KEY='||skey||' "'||t||'" FROM ANY' ; numentries=result
  27.  
  28. if numentries=0 | RC~=0 then do
  29.   address 'MUIVIDEO.1'
  30.   requestnotify 'There is no person that matches the given name/pattern'
  31.   end
  32. else do
  33.  'GET "'||line||'" FROM ANY'
  34.  if RC=0 then do
  35.   address 'MUIVIDEO.1'
  36.   requestnotify result
  37.   address 'MOVIEMUI'
  38.  end
  39.  do i=1 to numentries
  40.   'GETFROMSELECTION KEY='||skey||' NUMBER='||i ; movie=result
  41.   dashpos=pos('===',movie)
  42.   movie=right(movie,length(movie)-dashpos+1)
  43.   address 'MUIVIDEO.1'
  44.   requestnotify movie
  45.   address 'MOVIEMUI'
  46.  end
  47. end
  48. 'ENDSELECTION KEY='skey
  49.  
  50.