Re: Separate buisness and display logic question

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.