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