Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Creating ISPF Screens with Scrname via REXX on Session start

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Creating ISPF Screens with Scrname via REXX on Session start
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: 562
Location: The Universe

PostPosted: Tue Sep 05, 2017 7:20 pm    Post subject:
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    Post subject:
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: 683
Location: Pennsylvania

PostPosted: Tue Sep 05, 2017 7:56 pm    Post subject:
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: 1048
Location: Oostende, Belgium

PostPosted: Tue Sep 05, 2017 9:47 pm    Post subject:
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: 683
Location: Pennsylvania

PostPosted: Tue Sep 05, 2017 9:56 pm    Post subject:
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

Senior Member


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

PostPosted: Tue Sep 05, 2017 10:18 pm    Post subject: Reply to: Creating ISPF Screens with Scrname via REXX on Session start
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

Senior Member


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

PostPosted: Tue Sep 05, 2017 10:19 pm    Post subject: Reply to: Creating ISPF Screens with Scrname via REXX on Session start
Reply with quote

fyi.

I submitted an RFE to IBM to make improvements to the SWAP LIST command. See:
https://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: 1243
Location: Israel

PostPosted: Wed Sep 06, 2017 1:01 pm    Post subject: Re: Creating ISPF Screens with Scrname via REXX on Session start
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    Post subject: Re: Creating ISPF Screens with Scrname via REXX on Session start
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
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 Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us