/*REXX Compute a formula by REXX rules. e.g @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.-- */ /* This version modified for use as MACRO and SPF/PC by D.MCRitchie */ address "ISREDIT";"MACRO" "(row,col) = cursor" Parse Arg Formula Interpret "Result = " Formula ZEDSMSG = Result/* short message upper right */ ZEDLMSG = Formula "==>" Result /* use help to see long message*/ "ISPEXEC SETMSG MSG(ISRZ001)" note = Formula "==>" Result "line_before .zfirst = noteline (note)" "cursor =" row col if row = 0 & col = 0 then exit 1 /* in TSO will put cursor at top*/