RE: Its Friday

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.