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.