|
View previous topic :: View next topic
|
| Author |
Message |
icetree521
New User
Joined: 04 Apr 2010
Posts: 13
Location: hangzhou, china
|
|
|
|
Hello,
I need your help on simulating ISPF panel behavior. You know normally in ISPF panel, we perform actions in these sequence:
<1> type 3.4
<2>Press enter
<3> type the dataset name like USERID.MYDTSET
<4>Press ente
after above 4 actions, ISPF will display a new panel named ISRUDSL0 with all PS(and PDS) beginning with USERID.MYDTSET.
Now what I need to do is to automate above series actions using REXX program, but I met problems. Here is what I did.
first, I copied panel definition ISRUDLP into my personal panel lib USERID.PDS.PLIB(ISRUDLP) and add an '.RESP = ENTER' to the )INIT section.
| Code: |
)INIT
.RESP = ENTER
.ZVARS = '(ZCMD ZDLDSNLV ZDLPVL ZUPIVV ZDSLCONV ZMEMCONV ZDSNQALV ZDSPCA
ZDSPTOTV ZDLDSNPV)'
&ZWINTTL = ' ' |
And then, in my Rexx program I code like:
| Code: |
ADDRESS ISPEXEC
MYLIB = 'USERID.PDS.PLIB'
"ISPEXEC LIBDEF ISPPLIB DATASET ID('"MYLIB"')"
ZDLDSNLV='USERID.MYDTSET'
"VPUT (ZDLDSNLV) PROFILE"
"DISPLAY PANEL(AISRUDLP)"
ADDRESS ISPEXEC "VGET (ZSCREENI)"
SAY ZSCREENI |
I assume ZSCREENI will contain ISRUDSL0, but unluckily, it is still ISRUDLP, not ISRUDSL0. Now I guess simply add '.RESP = ENTER' into the )INIT section of panel ISRUDLP doesn't actually worked. t
Before posting this thread, I did a lot of google but with no luck. So it would be appreciate if someone could point out where I am wrong or kindly provide me some advice, thank you !
All attention-seeking formatting removed |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the chances of getting help on such a muddy question are pretty slim
if You post the original requirement nobody will waste time speculating,
and You might get better help
| Quote: |
Before posting this thread, I did a lot of google but with no luck. |
if You had read the manuals about the LMD..... services You would not have had the need to ask
and bolding, using a large font, using RED is like shouting,
and is symptom of bad manners.
see here for working snippets ( my posts )
ibmmainframes.com/viewtopic.php?t=60743&highlight=
the first one processes the members of a pds
the second one processes a dataset list ( a la 3.4 )
if LMDDISP is used instead of LMDLIST the dataset list will be displayed
using the default panel or a customized one
read the manuals ! |
|
| Back to top |
|
|
icetree521
New User
Joined: 04 Apr 2010
Posts: 13
Location: hangzhou, china
|
|
|
|
Hi enrico,
Thanks. I took time by reading your posts. But I don't think they can resolve my problem. Actually I don't need to list dataset at all. I just use 3.4 as an example because it is the most common case and everybody understand it.
What I am wondering is in my example , why ZSCREENI capture screen ISRUDLP rather than ISRUDSL0. Based on my understanding, I already added ''.RESP = ENTER' to the )INIT section of panel ISRUDLP, so after below this statement excuted, screen ISRUDSL0 should be captured, correct?
| Code: |
| "DISPLAY PANEL(ISRUDLP)" |
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| But I don't think they can resolve my problem. |
well it would be nice if You would spend time explaining Your problem,
instead of making people waste time guessing 
You posted a requirement, with an example
I provided You with a solution and an explanation
what do You have to complain about ??? |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| So it would be appreciate if someone could point out where I am wrong |
Likely, the problem you have is that ISPF uses programs to setup the panel and you are bypassing the programs. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| what I need to do is to automate above series actions using REXX program |
It is not clear why you need rexx. ISPF already provides the DSLIST command that will display a list of datasets.
You should examine the ISP command table and in your rexx program, recreate what is done in the command table for the DSLIST command. |
|
| Back to top |
|
|
|
|
