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

Creating ISPF Screens with Scrname via REXX on Session start


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

New User


Joined: 31 Jul 2017
Posts: 3
Location: Germany

PostPosted: Tue Sep 05, 2017 4:24 pm
Reply with quote

Hello,

so this is the first time I didn't find a helpful answer to a question in this forum so I need to create a topic myself, sadly the only link that maybe could have helped in another post isn't accessible anymore on the IBM Page :/

Ok now on to my question:

Me and a colleague want to create a little rexx that opens up a few screens when we start a session and all screens should get a SCRNAME this actually works with all screens except the very first default screen that is opened. We can't get it working that the REXX sets the SCRNAME for the first screen.

Code:

ADDRESS ISPEXEC                                           
"SELECT PGM(ISPSTRT) PARM(E; SCRNAME EDIT1 PERM;SWAP)"     
"SELECT PGM(ISPSTRT) PARM(SCRNAME STATUS PERM;SWAP)"     
"SELECT PGM(ISPSTRT) PARM(SCRNAME EDIT2 PERM;SWAP)"       
"SELECT PGM(ISPSTRT) PARM(3.4; SCRNAME DSLIST PERM;SWAP)"     
exit                 


Does anybody know how to name the first screen via the REXX?

Thanks in advance icon_biggrin.gif
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Tue Sep 05, 2017 7:20 pm
Reply with quote

You are laboring under several invalid ideas. First, Rexx has nothing to do with the first screen ISPF displays when it starts. It is usually the ISR@PRIM member in one of the data sets in the concatenation of the data set specified by the ISPPLIB concatenation, though a different initial screen can be specified when it starts. This is discussed in ISPF documentation for your z/OS release.
Back to top
View user's profile Send private message
Albireo20

New User


Joined: 31 Jul 2017
Posts: 3
Location: Germany

PostPosted: Tue Sep 05, 2017 7:26 pm
Reply with quote

steve-myers wrote:
You are laboring under several invalid ideas. First, Rexx has nothing to do with the first screen ISPF displays when it starts. It is usually the ISR@PRIM member in one of the data sets in the concatenation of the data set specified by the ISPPLIB concatenation, though a different initial screen can be specified when it starts. This is discussed in ISPF documentation for your z/OS release.


ah thank you for the explanation, now I learned something new icon_biggrin.gif then I will have to look if we can figure this out, as the installation at our customer is heavily customized. Thanks for the answer icon_biggrin.gif
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Tue Sep 05, 2017 7:56 pm
Reply with quote

I know your query was how to do this with Rexx, but I do have an alternate solution that I currently use.

I use the record/playback feature within my 3270 emulator.

I was very careful during the record sequence.

I create a 'button' on the emulator's task bar.

One click and I am all setup. I have six screens set up.

I take this a step further, and program the pf keys within each screen to jump from screen to screen.

I use the alternate keys (13-24) using the shift key.

I also have pf9 setup to enter 'swap list' command to give me maximum flexibility.
Back to top
View user's profile Send private message
prino

Senior Member


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

PostPosted: Tue Sep 05, 2017 9:47 pm
Reply with quote

daveporcelan wrote:
I know your query was how to do this with Rexx, but I do have an alternate solution that I currently use.

I use the record/playback feature within my 3270 emulator.

I was very careful during the record sequence.

I create a 'button' on the emulator's task bar.

One click and I am all setup. I have six screens set up.

I take this a step further, and program the pf keys within each screen to jump from screen to screen.

I use the alternate keys (13-24) using the shift key.

I also have pf9 setup to enter 'swap list' command to give me maximum flexibility.

Why waste an ISPF PF key on screen swapping? Doesn't your emulator have an option to create/use a macro that round-robins them, e.g. using the swapbar at the bottom. I have one for Tom Brennan's Vista tn3270 that's assigned to Alt-Tab, and that works like a charm!
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Tue Sep 05, 2017 9:56 pm
Reply with quote

Agreed. The swap bar at the bottom works too.

I had developed the the pf key solution before I knew about the swap bar.

I am used to pf keys, but may transition to the swap bar.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Sep 05, 2017 10:18 pm
Reply with quote

The Dialog Developers Guide and Reference describes the ZSTART profile variable, where you can set the initial command stack. That is, you do not have to create your own rexx program to start your default ISPF screens.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Sep 05, 2017 10:19 pm
Reply with quote

fyi.

I submitted an RFE to IBM to make improvements to the SWAP LIST command. See:
www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=73522

Quote:
The SWAP LIST display shows information about the various ISPF screens that are open. However, the information is cryptic. The SWAP LIST panel should include a scrollable field that includes the title line of the panel (please remove extra blank characters).

Furthermore, the user should be allowed to manage a table that maps a panelid to a user specified description. The user's description should appear in the SWAP LIST display if the panel is active on a split screen.

Please get a developerworks id and logon to vote for this RFE.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Sep 06, 2017 1:01 pm
Reply with quote

Albireo20 wrote:
...opens up a few screens when we start a session...

I use ZSTART (available since z/OS V2R1)
Back to top
View user's profile Send private message
Albireo20

New User


Joined: 31 Jul 2017
Posts: 3
Location: Germany

PostPosted: Wed Sep 06, 2017 2:18 pm
Reply with quote

Marso wrote:
Albireo20 wrote:
...opens up a few screens when we start a session...

I use ZSTART (available since z/OS V2R1)


seems like the customized SPU from our customer disabled the zstart variable :/

for now we did a little workaround and used a shift + pf key and just named the first screen and then with the press of this key called the REXX macro that creates the other screens.
Back to top
View user's profile Send private message
nevilh

Active User


Joined: 01 Sep 2006
Posts: 262

PostPosted: Thu Oct 19, 2017 6:18 pm
Reply with quote

unlikely that a customer has (deliberately) disabled this feature more likely your ISPSPROF member in your profile has been corrupted. Try taking a backup of your profile dataset and then deleting the ISPSPROF member in your profile dataset (cant do it in ISPF as it is allocated) then logon again and try redefining ZSTART it should work then
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 Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top