| View previous topic :: View next topic |
| Author |
Message |
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
 Posted: Thu Nov 10, 2011 11:24 am Post subject: How to position cursor after scrolling |
 |
|
On the ISPF panel, I defined 5 fields: ZCMD, FLD1, FLD2, FLD3, FLD4. FLD1 to FLD4 are within the )MODEL, and ZCMD is required for table display.
| Code: |
address 'ISPEXEC' "TBDISPL TABLE1 PANEL(PANEL1) CURSOR(FLD3) CSRROW(1) AUTOSEL(NO)"
|
When the table is dispayed, the cursor is postioned on the first row of FLD3 correctly. After pressing PF8 (Forward), the cursor is now positioned on the ZCmd field (ISPF handles scrolling logic internally). How can I make ISPF to postion to FLD3 after the scrolling? |
|
| Back to top |
|
 |
asr2
Beginner
Joined: 25 Jun 2011
Posts: 26
Topics: 4
Location: Germany
|
| Posted: Thu Nov 17, 2011 4:09 am Post subject: |
|
|
| Add .CURSOR = FLD3 to the panel definition. |
|
| Back to top |
|
|
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
| Posted: Thu Nov 17, 2011 9:23 am Post subject: |
|
|
asr2,
I added .CURSOR = FLD3 to )INIT, )REINIT and )PROC section and none of them works. |
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Thu Nov 17, 2011 5:28 pm Post subject: |
|
|
as you can see I have used the cursor option in the Rexx and as you can see by the panel fields how the cursor is placed to the correct field..
The first Z variable is for the SELECT field..
| Code: | "TBDISPL" DB2TABS "PANEL(ISPFDTAB) CURSOR(SELECT) AUTOSEL(NO)
ROWID(ACTROW)"
)BODY EXPAND(//) CMD(ZCMD) SMSG(SMSG)
#SMGDATE + / / @DB2 Table Display / / #S
+ {SMSG
+ Command%===>_ZCMD +Scroll%==
+ @SSID:_S+
+
+ Sel Name Number
)MODEL ROWS(SCAN)
+ !Z+|Z |Z +
)INIT
.ZVARS = '(SELECT DTBLNAM DTBLNUM)'
&SELECT = '_' |
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
