Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how come i can determine the cursor position on the screen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
swapnajit

New User


Joined: 18 Apr 2007
Posts: 2
Location: mysore

PostPosted: Thu Apr 19, 2007 3:53 pm    Post subject: how come i can determine the cursor position on the screen
Reply with quote

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
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Apr 19, 2007 4:02 pm    Post subject:
Reply with quote

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
View user's profile Send private message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 95
Location: India

PostPosted: Tue Apr 24, 2007 6:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
TG Murphy

Active User


Joined: 23 Mar 2007
Posts: 149
Location: Ottawa Canada

PostPosted: Thu Apr 26, 2007 12:10 am    Post subject:
Reply with quote

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
View user's profile Send private message
munikumar
Currently Banned

New User


Joined: 18 Apr 2007
Posts: 24
Location: India

PostPosted: Thu Apr 26, 2007 12:27 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Testing rerad cursor for status with ... John F Dutcher DB2 8 Fri May 19, 2017 9:35 pm
No new posts Getting -504 Cursor Name GTT-ARTS-CUR... Robin Sulsona DB2 2 Fri Mar 17, 2017 1:43 am
No new posts Determine Region with max bandwidth f... seahawk789 COBOL Programming 3 Mon Feb 27, 2017 8:26 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts Release of Adabas Cursor mohitsethi All Other Mainframe Topics 1 Mon Feb 06, 2017 8:36 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us