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
 

 

re-display panel with scrollable area

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

Senior Member


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

PostPosted: Fri Dec 06, 2013 6:03 am    Post subject: re-display panel with scrollable area
Reply with quote

I have not figured this out yet...

I have a panel with a scrollable area, for example:

Code:
)ATTR
}  AREA(SCRL) EXTEND(ON)
...
)BODY
Command ===>_zcmd                   +
...
} SCRLAREA                                            }
)AREA SCRLAREA       
line 1 . . .  _var1 +
line 2 . . .  _var2 +
...
line 99 . . .  _var99+


Lets say that the user scrolls down some and sees line 55 through line 80. I would like for the user to press Enter and to be able to display line 55 through 80 again.

If the cursor is on var55, I can cause the panel to show var55 first through the use of the .CURSOR tag. But if the cursor is on the command line, I do not know the relative position of the scrollable area.

Is there a way to know the position?
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 Dec 06, 2013 6:40 pm    Post subject:
Reply with quote

Does the LVLINE variable tell you anything? Its intended use is for dynamic areas, but I have never tried it on a panel with a scrollable area.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Dec 06, 2013 10:29 pm    Post subject: Reply to: re-display panel with scrollable area
Reply with quote

Quote:
Does the LVLINE variable tell you anything?

It did not work:
Code:
ISPP286                                                               
                                                                       
Panel 'TESTPNL' error                                                 
The area referenced by the LVLINE function is not a dynamic or graphic
area on the panel.                                                     
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 Dec 06, 2013 11:02 pm    Post subject:
Reply with quote

ZSCREENI? Perhaps you could parse it and figure out what is visible to the user at the time they hit ENTER and then re-position the area accordingly.

Just another guess, I have used ZSCREENI before, but never for this purpose.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Sat Dec 07, 2013 1:02 am    Post subject: Reply to: re-display panel with scrollable area
Reply with quote

Quote:
and then re-position the area accordingly.

I was trying ZSCREENI earlier today. You can determine the current location, but I worry about scalability. That is, my proof of concept was for a few lines on a single panel. But implementing that for hundreds of lines on hundreds of panels is nightmarish.

And positioning to where you were before is problematic. I have not yet figured out how. If you use .CURSOR, there is a case where if your field is within the first page, no scrolling is done.

I am trying to use DOWN 20, for example, but that results in a Enter situation.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Sat Dec 07, 2013 1:21 am    Post subject: Reply to: re-display panel with scrollable area
Reply with quote

newsflash: old dog learns new tricks!

I did not know this before. If you do not provide a panel parameter, the same panel and same position is displayed. Woot!
Code:
panel = "PANEL(TESTPNL)"   
Do while (rc=0)
  "DISPLAY" panel           
  panel = ''           
End
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: Sat Dec 07, 2013 3:00 am    Post subject:
Reply with quote

Cool! I will have to remember that one.

I once had a panel with a very large scrollable area. There were many fields in the scrollable area that were defined as point and shoot. The idea was to mimiic hyperlinks so that selecting one would take you to another panel. On returning to the main panel, I had to bend over backwards using the .CURSOR field to reposition the area. If I had only known there was an easier way......
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 How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
This topic is locked: you cannot edit posts or make replies. Get and display content of an address... lind sh CICS 1 Mon Aug 08, 2016 9:18 am
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm
This topic is locked: you cannot edit posts or make replies. Providing inputs to a panel of anothe... Raghur CLIST & REXX 2 Tue Apr 05, 2016 12:01 pm


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