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
 

 

ISPF panel scrollable field indicators not behaving

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Wed Jan 25, 2012 11:44 pm    Post subject: ISPF panel scrollable field indicators not behaving
Reply with quote

I am 35year mf, but this is my first in-depth go with writing and ISPF/rexx Dialog, and I can't get the -+ scrollable field indicators to behave properly. I don't know if it's a "feature" of ISPF or if it's me doing something wrong.

I use TBDISPL to display a table - one of the table columns has values that are longer than the field on the screen, so I am using a scrollable field to display this column. The panel definition has
)FIELD
FIELD(TblFONam) IND(si)
and the )MODEL specifies si at column 76
and the attribute byte is '33'x for which I have a )ATTR statement
33 TYPE(OUTPUT) COLOR(RED)
and so I get a display that looks like this:
View Function Row 1 to 5 of 5
Command ===> Scroll ===> CSR

Function . : RON.FUNCTION1
Description : RON DESC ONE
Team . . . : ESS Type . . . . . : STD RACF Auditor . :
Div . . . . : CT Default group : RAESDFLT RACF Special . :
Dept . . . : ITSM Function Group : RAESAAAB RACF Operations : Y
Usertype . . . :
Screen 1/6 Offerings
S Team Type Div Dept Offering Name si xx
PMC D2D CT ITSM RH_OFFER1_MOD +
STG D2D CT ITSM RH_OFFER2_
ESS D2D CT ITSM RON.OFFERING_ENGLISH_IS_A_WEST_GERMANIC_LANG +
DB2 ELV CT XXXX RON.OFFERING1 +
ESS D2D CT ITSM RON.OFFERING2 +
******************************* Bottom of data ********************************
Everything's great (except I did expect the '+' in column 'si' to be in =all= displayed rows).
At least, it's great until I try to scroll right on the scrollabel field. With scroll amount set to either CSR or PAGE, I type RIGHT in the primary command input field, I put the cursor in the middle of the TblFONam field (titled Offering Name on the panel) and hit Enter.
Yes, the field scrolls to the right, but the scroll indicator is not right. It should be showing '-+', but it doesn't. This is what I see:
View Function Row 1 to 5 of 5
Command ===> Scroll ===> CSR

Function . : RON.FUNCTION1
Description : RON DESC ONE
Team . . . : ESS Type . . . . . : STD RACF Auditor . :
Div . . . . : CT Default group : RAESDFLT RACF Special . :
Dept . . . : ITSM Function Group : RAESAAAB RACF Operations : Y
Usertype . . . :
Screen 1/6 Offerings
S Team Type Div Dept Offering Name si xx
PMC D2D CT ITSM _MOD -+
STG D2D CT ITSM _
ESS D2D CT ITSM ING_ENGLISH_IS_A_WEST_GERMANIC_LANGUAGE_THAT +
DB2 ELV CT XXXX ING1 +
ESS D2D CT ITSM ING2 +
******************************* Bottom of data ********************************
It seems that only the first row of my table has the correct indicator, the others are all missing the '-'. And the second row doesn't even have anything showing in the scrollable indicator.

Can anyone advise me where I'm going wrong please?
Anything extra you'd like to know, just ask.

Thanks
Ron
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Thu Jan 26, 2012 12:29 am    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

Show us your )MODEL line and your TBCREATE statement.

I think your SI column should not be part of the TBCREATE

What happens when the cursor is on other rows when you scroll?

Use code tags to display your examples.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Jan 26, 2012 2:09 pm    Post subject:
Reply with quote

http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.f54dg00%2Ffield.htm
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 3:06 pm    Post subject:
Reply with quote

Thank you for your prompt responses.

I've been to the referenced online manual already, and tried IND, LIND, RIND, with and without indicator overrides, but I can't shake the problem.

I put trace c in the rexx code, the TBCREATE is like this:
Code:

        >>>       "TBCREATE VTBLF1 NAMES(TblSelct TblFOTea TblFOTyp TblFODiv Tbl
 FODep TblFONam) NOWRITE REPLACE"                                               


The panel def has
Code:

)MODEL     
&modlline 


and I've written a procedure to spit out the modlline rexx variable immediately before the call to TBDISPL. The variable value is:
Code:

 :Z$TblFOTea$Z   $Z  $TblFODep$TblFONam                                    ^si$xx                                                                             
 BE5E89CDE885E4445E445E89CDC895E89CDD894444444444444444444444444444444444445A85AA                                                                             
 19B32366351B9000B900B32366457B32366514000000000000000000000000000000000000F29B77                                                                             


Problem symptom persists, no matter which row I have the cursor on.
Additionally, even when I have scrolled fully right with 'End of field' displayed top right of the screen, the indicator is still showing + characters.
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 3:38 pm    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

Screenshot attached, with "Offering Name" field scrolled fully right.
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 3:42 pm    Post subject:
Reply with quote

The first row of the table seems to behave correctly at all times. It shows + when scrolled fully left, - when scrolled fully right, and -+ otherwise. It's the subsequent rows that are wrong.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Thu Jan 26, 2012 3:43 pm    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

please do not post screenshots
a plain text cut and paste with the code tags is more than enough!
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 3:53 pm    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

Sorry, I didn't know not to. I won't paste screenshots again. It did look a bit big.

When scrolled fully left, looks like this
Code:

                                 View Function                  Start of field
Command ===>                                                  Scroll ===> CSR 
                                                                               
Function  . : RON.FUNCTION1                                                   
Description : RON DESC ONE                                                     
Team  . . . : ESS          Type . . . . . : STD          RACF Auditor  . :     
Div . . . . : CT           Default group  : RAESDFLT     RACF Special  . :     
Dept  . . . : ITSM         Function Group : RAESAAAB     RACF Operations : Y   
                                                         Usertype  . . . :     
