RE: First Free Format -- RPG400-L

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
It's probably a matter of taste, but I think SELECT--the RPG case
statement--is one of the best features of the language.


> -----Original Message-----
> From: rob@dekko.com [mailto:rob@dekko.com]
> Sent: Tuesday, July 30, 2002 2: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.
>
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise
recorded by The Sharper Image corporate e-mail system and is subject to
archival, monitoring, review by and/or disclosure to Sharper Image security
and other management. This message is intended only for the use of the
addressee and may contain information that is privileged and confidential.
If you are not the intended recipient, dissemination of this communication
is prohibited.