Re: RPG Styles

Lets see...

    If       NOT *IN90 And NOT *IN91 And
             FldA = FldB And FldC = FldD And
             FldE = 'Y'
    * Do some stuff
    EndIf

Simple.

Regards,

Jim Langston

boothm@earth.goddard.edu wrote:

> I lost a bunch of mail.  I'm curious, did this problem get solved?  if so,
> how?
>
> Wouldn't this be a nice place for left-side indicators?  Especially if we
> could have 3 of them?
>
> Just think,
>
>   C                  SETOF                    92
>   C  N90N91   FLDA   COMP  FLDB               92
>   C  N90N91 92FLDA   COMP  FLDB               92
>   C  N90N91 92FLDC   COMP  FLDD               92
>   C  N90N91 92FLDE   COMP  'Y'                92
>   C  N92             GOTO  MOSCOW
>   C* Now we can do stuff here:
>   .......
>   C         MOSCOW   TAG
>
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
>
> Jim Langston <jlangston@conexfreight.com>
> Sent by: owner-midrange-l@midrange.com
> 11/24/1999 11:22 AM
> Please respond to MIDRANGE-L
>
>
>         To:     MIDRANGE-L@midrange.com
>         cc:
>         Subject:        Re: RPG Styles
>
> These two code snippets are exactly the same logic wise.  I can
> think of no reason why they shouldn't work identical.
>
> You might want to make absolutely sure that all your values and
> field names are 100% the same.
>
> It could also be done as:
>                 If           (NOT *IN90) And
>                               (NOT *IN91)
> And                             (FldA = FldB)
> And                             (FldC =  FldD)
> And                             (FldE = 'Y')               some
> code               EndIf
>
> I just like to look at *indicators as boolean.
>
> Regards,
>
> Jim Langston
>
> Gary Monnier wrote:
>
> >  Can anyone tell me why the following code snippet wouldn't work the
> > same way? *IN90         IfEq         *Off
> > *IN91         AndEq     *Off
> > FldA          AndEq     FldB
> > FldC          AndEq     FldD
> > FldE          AndEq     'Y'                some code
> > EndIf I  would expect the following to work the same, but  it
> > doesn't.                 If           (*IN90 = *Off)
> > And                             (*IN91 = *Off)
> > And                             (FldA = FldB)
> > And                             (FldC =  FldD)
> > And                             (FldE = 'Y')               some
> > code               EndIf
>
> +---
> | 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
> +---

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