home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / INTERBASE2_0-2.DMS / in.adf / ARexx / DisplayIFF.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-03-25  |  711 b   |  29 lines
  1. /*
  2.  *
  3.  * Script name:     DisplayIFF.rexx
  4.  * Author:          Franz Hemmer
  5.  * Purpose:         Demonstrate how to display an IFF picture using InterBase functions.
  6.  * Related Program: InterBase Pro
  7.  * Written:         25.03.93
  8.  *
  9.  */
  10.  
  11. Options Results
  12. parse arg fullpath
  13.  
  14. /*-----------------------------------*/
  15. /* Check that parameters was passed: */
  16. /*-----------------------------------*/
  17. IF fullpath = "" THEN DO
  18.    SAY 'Usage: DisplayIFF <fullpath>'
  19.    EXIT 5
  20. END
  21.  
  22. /*----------------------------------------------*/
  23. /* Address InterBase port, and execute command. */
  24. /*----------------------------------------------*/
  25. ADDRESS INTERBASE1 DISPLAY_IFF fullpath
  26. IF rc > 0 THEN DO
  27.    SAY INTERBASE.LASTERROR
  28. END
  29.