× 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.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.