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
 

 

Need advices on simulating ISPF panel behavior

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
icetree521

New User


Joined: 04 Apr 2010
Posts: 13
Location: hangzhou, china

PostPosted: Tue Apr 09, 2013 10:05 am    Post subject: Need advices on simulating ISPF panel behavior
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10257
Location: italy

PostPosted: Tue Apr 09, 2013 11:42 am    Post subject: Reply to: Need advices on simulating ISPF panel behavior
Reply with quote

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 )

http://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
View user's profile Send private message
icetree521

New User


Joined: 04 Apr 2010
Posts: 13
Location: hangzhou, china

PostPosted: Tue Apr 09, 2013 2:19 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10257
Location: italy

PostPosted: Tue Apr 09, 2013 2:37 pm    Post subject: Reply to: Need advices on simulating ISPF panel behavior
Reply with quote

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 icon_evil.gif

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
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue Apr 09, 2013 6:40 pm    Post subject: Reply to: Need advices on simulating ISPF panel behavior
Reply with quote

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
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue Apr 09, 2013 6:58 pm    Post subject: Reply to: Need advices on simulating ISPF panel behavior
Reply with quote

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
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 Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm


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