Re: differentiate between Enter vs. CHECK(ER)?

["Booth Martin" <Booth@xxxxxxxxxxxx>]

--
--
[ Picked text/plain from multipart/alternative ]


Dan, what is the problem you are trying to solve?  Is there an entirely
different way of solving  it?

Perhaps finding some way to eliminate the CHECK(ER) keyword altogether?  I
ve found very few instances where the use of CHECK(ER) does anything useful
for the program or the user.


---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Thursday, June 20, 2002 02:33:14 PM
To: rpg400-l@midrange.com
Subject: Re: differentiate between Enter vs. CHECK(ER)?

Hello Dan,

Instead of testing the AID bytes, which get the same value after pressing
enter or leaving a field with CHECK(ER), you can calculate the cursor
position using the CURLOC keyword;
or use the RTNCSRLOC and test the second value on this keyword for the field
the cursor was in. I do not know, if the system returns the fieldname which
you have atributed with CHECK(ER), as the user intended to leave that field.

Regards.
Carel Teijgeler

======= At 2002-06-19, 13:19:00 you wrote: =======

>Is there a way to differentiate in an RPG-IV program whether the Enter key

>was pressed by the user, or "Enter" is returned to the program because of

>the CHECK(ER) doing its thing? I want to position the cursor differently

>between the two.

>

>I have an AID constants template that defines all of the AID bytes, and I

>see one that I've called $FAES having a constant value of x'3F', which is

>documented as "Automatic Enter (Selector Light Pen)". I set up a test

>program to see the AID byte that gets returned from CHECK(ER); the AID byte

>comes back as x'F1' (Enter).


= = = = = = = = = = = = = = = = = = = =





_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


.
--
[ Content of type image/gif deleted ]
--