home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ool_main.zip / ool / samples / sample12 / test.mac < prev    next >
Encoding:
Text File  |  1997-02-18  |  349 b   |  14 lines
  1. /*  this is a simple Rexx-script which will be executed by sample12 */
  2.  
  3. /* Let the Rexx Interface of sample12 set the needed variables */
  4. INIT_VARS; 
  5.  
  6. /* show the variable set by the application */
  7. say 'test.mac (REXX): Variable read:' TEST_VAR;
  8.  
  9. /* call a function of sample12 */
  10. MyFunc('var 1', 'var 2');
  11.  
  12. /* that∩s all */
  13. return ok;
  14.