/*REXX Compute a formula by REXX rules.  e.g  TSO COMPUTE d2x(111111)     */
/*  Example -- COMMAND ===> TSO COMPUTE d2x(111111)                       */
/* From an article in Chicago Soft Ltd -- "TSO TIMES" issue #5       ---  */
/*   by Normal Pearl  $250 contest winner for short REXX execute.    ---  */
parse Arg Formula
Interpret 'Result = ' Formula
If SYSVAR('SYSISPF') = 'ACTIVE'           /* ISPF Environment?            */
   Then Do                                /* Display as msg if so         */
        ZEDSMSG = Result/*  short message upper right   */
        ZEDLMSG = Formula '==>' Result    /*  use help to see long message*/
        'ISPEXEC SETMSG MSG(ISRZ001)'
        End
   Else Say Formula '==>' Result  /* Not ISPF, write to terminal          */