RE: Evaluate complex conditions

["Mark A. Manske" <mmanske@xxxxxxxxxxxxxxxxxx>]

If I understand your question, you would like to see a "real" world example
of complex conditions...

here are a couple of snippets of code....


C                   if        dowhatwith = 'S  '        and
C                             tapecolor  = 'GREEN    '  and
C                             (salvagecat = 10 or salvagecat = 11)
C                   eval      dowhatwith = 'D  '
C                   endif



c                   select
c                   when      RICATAGORY   = 'CD'
C                   if        rcovr2case = 'Y' or
c                             rcovr2hcas = 'Y'
c                   eval(h)   invamtCD     = invamtCD    +
C                             ((rcqty * rcpackqty) * rvpdc)
C                   else
c                   eval(h)   invamtCD     = invamtCD    +
C                             (rcqty * rvpdc)
C                   endif
c                   endSL



After that, let your imagination flow, remember your algebra rules and EVAL
can
do just about anything you can dream up.

HTH


Mark A. Manske
[mailto:mmanske@minter-weisman.com]
Sr. Project Lead
Minter-Weisman





-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Terry Grider
Sent: Monday, October 23, 2000 9:18 AM
To: MIDRANGE L
Subject: Evaluate complex conditions


Has anyone ever written or seen an example of program code designed to
evaluate complex conditions?  For example, if you wanted to evaluate a =
b and (c = d or c = e or c = f).  I'm looking for something that can do
multiple levels of parenthesis and all "and/or" combinations.

--
Terry Grider
tgrider@arkansas.net


+---
| 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
+---