Screen 1/6   Offerings                                                         
S Team     Type Div Dept     Offering Name                                si xx
  PMC      D2D  CT  ITSM     RH_OFFER1_MOD                                 +   
  STG      D2D  CT  ITSM     RH_OFFER2_                                       
  ESS      D2D  CT  ITSM     RON.OFFERING_ENGLISH_IS_A_WEST_GERMANIC_LANG  +   
  DB2      ELV  CT  XXXX     RON.OFFERING1                                 +   
  ESS      D2D  CT  ITSM     RON.OFFERING2                                 +   


when scrolled a bit to the right
Code:

Screen 1/6   Offerings                                                         
S Team     Type Div Dept     Offering Name                                si xx
  PMC      D2D  CT  ITSM                                                  -+   
  STG      D2D  CT  ITSM                                                       
  ESS      D2D  CT  ITSM     H_IS_A_WEST_GERMANIC_LANGUAGE_THAT_AROSE_IN_  +   
  DB2      ELV  CT  XXXX                                                   +   
  ESS      D2D  CT  ITSM                                                   +   
******************************* Bottom of data ********************************


when scrolled fully right
Code:

Screen 1/6   Offerings                                                         
S Team     Type Div Dept     Offering Name                                si xx
  PMC      D2D  CT  ITSM                                                  -   
  STG      D2D  CT  ITSM                                                       
  ESS      D2D  CT  ITSM     OSE_IN_THE_ANGLO-SAXON_KINGDOMS_OF_ENGLXXEND  +   
  DB2      ELV  CT  XXXX                                                   +   
  ESS      D2D  CT  ITSM                                                   +   
******************************* Bottom of data ********************************
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Thu Jan 26, 2012 6:30 pm    Post subject:
Reply with quote

Have you tried the SFIHDR keyword on the )MODEL line?

I haven't tried it, but the manual says:

The SFIHDR keyword is used when a variable model line defines scrollable
fields and scroll indicators are required for the scrollable fields.
SFIHDR indicates that the first variable model line defines scroll
indicator fields for scrollable fields that are defined on subsequent
variable model lines.
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 7:03 pm    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

The SFIHDR looked a very good suggestion. So I changed my model line from
Code:

)MODEL
&modlline

to
Code:

)MODEL SFIHDR
&modlline


and I had
)FIELD
FIELD(TblFONam) LIND(l) RIND(r)

and I put variables l and r into the model line.

But TBDISPL failed with ZERRLM = Table display panel must have ")MODEL" and 1-8 model lines.
After studying the manual about SFIHDR, I decided to try inserting an extra model line with l and r in it
Code:

)MODEL SFIHDR
                                  ^l                                    ^r
&modlline

That didn't fail on the call, but it gave me two lines on the screen for each row in the table, which is not what I wanted. And still, only the top row in the table had indicators correctly set.
Code:

S Team     Type Div Dept     Offering Name                                     
                            -                                                 +
  PMC      D2D  CT  ITSM     _MOD                                             
                                                                               
  ESS      D2D  CT  ITSM     ING_ENGLISH_IS_A_WEST_GERMANIC_LANGUAGE_THAT_AROSE
                                                                               
  DB2      ELV  CT  XXXX     ING1                                             
                                                                               
  ESS      D2D  CT  ITSM     ING2                                             
******************************* Bottom of data ********************************
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Thu Jan 26, 2012 11:15 pm    Post subject:
Reply with quote

Question: When you scroll left/right, are you expecting the entire "Offering Name" column to scroll, or just the selected row?

If the entire column scrolls, then why would you expect to see scroll indicators on each line? Does the scroll indicator disappear when you scroll down?
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Thu Jan 26, 2012 11:52 pm    Post subject: Reply to: ISPF panel scrollable field indicators not behavin
Reply with quote

hi don, when I scroll left/right I expect the whole column to shift (and it does). That's good.

If the entire column scrolls, then why would you expect to see scroll indicators on each line?
Not knowing what I'm doing wrong makes it hard to answer this question. Having scroll indicators on every row is what I want to achieve. I'm assuming I'm allowed to code the scroll indicator variable in the model line (even though it's not in the table), and that's why I expected to see it on each line.

Does the scroll indicator disappear when you scroll down?
Please refer to my post of Thu Jan 26, 2012 10:23 am which shows the top of the screen. From experiment I found that the scroll indicators were correct only in the top row of the table; scrolling up and down gave unpredictable indicators, sometimes they were blank, sometimes they were +, none of them were - or -+ except row 1.

I appreciate all the help I'm getting here, thanks guys.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Fri Jan 27, 2012 12:48 am    Post subject:
Reply with quote

I ran my own simple experiment, and my results were similar to yours.

TBDISPL treats an entire table column is as one field, so ISPF probably only wants to support one occurrence of the scroll indicator field. That's my theory, anyway.

Personally, I can live with that. It seems more intuitive to me; if I see scroll indicators on every line of a scrollable list, I would expect that each line on the screen can be individually scrolled left and right. Since that is not the case, then a scroll indicator at the top of the list seems logical to me.

I think that to do what you want you may have to abandon TBDISPL and use a dynamic area.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1219
Location: Israel

PostPosted: Fri Jan 27, 2012 3:52 am    Post subject:
Reply with quote

Perhaps you can get some help from "ISPF Panels Beyond the Basics"
There is a whole chapter on scrollable areas.
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Fri Jan 27, 2012 5:26 am    Post subject:
Reply with quote

don, thanks for your input and validation of the behaviour. I have to agree, it seems TBDISPL doesn't like the indicator in the model line. I'm going to put the SI variables into the fixed part of the panel.

Many thanks to all who participated.

Ron
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 24 Tue Dec 06, 2016 8:04 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


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