× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Michael,
Looks like you take the "nice" prize - good stuff!

And, for Brad, this minor variation:

set :smiley = case when :a in (:field1,:field2,:field3)
then happyface else nohappyface end;

And for Charles, you to take my "best laugh prize" -
my cubicle neighbor asked "what's so funny",
but he's not a programmer.

Thanks everyone for the good time!




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Schutte
Sent: Friday, March 01, 2013 2:41 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Its Friday

or

set :smiley = case when :a in ('A','B','C') then happyface else nohappyface end;


On Fri, Mar 1, 2013 at 4:39 PM, Michael Schutte <mschutte369@xxxxxxxxx>wrote:

exec sql
set :true = case when :a in ('A','B','C') then '1' else '0' end;

if true = '1'
happy face
else
no happy face


On Fri, Mar 1, 2013 at 2:50 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

Even faster using an array and SQL.


On Fri, Mar 1, 2013 at 11:29 AM, Briggs, Trevor (TBriggs2) <
TBriggs2@xxxxxxxxxxx> wrote:

According to how many CHAINs or SETLLs you estimate you are going
to do, and the number of entries in the file, many times reading
through the file once up front and building an array can be much more efficient.

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles
Brewster
Sent: Friday, March 01, 2013 1:20 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Its Friday

//-- isn't it still true that; setll w/%equal is faster than chain
w/%found?

//-- with assumptions that:
//-- *on = :)
//-- *off = :(

setll myValue MYFILE
myFace = %equal(MYFILE);


Charlie Brewster



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bradley Stone
Sent: Friday, March 01, 2013 1:03 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Its Friday

Because we "don't hardcode". :) We will chain to a file to see if
it's a valid value instead of hardcoding an IN statement.

myvalue CHAIN myfile;

if (%found(myfile));
myface = HAPPY_FACE;
else;
myface = SAD_FACE;
endif;

Shoot, even though they're constants it's still hardcoding.. I'll
have to create a face emotion master file of some sort!

Brad
www.bvstools.com


On Fri, Mar 1, 2013 at 11:47 AM, Nathan Andelin
<nandelin@xxxxxxxxx>
wrote:

Rather than having an "in" operator, you might consider an "in"
procedure.
Write your own. Add it to a service program. Call it from anywhere.

if in(MyCharVar:'A,B,C');
MyFace = ': )';
Else;
MyFace = ':(';
Endif;



----- Original Message -----
From: Gary Thompson <gthompson@xxxxxxxxxxx>
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxx>
Cc:
Sent: Friday, March 1, 2013 9:44 AM
Subject: Its Friday

Ever wonder why there is no If IN (not to be confused with *IN) ?

If MyCharVar In ('A','B','C');
MyFace = ': )';
Else;
MyFace = ':(';
Endif;

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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
.
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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
.


--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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.

CONFIDENTIALITY NOTICE: This e-mail message, including any
attachments, is for the sole use of the intended recipient(s) and
may contain confidential and privileged information. Any
unauthorized review, use, disclosure or distribution is prohibited.
If you are not the intended recipient, please contact the sender by
reply e-mail and destroy all copies of the original message.
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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.



*********************************************************************
*********************************************************************
******************************************************************
This message originates from Lincare Holdings Inc. It contains
information
which may be confidential or privileged and is intended only for
the individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or
use
the
contents of this message.
All personal messages express views solely of the sender, which are
not
to
be attributed to Lincare Holdings Inc., and may not be copied or
distributed without this disclaimer.
If you received this message in error, please notify us immediately
at MailAdmin@xxxxxxxxxxx or (800) 284-2006.


*********************************************************************
*********************************************************************
******************************************************************

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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.


--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(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.



--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.