Re: How to read and or statement

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

David,

I think Charles is just saying that both forms have their benefits and
drawbacks, and so they should both be able to work.

Maybe I'm lost, but what exactly is difficult to follow without comments?
Are you referring to my original example:

SELECT Customer.Type;
  WHEN 'A';
    ...
  WHEN 'B' or 'C' or 'D';
    ...
  WHEN 'E' or 'F';
    ...
  OTHER;
    ...
ENDSL;

If so, it seems to me that it's only as difficult to follow as you make
it...

Rory

On Mon, Nov 15, 2010 at 1:18 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

> > -----Message d'origine-----
> > De : rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Charles Wilt
> > Envoyé : vendredi 12 novembre 2010 15:26
> > À : RPG programming on the IBM i / System i
> > Objet : Re: How to read and or statement
> >
> > I disagree....
> >
> > Sometimes my path depends on seemingly unrelated things...
> >
> > I want both forms to work.
> >
> >
> > On Fri, Nov 12, 2010 at 8:21 AM, David FOXWELL
> > <David.FOXWELL@xxxxxxxxx> wrote:
> > > And MUCH nicer than :
> > >
> > > SELECT;
> > >  WHEN Customer.Type = 'A';
> > >    ...
> > >  WHEN Customer.Type = 'B' or
> > >       Customer.Type = 'C' or
> > >       Customer.type = 'D';
> > >    ...
> > >  WHEN SomethingThatHasNothingToDoWithCustomer.Slipper = 'E';
> > >    ...
> > >  OTHER;
> > >    ...
> > > ENDSL;
> > >
> > > Which would no longer compile :-)
>
>
> Charles, I am surprised as you are such an advocate for self-documenting
> code. Such a SELECT group would be difficult to follow without comments.
> Dare I say impossible, looking at the above example.
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.