View previous topic :: View next topic |
Author |
Message |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Feb 07, 2003 4:49 am Post subject: invoking DSLIST From Rexx |
|
|
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 |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Fri Feb 07, 2003 5:46 am Post subject: |
|
|
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 |
|
 |
Dibakar Advanced

Joined: 02 Dec 2002 Posts: 700 Topics: 63 Location: USA
|
Posted: Fri Feb 07, 2003 5:52 am Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Feb 07, 2003 6:16 am Post subject: |
|
|
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 |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Fri Feb 07, 2003 6:31 am Post subject: |
|
|
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 |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Fri Feb 07, 2003 6:34 am Post subject: |
|
|
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 |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Fri Feb 07, 2003 6:50 am Post subject: |
|
|
Even better, I'm on Z/OS 1.2 and I didn't know about MEMLIST.
Cheers semigeezer. _________________ Dave Crayford |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Feb 07, 2003 6:58 am Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Feb 07, 2003 8:47 am Post subject: |
|
|
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 |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Fri Feb 07, 2003 8:54 am Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Feb 07, 2003 9:01 am Post subject: |
|
|
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 |
|
 |
DaveyC Moderator

Joined: 02 Dec 2002 Posts: 151 Topics: 3 Location: Perth, Western Australia
|
Posted: Fri Feb 07, 2003 9:03 am Post subject: |
|
|
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 |
|
 |
|
|