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.