|
You could make a more meaningful names. For example... I name my first screen as A1 and my screen edit routine would be named A1ErrorsExists my code looks like... If A1ErrorsExists(); Redisplay... Else; ... no errors continue processing. Endif In my screens, I have a field to display messages call MSG.... When the return is executed it determines if MSG is blank or not. return MSG <> *Blanks; If Msg contains a message, *On is returned back to the caller. Otherwise, *Off is returned. Michael Schutte "Lim Hock-Chai" <Lim.Hock-Chai@us amobility.com> To Sent by: "RPG programming on the AS400 / rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> midrange.com cc Subject 04/21/2006 02:44 RE: not able to create indicator as PM constant Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> If (function()) is actually what I try to avoid. - Below is what I'm usually do: If editScreenInput() ... Do something Else ... Do something else endif P editScreenInput B D pi n C if somethingWrong C return *off C else C return *on C endif P editScreenInput E The problem on above is that I can easily tell if *on means successful or not successful. - I plan to change above to become like below, which I think is more intuitive: If editScreenInput() = successful ... Do something Else ... Do something else endif P editScreenInput B D pi n C if somethingWrong C return not successful C else C return successful C endif P editScreenInput E -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David Gibbs FWIW: If the test you intend to perform is something like: if (function() == successful), then I would suggest you simply use the boolean return value ... so it would be if (function()). david -- This is the RPG programming on the AS400 / iSeries (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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.