|
I use that all the time: // Set division master flag (If terminated, use reserve?) Read Div; Chargeback_Rsv = Divtsr = 'Y'; When the result is an indicator, that's a free format replacement for the COMP opcode (in fact, Linoma's RPG Wizard translates it as such). Francis Lapeyre IS Dept. Programmer/Analyst Stewart Enterprises, Inc. E-mail: flapeyre@xxxxxxxx -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of AGlauser@xxxxxxxxxxxx Sent: Wednesday, December 13, 2006 11:32 AM To: RPG programming on the AS400 / iSeries Subject: Quick question on readability Do people like or dislike this type of code: /free var1 = (var2 = value); namedIndicator = (var1 = var2); /end-free Thanks in advance for any opinions, Adam ######################################################################## ############# Attention: The above message and/or attachment(s) is private and confidential and is intended only for the people for which it is addressed. If you are not named in the address fields, ignore the contents and delete all the material. Thank you. Have a nice day. For more information on email virus scanning, security and content management, please contact administrator@xxxxxxxxxxxx ######################################################################## #############
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.