home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / DropGDB2.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  702b  |  35 lines
  1. /* rexx */
  2. signal on error
  3. signal on syntax  name error
  4. signal on halt    name error
  5. signal on failure name error
  6. '@echo off'
  7.  
  8. 'cls'
  9. say
  10. say 'DropGDB2 --- Testing program for REXXGDB2.DLL function: G2DropFuncs'
  11. say 'Simon Husin (husin@ibm.net)'
  12. say 'Kent, Washington, U.S.A., December 1995'
  13. say
  14. call G2DropFuncs
  15.  
  16. if rxfuncquery('G2DropFuncs') then do
  17.    say 'G2DropFuncs has been dropped!'
  18.    if rxfuncquery('G2SelectForm') then do
  19.       say 'G2SelectForm has been dropped!'
  20.       say
  21.       say 'All REXXGDB2 REXX functions are now considered gone!'
  22.       end
  23.    end
  24. return
  25.  
  26.  
  27.  
  28. error:
  29. say 'Error detected...'
  30. return 10
  31.  
  32. syntax:
  33. say 'Syntax error detected...'
  34. return 20
  35.