RE: Niftiest thing(s) you have done in RPG ILE or /FREE

Me too!

If only it weren't 4 : 30 in the afternoon and time to go home.
Early to bed tonite.

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Buzz Fenner
Envoyé : mercredi 7 janvier 2009 16:22
À : rpg400-l@xxxxxxxxxxxx
Objet : RE: Niftiest thing(s) you have done in RPG ILE or /FREE

Setting a logical variable based on the value of an expression! How mean is that. I can't wait to use it...

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]

De la part de Aaron Bartell

Envoy? : mercredi 7 janvier 2009 14:03
? : RPG programming on the IBM i / System i Objet : Re: Niftiest
thing(s) you have done in RPG ILE or /FREE

I wonder if you changed the question to be more pointed towards certain

concepts if you would get more >responses. For example, if you asked "what are some cool things you can do in one line of code" then I would >think back to something I learned early on that some programmers still don't know you can do:

Long way...

D custIsVld s n
D custNbr s 10 0
/free
if custNbr > 0;
custIsVld = *on;
else;
custIsVld = *off;
endif;
/end-free

Short way...

D custIsVld s n
D custNbr s 10 0
/free
custIsVld = (custNbr > 0);
/end-free

--
PRIVACY WARNING: For auditing purposes, a copy of this message has been saved in a permanent database.






--
PRIVACY WARNING: For auditing purposes, a copy of this message has been saved in a permanent database.

--
This is the RPG programming on the IBM i / System i (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.