home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / imdb / rexx / mtrace.rexx < prev   
OS/2 REXX Batch file  |  1986-07-04  |  1KB  |  65 lines
  1. /*============================================================================
  2.  *
  3.  *  Program:   mtrace.rexx
  4.  *
  5.  *  Version:   1.1
  6.  *
  7.  *  Purpose:   - create a movieguide of all movies of a given person
  8.  *             - get a filmography of all people that match a given pattern
  9.  *
  10.  *  Author:    Georg Magschok & Andre Bernhardt
  11.  *
  12.  *  Copyright (c) Andre Bernhardt 1993-94
  13.  *
  14.  *  History:
  15.  *
  16.  *============================================================================
  17.  */
  18.  
  19. options failat 255
  20. options results
  21.  
  22. parse arg line
  23.  
  24. if trim(line)='' then do
  25.  say 'MTRACE.rexx  (c) 1994 by Andre Bernhardt & Georg Magschok'
  26.  say 'usage:   rx mtrace [name|name pattern]'
  27.  exit
  28. end
  29.  
  30. /* '*' durch '#?' ersetzen */ 
  31. do while pos('*',line)>0
  32.  sternpos=pos('*',line)
  33.  line=left(line,sternpos-1)||'#?'||right(line,length(line)-sternpos)
  34. end
  35.  
  36. port_name = "MOVIEMUI"
  37.  
  38. if ( ~show( 'p', port_name ) ) then do
  39.  say "Please start MovieMUI first."
  40.  exit
  41. end
  42.  
  43. address value port_name
  44.  
  45. 'UNSELECT KEY=0' ; skey=result
  46. 'SELECT KEY='||skey||' "'||line||'" FROM ANY' ; numentries=result
  47.  
  48. if numentries=0 | RC~=0 then 
  49.  say 'There is no person that matches the given name/pattern'
  50. else do
  51.  'GET "'||line||'" FROM ANY'
  52.  if RC=0 then do
  53.   say result
  54.   say ""
  55.  end 
  56.  do i=1 to numentries
  57.   'GETFROMSELECTION KEY='||skey||' NUMBER='||i ; movie=result
  58.   dashpos=pos('===',movie)
  59.   movie=right(movie,length(movie)-dashpos+1)
  60.   say movie
  61.  end
  62. end
  63. 'ENDSELECTION KEY='skey
  64. exit
  65.