Re: MIDRANGE-L Digest V2 #1777

[phcoffin@xxxxxxxxxx]

L. S. Russell writes:

> # Program evaluates a complex mathmatical expression
> #
> #
>
> # This next line you might need to change.
> #!/usr/bin/perl
>
> $test_exp = "";
> $num = "";
>
> #Main()
>  $test_exp = '$num = ((100 * 10) + 1);';  # DO NOT FORGET THE SEMI COLON
>                                                                # AT THE
END OF THE
> EXPRESSION
>                                                                # BEFORE
THE
> CLOSING QUOTE!!!
>
>  eval($test_exp);     # High level language function
>
>  print($num);
>
> exit;

/* REXX procedure to do the same thing */

test_exp = '(100 * 10) + 1'
/* or better,                                 */
/*   parse arg test_exp                       */
/* and get the value passed from a parameter. */

interpret "Say" test_exp

return /* all done */

I still do a fair amount of programming in REXX, though most of it is in VM
and OS/2 these days. The limitation on the number of streams (files)  is a
bit of a cramping factor on the AS/400.

Peter H. Coffin
Database Marketing Tools Developer
phcoffin@us.ibm.com
T/L 665-6298 (Outside: 414-223-6298)


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---