RE: First Free Format

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The Select/When is a fine choice, and with the new elseif using IF and
ELSEIF together are just a cool, I think.

But what I wish the SELECT/WHEN did, was to allow a C-language-like
SWITCH/CASE compatibility, like this:

  SELECT  ErrorFlag
  When    0
  ...do this...
  When    1
  ...do that...
  When    3
  ...do the other thing..
  endSel

Oh, yeah, and I wish the ENDSL was spelled ENDSEL.

Bob

> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of rob@dekko.com
> Sent: Tuesday, July 30, 2002 4:26 PM
> To: rpg400-l@midrange.com
> Subject: RE: First Free Format
>
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> I am kind of curious too.  It's gotten to the point where I
> avoid the IF statement and use a SELECT.  Even for a simple
> one option.
>
> It really makes you think.
>
> For example, all of you people who use system().  Instead of
> using if ErrorFlag<>0;
>
> you instead
> Select
> When ErrorFlag=0;
> ...
> When ErrorCPF=CPF....;
> ...
> Other;
> EndSl;
>
> It just make you try to cover your bases better.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little
> temporary safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>
> Scott Mildenberger <Smildenber@Washcorp.com>
> Sent by: rpg400-l-admin@midrange.com
> 07/30/2002 03:47 PM
> Please respond to rpg400-l
>
>
>         To:     "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>         cc:
>         Fax to:
>         Subject:        RE: First Free Format
>
>
> Jeff,
>
> One question, why would you change the SELECT/WHEN to
> IF/ELSEIF?  In my mind, the select makes it more obvious that
> a choice is being made between mulitiple options.
>
> Just curious,
>
> Scott Mildenberger
>
> > -----Original Message-----
> > From: Jeff Crosby [mailto:jlcrosby@DILGARDFOODS.COM]
> > Sent: Tuesday, July 30, 2002 2:46 PM
> > To: RPG400-L@midrange.com
> > Subject: First Free Format
> >
> >
> > The only problem I had was, when converting the few fixed-format
> > statements left or changing SELECT/WHEN groups to IF/ELSEIF, was
> > putting the semicolon at the end of each line.  But the
> compiler let
> > me know about that right off. <g>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>