home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / pd / database / db3.2 / examples / arexxdemos / multiview.db < prev    next >
Encoding:
Text File  |  1996-04-30  |  318 b   |  17 lines
  1. /* Rexxprogram for db that passes data in the current field to multiview */
  2. /* By David Ekholm */
  3.  
  4. Options Results
  5. BLOCKINPUT
  6. GETFIELD
  7. file = RESULT
  8. IF RC = "0" THEN DO
  9.     IF EXISTS(file) THEN
  10.         ADDRESS COMMAND "run >nil: Multiview " '"'file'"'
  11.     ELSE
  12.         OKAY1 "`"file"' does not exist."
  13. END
  14. FREEINPUT
  15.  
  16.  
  17.