RE: First Free Format

True, but I would expect the RPG version to work like RPG. <vbg>

> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of Joel Fritz
> Sent: Tuesday, July 30, 2002 5:04 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: First Free Format
>
>
> 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 ]
> 'Course the dirty secret about switch in C is that it can
> only do a comparison on an integer, which includes character,
> value and you have to use the "break" keyword, kind of like
> "leave," to make the thing stop executing comparisons.
>
> I love SELECT. <g>
>
> > -----Original Message-----
> > From: Bob Cozzi [mailto:cozzi@rpgiv.com]
> > Sent: Tuesday, July 30, 2002 2:52 PM
> > To: rpg400-l@midrange.com
> > Subject: RE: First Free Format
> >
> >
> > 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.
> > >
> > >
> >
> > _______________________________________________
> > 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.
>
> _______________________________________________
> 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.
>
>