home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / calc.lx < prev    next >
Text File  |  1998-02-24  |  412b  |  22 lines
  1. /* calc.lx - execute a REXX expression and display the result. */
  2. parse arg expression
  3. expression=space(expression)
  4. if expression = '' then
  5.    exit
  6.  
  7. numeric digits 16
  8. signal on Syntax
  9. interpret 'result=' expression
  10. text=expression '=' result
  11.  
  12. signal on Syntax name Show
  13. txt=' (0x'strip(D2X(result,8),'L',0)')'
  14. text=text || txt
  15. signal Show
  16.  
  17. Syntax:
  18.   text='???' expression
  19.  
  20. Show:
  21.  'MSG' text
  22.