Re: RPG Styles

[boothm@xxxxxxxxxxxxxxxxx]

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