View previous topic :: View next topic
|
Author |
Message |
Binop B
Active User
Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
|
|
|
|
After working for almost 8 years in mainframe this seems like a silly question - but I still cant figure out how to do this... so here goes...
As we all know - SWAP(PF9) always switches/swaps between two active screens.... Is it possible to control this - such a way that on a particular instance I want to SWAP between the 1st and 4th screens continously. |
|
Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006 Posts: 792 Location: Pennsylvania
|
|
|
|
What I do is setup:
PF21 (Shift PF9) to SWAP 1
PF22 (Shift PF10) to SWAP 2
PF23 (Shift PF11) to SWAP 3
PF24 (Shift PF12) to SWAP 4
You need to setup the keys in the different applications on each screen.
Always setup each screen with the same application, so you know where you are going. I use a record/playback script in my emulator to do this. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Try using the SWAPBAR command. After issuing SWAPBAR, a new line appears at the bottom of the screen. It shows the screen names of each split screen.
You can point and shoot on the screen name on the SWAPBAR line and it will cause a swap to that screen.
========
ISPF, at most, only displays two screens at a time. If you split in the middle of the 3270 screen, there will be one panel on the top and another on the bottom. The SWAP command will only swap between either of those two active screens. If you move the split line to the top or bottom, it is still only those two panels that are active and which can be swapped to with the SWAP command.
You can use SWAP LIST on the screen you do not want. From the list, pick the screen you do want. It will make that screen one of the two active screens. Afterwards, SWAP will only go between those two active screens.
Learn also about the SCRNAME mypan command to give names to the screens. The name can be used by the SWAP mypan command. |
|
Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006 Posts: 792 Location: Pennsylvania
|
|
|
|
Thank you from the department of: You learn something new every day.
I did name my screens, but did not know I could point and shoot from the swap bar, and did not know I could swap to the screen name rather than the number.
I like this a alot.
Thanks... |
|
Back to top |
|
|
Binop B
Active User
Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
|
|
|
|
daveporcelan wrote: |
What I do is setup:
PF21 (Shift PF9) to SWAP 1
PF22 (Shift PF10) to SWAP 2
PF23 (Shift PF11) to SWAP 3
PF24 (Shift PF12) to SWAP 4
You need to setup the keys in the different applications on each screen.
Always setup each screen with the same application, so you know where you are going. I use a record/playback script in my emulator to do this. |
Hi Dave,
I remember doing something like this sometime back. I had now forgotten about it. Thanks for reminding me again...
Pedro wrote: |
Try using the SWAPBAR command. After issuing SWAPBAR, a new line appears at the bottom of the screen. It shows the screen names of each split screen. |
Hi Pedro,
Like!! Like!! Like!!
As Dave said, new learning and this a really really good way of using the TSO/ISPF screen... Thanks a ton ...
To continue on with my original question... Still trying to figure out if that is possible...Based on the SWAPBAR command I am able to see a line as below
Code: |
*DSLIST -DSLIST ISFPCU41 SUPERCE |
I understand that if we simply do a SWAP(PF9) it switches between the two screens which is marked as '*' and '-'. I think we can control which screen would get the '*' [would be the one which is active now] but is there a way to control which screen gets the '-' tag. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
is there a way to control which screen gets the '-' tag. |
With the SWAPBAR displayed, for example,
Code: |
*DSLIST -DSLIST ISFPCU41 SUPERCE |
1. Double-click on the one you want with '-'
2. issue SWAP.
3. Double-click on the one you want with '*'
4. issue SWAP as needed.
or some combination of that. |
|
Back to top |
|
|
Binop B
Active User
Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
|
|
|
|
Yup ... It worked !!
Never knew it was this easy... Thanks again Pedro.. |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
Is it SWAPBAR on TSO Option/Command line?
Code: |
TSOIT86 CPU=SYST ------FBI ISPF/PDF Menu----- 1 Invalid value
OPTION ===> SWAPBAR |
|
|
Back to top |
|
|
Binop B
Active User
Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
|
|
|
|
Yes Gary ...
As Pedro mentioned a new line with screen names will show up in the bottom of your screen... |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
Is it SWAPBAR on TSO Option/Command line? |
Yes. it should work on any ISPF command line. (I do not recall at what release it was introduced).
If it does not work for you, check that you do not have a customized ISPF command table which might be out of date. |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
Oh, well - no SWAPBAR here. ...but I like it. Thanks. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Try to execute, e.g. via Dialog test, the program "ISPTL" Or create your own selection panel with a "SELECT PGM(ISPTL)" command.
It's been around since z/OS 1.10, so you must be running something really old if it's not present, or, as was mentioned by Pedro, someone royally screwed up the command table. |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
Yep, ISPTL works. Neat; thanks. |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
Is there a way to "name"/over-ride the labels in ISPTL ?
I always use SWAP LIST but I like ISPTL too.
Code: |
*------------------- ISPF Task List --------------------*
| Active ISPF Logical Sessions |
| More: + |
| . Start a new screen |
| . Start a new application |
| Application Name |
| _____________________________________________ |
| |
| ID Name Panelid Applid Session Type |
| . 1 PBS@PRIM ISP 3270 |
| . 2 GSVX000P GSVX 3270 |
| . 3- PBS@PRIM ISP 3270 |
| . 4* PBS@PRIM ISP 3270 |
| . |
| . |
| . |
| . |
| . |
| . |
*-------------------------------------------------------* |
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Add this to your user level command table.
Code: |
SWAPBAR 0 SELECT PGM(ISPTL) PARM(&ZPARM) |
Use ISPF option 3.9 to add to your command table.
Or better... your system command table is out of date. You should examine the table from SISPTLIB and add all of the missing entries. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Pedro wrote: |
Add this to your user level command table.
Code: |
SWAPBAR 0 SELECT PGM(ISPTL) PARM(&ZPARM) |
Use ISPF option 3.9 to add to your command table.
Or better... your system command table is out of date. You should examine the table from SISPTLIB and add all of the missing entries. |
No!
You should tell the people responsible for the system to properly use site and user command tables, and not to touch the IBM supplied ones at all! |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
You should tell the people responsible for the system to properly use site and user command tables, and not to touch the IBM supplied ones at all!
|
Agreed. (do not know what I was thinking earlier) |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
Thanks Pedro... |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
chandan.inst
Active User
Joined: 03 Nov 2005 Posts: 275 Location: Mumbai
|
|
|
|
Super like..very thanks for the information Pedro..
Regards,
Chandan |
|
Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
Gary McDowell wrote: |
Is there a way to "name"/over-ride the labels in ISPTL ? |
The labels used by ISPTL are the names of logical screens. A name can be assigned by using the SCRNAME() parameter with the ISPF SELECT service. When you issue
Code: |
address ISPEXEC "SELECT PGM(ISRSCLM) SCRNAME(MYSCLM)" |
then the string "MYSCLM" appears in the NAME column in the ISPF Task List.
The same could be achieved by issuing the SCRNAME command. Here is an excerpt from the ISPF tutorial on his command:
Quote: |
Use the SCRNAME command to assign a name to a logical screen. This name can be used on the SWAP command as a parameter and also displays in the ISPF Task List. This list is displayed when the SWAP LIST command is issued. The SCRNAME command requires one parameter, the screen name which must be between 2 and 8 characters long, starting with an alphabetic and it cannot be LIST, PREV, or NEXT. The second parameter is PERM and is optional. If PERM is specified, the screen name will not change until the SCRNAME command is issued again. Some applications may set the screen name automatically. ISPF will ignore it if the SCRNAME was issued with the PERM option. |
When the SWAPBAR command first was available, I developed a small application which I always run immediately after LOGON. This tool splits the screen several times (driven by an internally defined list) and assigns a suitable screen name to every logical screen. At the end it issues the SWAPBAR command. So my workplace is then ready for the work day.
Updated to reflect Pedro's and Stefan's following posts. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
The labels used by ISPTL are the names of logical screens. A name can be assigned by using the SCRNAME() parameter with the ISPF SELECT service. When you issue
Code: |
address ISPEXEC "SELECT PGM(ISRSCLM) PANEL(MYSCLM)"
|
then the string "MYSCLM" appears in the NAME column in the ISPF Task List.
|
Stefan, I think you meant to post an example with the SCRNAME parameter:
Code: |
address ISPEXEC "SELECT PGM(ISRSCLM) SCRNAME(MYSCLM)" |
|
|
Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
Thanks Pedro for the correction.
You are right, it is the SCRNAME() parameter which I mentioned in the text but missed in my own example.
Shame on me |
|
Back to top |
|
|
|