home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / skeleton.zip / SkelTest.cmd < prev    next >
OS/2 REXX Batch file  |  1995-08-03  |  2KB  |  35 lines
  1. /*****************************************************************************\
  2. | Small test case to demo the REXX Skeleton.                                  |
  3. |                                                                             |
  4. | Params:                                                                     |
  5. |                                                                             |
  6. | See Skeleton.doc for information on use.                                    |
  7. |                                                                             |
  8. | $Revision:   1.0  $
  9. |     $Date:   03 Aug 1995 20:10:28  $                                        |
  10. | Libraries:   REXXSAA                                                        |
  11. |  Category:   Test                                                           |
  12. |     Class:   Skeleton                                                       |
  13. |      Type:   Error Handler                                                  |
  14. |    Author:   Bob Rice - CompuServe: 72421,3016                              |
  15. |                                                                             |
  16. | Copyright (c) 1995 Empirical Heuristics                                     |
  17. \**************************************************************************r4*/
  18.  
  19.   /*-------------------------------------------------------------------------*\
  20.   | Just for fun, queque some lines in the data queue.                        |
  21.   \*-------------------------------------------------------------------------*/
  22.   do i = 1 to 5
  23.     queue date() time() 'This is stack line' i
  24.   end
  25.  
  26.   /*-------------------------------------------------------------------------*\
  27.   | Let's deliberately make a coding error to see how REXX handles it when    |
  28.   | we're called from the command line vs. how Skeleton handles it when we're |
  29.   | running inside Skeleton.                                                  |
  30.   \*-------------------------------------------------------------------------*/
  31.   a = left(2,'b')
  32.  
  33.   exit
  34.   /*===========================End-of-Test-Case==============================*/
  35.