× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



David,

You could change to return an integer - 0 for succes, 1 for account number
error, 2 for bank code error, etc.

Alternatively, as long as your error message is meaningful, you could simply
not worry about positioning the cursor too much - just position it on the
first bank-related field, display all of them in reverse-image and display
your error message. After all, it's not a *huge* hassle for a user to have
to tab once or twice before making a correction, is it?

Rory

On Wed, Feb 2, 2011 at 5:11 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

Hi all,

A program displays 5 fields concerning a client's bank details. A procedure
exists that accepts these details as a DS and checks each field.

eg:


D CheckBankDetails...
D PI N
D BankDetails likeds(refDS) const
D error like(refError)


/free
If BankDetails.AccountNumber <> etc
error = 'etc..'
return *off
endif

If BankDetails.BankCode <> etc
error = 'etc..'
return *off
endif
/end-free

Caller : IF not CheckBankDetails ( DSBank );
//Now what?
Endif;

On returning from this procedure, how can the display manager program
position the cursor on the first incorrectly filled information using an
indicator and DSPATR(PC)?



Thanks.


--
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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.