home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxtech07.zip / RXAWAR / VARPOOL / TEST.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-05  |  420b  |  32 lines
  1. /*
  2.  * test.cmd
  3.  */
  4.  
  5. say "Running TEST.CMD...."
  6. say ""
  7.  
  8. /* Set a variable or two... */
  9.  
  10. drop foo
  11. drop blart.foo
  12.  
  13. call SetVar "foo", "Hi!"
  14. call SetVar "blart.FOO", "Again!"
  15.  
  16. say "Variable foo=" foo
  17.  
  18. drop foo
  19. say "Variable blart.foo=" blart.FOO
  20.  
  21. /* Define some variables */
  22.  
  23. a = 1
  24. b = a
  25. c = "This is a string"
  26. i.0 = 2
  27. i.1 = 'First'
  28. i.2 = 'Second'
  29.  
  30. say DumpVars() "variables were dumped"
  31. exit
  32.