The niftiest thing I ever did was a code generator to create getters for
file fields. It seems to cut out 60=70% of the coding requirement for
new development
I Still use it, But im sure there are better examples on the interweb
now
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL
Sent: 08 January 2009 10:26
To: RPG programming on the IBM i / System i
Subject: RE: Niftiest thing(s) you have done in RPG ILE or /FREE
Hey,
I'm an RPG guy sitting next to a JAVA guy.
I asked him if he understood this :
D custIsVld s n
D custNbr s 10 0
/free
custIsVld = (custNbr > 0);
/end-free
Mais bien sur its a booleen, he says.
What about this :
D custIsVld s n
D custNbr s 10 0
/free
if custNbr > 0;
custIsVld = *on;
else;
custIsVld = *off;
endif;
/end-free
Je ne sais pas.
I asked him if what he thought of record level i/o.
He said he didn't know what that meant.
Come to think of it, what does it mean?
--
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.
--------------------------------------------------------
This message (including any attachments) is only for the use of the person(s) for whom it is intended. It may contain Mattel confidential and/or trade secret information. If you are not the intended recipient, you should not copy, distribute or use this information for any purpose, and you should delete this message and inform the sender immediately.
midrange.com
