View previous topic :: View next topic
|
Author |
Message |
swapnajit
New User
Joined: 18 Apr 2007 Posts: 2 Location: mysore
|
|
|
|
my requirement is like that ...i have to determine in which field the sursor is positioned on the map and based on that i have to perform different validation...so haw come i can determine the cursor position on the screen |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
If you had looked, you would have found that it is returned in the EIB: EIBCPOSN contains the cursor address (position) associated with the last terminal control or basic mapping support (BMS) input operation from a display device such as the 3270. |
|
Back to top |
|
|
rajesh_mbt
New User
Joined: 27 Mar 2006 Posts: 97 Location: India
|
|
|
|
Hi Swanpa
The following code will help to identify the cursor position
COMPUTE WS-CURSOR-LINE = (EIBCPOSN / 80) + 1
Where WS-CURSOR-LINE PIC S9(4) COMP |
|
Back to top |
|
|
TG Murphy
Active User
Joined: 23 Mar 2007 Posts: 148 Location: Ottawa Canada
|
|
|
|
I recall specifying CURSLOC on my SDF II maps. This option would let me test whether the cursor was sitting in a specific field without having to worry about the X,Y position of the cursor itself...
PL-HANDLE-MSGLINE-PROMPT SECTION.
*------------------------------
IF MAP-MSG1A = ATT-CURSOR OR ATT-ERASED-CURSOR
OR MAP-MSG2A = ATT-CURSOR OR ATT-ERASED-CURSOR
SET COMM-TRANSFER-DATA-FOR-RHDQ TO TRUE
MOVE COMM-RHDF-MESSAGES TO COMM-TRANSFER-RHDQ-DATA
DISPLAY "Navigate to error message screen"
END-IF
. |
|
Back to top |
|
|
munikumar Currently Banned New User
Joined: 18 Apr 2007 Posts: 24 Location: India
|
|
|
|
The above are correct. But when you want to check which symbolic field is currently having the cursor, then we can validate as follows:
IF (symbolic fieldL) = -1 then that field is having the cursor at that moment.
Does any one correct me if I am wrong.
Regards
Munikumar G |
|
Back to top |
|
|
|