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

What I think is nifty about RPG is that we can mix n match code from 25 years ago with the newest stuff out there and still have a coherent, maintainable application. There is no looming deadline where working existing code just stops working because of new rules in RPG. Do I use the MOVE opcode anymore? No. Is it still in existing code? You betcha. And it isn't going away anytime soon. How great is that? Is there any other platform in the World where that happens?



Buzz Fenner wrote:

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.

------------------------------------------------------------------------


No virus found in this incoming message.
Checked by AVG - http://www.avg.com Version: 8.0.176 / Virus Database: 270.10.4/1880 - Release Date: 1/7/2009 8:49 AM