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
 

 

REXX Swap command in Quick browse

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 176
Location: Pune, Maharashtra, India

PostPosted: Thu Jun 07, 2012 4:33 pm    Post subject: REXX Swap command in Quick browse
Reply with quote

We have a quick browse REXX exec, which helps us to open specified dataset in a browse option.
But we want to open multiple datasets using the same tool and swap among them.

I am unable to do swap among them inside QUICK BROWSE tool.

Can anybody help me in swapping datasets in QUCIK BROWSE tool ?
Back to top
View user's profile Send private message

prino

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Thu Jun 07, 2012 5:07 pm    Post subject:
Reply with quote

How do you expect us to support a company specific tool?
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Thu Jun 07, 2012 5:07 pm    Post subject:
Reply with quote

Change your PF9 key to SWAP LIST.

When you press that key, pick the session you want.

Also, why don't to speak with the author, or whomever maintains the tool?
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jun 07, 2012 5:26 pm    Post subject:
Reply with quote

1. "Quick Browse" sounds local to your shop.
2. What does this
Quote:
I am unable to do swap among them inside QUICK BROWSE tool.
mean?

Did you mean - You browse a DSN in one window. You browse another DSN in other window -- and not able to use PF9 function key? icon_confused.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jun 07, 2012 5:26 pm    Post subject:
Reply with quote

rohanthengal,

since you don't appear to know much about ispf/zos/etc...

why don't you start by looking at swap list.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Thu Jun 07, 2012 5:36 pm    Post subject:
Reply with quote

dbz...

We are saying the same thing. Your delivery is just more... colorful.
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 176
Location: Pune, Maharashtra, India

PostPosted: Thu Jun 07, 2012 6:25 pm    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Thanks Anuj & Dave for your concerns. Lets come to the point.
This is definitely a shop specific tool but it is based on rexx. So i was trying to get the help from our forum.

Yes, we have enlisted multiple frequently required datasets on a screen(panel). So, depending upon option given by user, it will open that dataset in browse mode, this helps us to personalise a panel with frquently required complicated dataset names. It stores user provided dataset names in a file and next time when you run, it will read the same file and through read items to a panel.(saving users personalised session)
e.g.
Code:

1. MFID.TEST.PDS1 <--- editable for user
2. MFID.TEST.PDS2  <--- editable for user
3. MFID.TEST.PS1 <--- editable for user
4. MFID.TEST.PDS3(MEMBER1) <--- editable for user

                                OPTION:   ____
<-- user provides his choice

Problem is, once i give the option, it opens specified dataset in browse mode but it does not allow me to SWAP the panels using F9 or any function key(as i have not coded its functionality/not aware about the command to be fired for swap under ISPEXEC) icon_redface.gif. I want to run this REXX exec for 2 times to open 2 datasets in browse mode and swap among them.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Thu Jun 07, 2012 6:42 pm    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Quote:
It stores user provided dataset names in a file and next time when you run, it will read the same file and through read items to a panel.(saving users personalised session)

You are describing references lists, which are a normal part of ISPF. Why don't you just use reference lists?


Quote:
it opens specified dataset in browse mode but it does not allow me to SWAP the panels using F9 or any function key

Since you are not the author, I suggest SPLIT then invoke your rexx program. Then SPLIT NEW and invoke your rexx program again, etc... After that, you should be able to SWAP NEXT among them.

You did not provide code, but I assume the rexx program currently issues ISPEXEC BROWSE service, but what you want is to issue SELECT PGM(ISPSTRT) instead, which will open a new ISPF split screen. See the ISPF Developer's Guide and Reference.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jun 07, 2012 6:44 pm    Post subject:
Reply with quote

1. you should use profile variables (from variable pool) instead of 'files' to provide for user profiles.
this relieves you the burden of dealing with the vulgarities of SMS/dataset migration.

