|
<snip>
if ExcludeSys; ExcludeSys = *OFF; else; ExcludeSys = *ON; endif;
Incidentally, this can be done in one line: ExcludeSys = (NOT ExcludeSys); </snip> Not to mention this will confuse the crap outta some programmers not well versed in more modern rpg techinques....i like it... Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Turnidge, Dave Sent: Wednesday, December 06, 2006 11:31 AM To: RPG programming on the AS400 / iSeries Subject: **Spam** RE: Indicator Redux Ohhhh! I like your one liner! Thanks... :-) -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of AGlauser@xxxxxxxxxxxx Sent: Wednesday, December 06, 2006 11:26 AM To: RPG programming on the AS400 / iSeries Subject: RE: Indicator Redux Dave Turnidge wrote on 06/12/2006 12:20:11 PM:
However, my display file never changes... A 23 53'F17=Exclude System' A COLOR(BLU) A 27 23 58'In' A COLOR(BLU) What it should show is "F17=Include System" But it still shows "F17=Exclude System"
Perhaps the way to do it would be three fields? A 23 53'F17=' A COLOR(BLU) A 27 23 58'In' A COLOR(BLU) A N27 23 58'Ex' A COLOR(BLU) A 23 60'clude system' A COLOR(BLU) I'm not clear on which field should turn out to be "on top" in your example.
if ExcludeSys; ExcludeSys = *OFF; else; ExcludeSys = *ON; endif;
Incidentally, this can be done in one line: ExcludeSys = (NOT ExcludeSys); HTH, 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.