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

Hey Guys!

I just wrote something nifty, thanks to Aaron.

Instead of :


If %Parms < 4;

executeWithoutTheOptionalParameter ( );

Else;

executeWithTheOptionalParameter ( );

EndIf;



I wrote :

MyParameterReceived = ( %PARMS > 4 ); // At the beginning of the procedure

// Elsewhere in the procedure.
If MyParameterReceived ;
executeWithTheOptionalParameter ( );
Else;
executeWithoutTheOptionalParameter ( );

EndIf;

Well, I thought it was nifty.

________________________________
Aaaron wrote a while ago:
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


Every time I get involved with a project with another developer/customer I learn a bunch of tidbits that make my code better, compiling easier, or best practices better. The people on this list could write a book on all those cool things, but its all in how to ask the question.

Does the above qualify as at least a smaller nifty thing? :-)

Aaron Bartell
http://mowyourlawn.com<http://mowyourlawn.com/>


Adam West wrote:
I haven't seen too much as yet.

David FOXWELL
Service Informatique
Tél : 03 90 23 91 63
david.foxwell@xxxxxxxxx<mailto:david.foxwe@xxxxxxxxx>

P Pensez à l'environnement avant d'imprimer ce message