2. Learn how to START a new session
(many threads in this website, as well as easily google'able.

3. Learn about SWAPLIST, session naming.

4. Bookmark/Favorite this link to ISPF for z/OS manuals which will give you the background
to understand so that you can properly design and build/code a tool
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 176
Location: Pune, Maharashtra, India

PostPosted: Fri Jun 08, 2012 10:21 pm    Post subject:
Reply with quote

Thanks DBz and Pedro for guiding me.. i hope it work after using your directions...
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Sat Jun 09, 2012 2:19 am    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Why reinvent the wheel? I still think you should use a personal data set list. Try this in ISPF:

Setup:
1. issue command REFLISTD
2. type A in action field, press Enter
3. type a list name of TEST7, for example.
4. modify the list of data set names as you see fit.

Usage:
1. type DSLIST TEST7

Here, you will get a custom list of datasets which you can browse, edit, etc...

To make changes:
1. type REFACTD TEST7

But you should know that NRETRIEV will retrieve the names from TEST7 instead of the normal, most recent datasets. You can reset back to normal by:
1. type REFOPEND
2. open REFLIST
3. pf3
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 176
Location: Pune, Maharashtra, India

PostPosted: Wed Sep 12, 2012 10:25 pm    Post subject:
Reply with quote

Again, i came across same issue again..
while developing another shop specific REXX macro, when we press F6(set by me to macro) key on COBOL copybook line in COBOL pgm, it should open the same copybook from corresponding library in BROWSE mode.

I used ISPEXEC BROWSE DATASET command in code.

I am perfectly able to navigate through multiple regions for latest updated copybook.

But the only problem, i am facing is once i press F6 key on
Code:
 'copy COPYBOOK'

line, it opens copybook in browse mode and disables F9 for SWAPPING. So my tool becomes less productive for faster prog. analysis.
I am pressing F3 key to come back to code. I want to press F9 to allow toggling screens.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Sep 12, 2012 10:35 pm    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Quote:
But we want to open multiple datasets using the same tool and swap among them.


a rexx script controls only the session/swap screen from where it is invoked

You might try using the ISPSTRT construct to start a browse session in a new <spilt>

but things might get messy, too often people forget to close the unused <spilts>
and end up using swap list to find out where they stand

so ... beware
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: Wed Sep 12, 2012 10:57 pm    Post subject:
Reply with quote

I am a bit confused. Is it the SWAP command that has been disabled or is it merely a case that PFK9 no longer issues the SWAP command?
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1717
Location: UK

PostPosted: Wed Sep 12, 2012 11:35 pm    Post subject:
Reply with quote

What displays when you enter the 'keys' command?
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Sep 14, 2012 1:33 am    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Quote:
the only problem, i am facing is once i press F6 key on

'copy COPYBOOK'

line, it opens copybook in browse mode and disables F9 for SWAPPING.

Show us your macro, or at least the part that invokes browse.
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Fri Sep 14, 2012 5:54 pm    Post subject:
Reply with quote

rohanthengal wrote:
... I used ISPEXEC BROWSE DATASET command in code.... it opens copybook in browse mode and disables F9 for SWAPPING. ... I am pressing F3 key to come back to code. I want to press F9 to allow toggling screens.

SWAP can only be used when you have SPLITted the screen in advance.

Your misunderstanding is that you expect SWAP to jump back to the previous display within a single screen.

That's not possible.
That is what multiple screens are designed for.

If you want to SWAP between several BROWSE sessions, your initial REXX program should be changed. Do not invoke the browse by ISPEXEC BROWSE because this will browse the dataset within the same application screen. Use instead ISPEXEC SELECT PGM(ISPSTRT) PARM(CMD(myrexx)). This will split the screen and start the REXX program myrexx. Now it's up to you to write this second routine which needs nothing more than the name of the previously selected dataset to start a browse session. This technique gives you the ability to swap back to the menu dialog and select another dataset to be browsed without closing the first one.

Hope you get the idea?
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 176
Location: Pune, Maharashtra, India

PostPosted: Sun Sep 16, 2012 1:12 am    Post subject: Reply to: REXX Swap command in Quick browse
Reply with quote

Yes, absolutely.. i will try on this, will post my experience.

my command ISPEXEC BROWSE needs to be replaced.. as per suggested.. icon_rolleyes.gif
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am


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