MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

invoking DSLIST From Rexx

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Feb 07, 2003 4:49 am    Post subject: invoking DSLIST From Rexx Reply with quote

I had a problem when using one of my rexx code. When the user enters a Dataset name along with a member name my code will display the member in Edit session. When member name is not given then it will display the dataset list. Just used "ISPEXEC EDIT DATASET(<dataset name>)". But in the list, I'm unable to perform other operations on the member list. (like copy, view, browse instead of just edit). So, I need to display the dataset (member) list just like the 3.4 panel. I know we can invoke any panels from rexx. ISRUDLP - DSLIST Panel. But how to pass parameters to this. (Passing the dataset name) to the DSLIST panel.


Please advise.
Back to top
View user's profile Send private message
DaveyC
Moderator


Joined: 02 Dec 2002
Posts: 151
Topics: 3
Location: Perth, Western Australia

PostPosted: Fri Feb 07, 2003 5:46 am    Post subject: Reply with quote

You should look at LMMDISP to display the member list. Then you can use LMCOPY, LMMOVE, BROWSE, VIEW etc, etc. ISPF services give you everything you need to replicate ISPF options.

Check out the ISPF Services manual, link is on the MVSFORUMS home page.
_________________
Dave Crayford
Back to top
View user's profile Send private message Send e-mail
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Fri Feb 07, 2003 5:52 am    Post subject: Reply with quote

I am not sure if I got your question right.

See if this answers your question?

If a command is like "word1word2word3word4word5" and you want to vary word2 and word 4 then - "word1"word2"word3 "word4"word5" - should work. But, I guess you already know that since you already passed parameter to DATASET in "ISPEXEC EDIT ..."

Diba
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Feb 07, 2003 6:16 am    Post subject: Reply with quote

Dibakar,

Let me reframe my question.

All I need to do is that, If the user enters Dataset Name + Member Name, I should display the Member in Edit mode. But If the member name is not specified, then the Members in the Dataset should be listed as in 3.4. So that the user can select any member at his disposal and perform any operation on the dataset (like copy, move, delete, view, browse, edit...). But If I use the "ISPEXEC EDIT DATASET(<dataset>)" Command, I get an Edit Screen with the members listed. But In that screen I can use only one line command 'S' ie. to select a member and it opens in Edit mode. But normally, in 3.4 panel, we can enter '9' character line command. So, I thought why not I Pass the CONTROL to DSLIST Screen.

Well, DaveyC has given some suggestion. I have to try it. But I think, that my Rexx code will have to handle all the line commands. Not the ISPF.

Thanks
Phantom
Back to top
View user's profile Send private message
DaveyC
Moderator


Joined: 02 Dec 2002
Posts: 151
Topics: 3
Location: Perth, Western Australia

PostPosted: Fri Feb 07, 2003 6:31 am    Post subject: Reply with quote

Quote:
I have to try it. But I think, that my Rexx code will have to handle all the line commands. Not the ISPF


I'm not sure if I understand what you mean, not the ISPF ? Your rexx will have to handle all the line actions and invoke the relevent service. You will have to replace the EDIT service with a call to a REXX routine to display the member list and process the actions.
_________________
Dave Crayford
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Fri Feb 07, 2003 6:34 am    Post subject: Reply with quote

See the MEMLIST service if you are on a reasonably recent ISPF. You might want to take a while and look at the various services in the table of contents of that manual.
Back to top
View user's profile Send private message Visit poster's website
DaveyC
Moderator


Joined: 02 Dec 2002
Posts: 151
Topics: 3
Location: Perth, Western Australia

PostPosted: Fri Feb 07, 2003 6:50 am    Post subject: Reply with quote

Even better, I'm on Z/OS 1.2 and I didn't know about MEMLIST.

Cheers semigeezer.
_________________
Dave Crayford
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Feb 07, 2003 6:58 am    Post subject: Reply with quote

Semigeezer & DaveyC

Thank you very much. Well, I tried Semigeezers solution and It worked just as I was expecting.

DaveyC, I still have to try your solution. When using MEMLIST command, I need not code anything in my Rexx routine to handle the Line commands. Seems easy to use.

Thanks everybody.
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Feb 07, 2003 8:47 am    Post subject: Reply with quote

Semigeezer,

I had few problems with MEMLIST. I'm not able to invoke it in a loop i.e I will display my Panel (say Panel - 1). From Panel-1 the user enters the dataset name to be listed. Then I use the following commands

Code:

 "ISPEXEC LMINIT  DATAID("ID") DATASET('"INDIRNAM"')"
 "ISPEXEC MEMLIST DATAID(&ID) CONFIRM(YES)"         
 "ISPEXEC LMFREE  DATAID(&ID)"                       


So the user first sees the member list of one PDS. Then if he presses F3 then the control returns back to the Rexx routine, displaying my panel (PANEL-1) again. Then he enters some other Dataset name and presses enter. During this time. the MEMLIST fails with a return Code of 10. I tried to give SAY commands after each of the above displayed command lines, and I got a return code of 0 for LMINIT (for the second time also) but MEMLIST returned a code of 10 saying that no DATASET is associated with the dataset ID. Can you help to trace the issue.

Thanks,
Phantom
Back to top
View user's profile Send private message
DaveyC
Moderator


Joined: 02 Dec 2002
Posts: 151
Topics: 3
Location: Perth, Western Australia

PostPosted: Fri Feb 07, 2003 8:54 am    Post subject: Reply with quote

Code:

"ISPEXEC LMINIT  DATAID("ID") DATASET('"INDIRNAM"')"


bug, should be

Code:

"ISPEXEC LMINIT  DATAID(ID) DATASET('"INDIRNAM"')"


drop the quotes around the ID
_________________
Dave Crayford
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Feb 07, 2003 9:01 am    Post subject: Reply with quote

Thanks DaveyC,

Its working now.

I have a small question. If the Bug is with the double quotes around the ID variable. Then why did It run the first time correctly ?

Thanks for the advise.
Phantom
Back to top
View user's profile Send private message
DaveyC
Moderator


Joined: 02 Dec 2002
Posts: 151
Topics: 3
Location: Perth, Western Australia

PostPosted: Fri Feb 07, 2003 9:03 am    Post subject: Reply with quote

because ID was not initialized, so it was treated as a constant called ID. Next time it was a initialized and boom... Maybe you need to read the ISPF services and REXX reference manuals very carefully.
_________________
Dave Crayford
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group