home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / G2Free.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  418b  |  31 lines
  1. /* rexx */
  2. /*
  3. Set error traps
  4. */
  5. signal on error
  6. signal on syntax  name error
  7. signal on halt    name error
  8. signal on failure name error
  9.  
  10. '@echo off'
  11. say 'Rolling back...'
  12. say g2rollback()
  13.  
  14. say 'Disconnecting...'
  15. say g2connectreset()
  16.  
  17. say 'Dropping the functions...'
  18. say g2dropfuncs()
  19.  
  20. return 0
  21.  
  22.  
  23.  
  24. error:
  25. say 'Error detected...'
  26. return 10
  27.  
  28. syntax:
  29. say 'Syntax error detected...'
  30. return 20
  31.