IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to control the SWAP(PF9)ping ?


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Binop B

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Thu Jan 31, 2013 1:28 am
Reply with quote

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... icon_smile.gif

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

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Thu Jan 31, 2013 1:38 am
Reply with quote

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

Global Moderator


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

PostPosted: Thu Jan 31, 2013 4:27 am
Reply with quote

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

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Thu Jan 31, 2013 6:02 pm
Reply with quote

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

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Thu Jan 31, 2013 9:56 pm
Reply with quote

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... icon_smile.gif



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 ... icon_biggrin.gif


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

Global Moderator


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

PostPosted: Thu Jan 31, 2013 10:03 pm
Reply with quote

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

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Thu Jan 31, 2013 10:20 pm
Reply with quote

Yup ... It worked !!
Never knew it was this easy... Thanks again Pedro.. icon_cool.gif
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Jan 31, 2013 11:26 pm
Reply with quote

Is it SWAPBAR on TSO Option/Command line?

Code:
TSOIT86  CPU=SYST ------FBI ISPF/PDF Menu----- 1            Invalid value
OPTION ===> SWAPBAR   
Back to top
View user's profile Send private message
Binop B

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Fri Feb 01, 2013 12:13 am
Reply with quote

Yes Gary ...

As Pedro mentioned a new line with screen names will show up in the bottom of your screen...
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Fri Feb 01, 2013 1:26 am
Reply with quote

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

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Feb 01, 2013 2:33 am
Reply with quote

Oh, well - no SWAPBAR here. ...but I like it. Thanks.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Feb 01, 2013 2:52 am
Reply with quote

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

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Feb 01, 2013 3:15 am
Reply with quote

Yep, ISPTL works. Neat; thanks.
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Feb 01, 2013 6:32 pm
Reply with quote

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

Global Moderator


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

PostPosted: Fri Feb 01, 2013 7:33 pm
Reply with quote

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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Feb 01, 2013 8:44 pm
Reply with quote

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

Global Moderator


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

PostPosted: Fri Feb 01, 2013 11:21 pm
Reply with quote

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

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Feb 01, 2013 11:42 pm
Reply with quote

Thanks Pedro...
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Feb 02, 2013 2:51 am
Reply with quote

for those interested

see here for a REXX script to <CUSTOMIZE> the environment before ISPF invocation
www.ibmmainframes.com/viewtopic.php?t=60112&highlight=ctbadd

and here for a REXX script to update the in storage copy of the command table
www.ibmmainframes.com/viewtopic.php?t=56254&highlight=ctbadd
Back to top
View user's profile Send private message
chandan.inst

Active User


Joined: 03 Nov 2005
Posts: 275
Location: Mumbai

PostPosted: Mon Feb 04, 2013 9:44 am
Reply with quote

Super like..very thanks for the information Pedro..

Regards,
Chandan
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Mon Feb 04, 2013 8:21 pm
Reply with quote

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

Global Moderator


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

PostPosted: Mon Feb 04, 2013 10:03 pm
Reply with quote

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

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Tue Feb 05, 2013 1:34 pm
Reply with quote

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 icon_wink.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts How to 'Ping' a CICS region in JCL CICS 2
No new posts Help Control-R IBM Tools 2
No new posts split and swap in ISPF TSO/ISPF 6
No new posts Try to understand IMS control block IMS DB/DC 0
Search our Forums:

Back to Top