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
 

 

Capture ISPF Panel/Screen w/ user Input

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

New User


Joined: 12 Jan 2006
Posts: 29

PostPosted: Wed Feb 23, 2011 6:30 am    Post subject: Capture ISPF Panel/Screen w/ user Input
Reply with quote

Hello All,

I am required to capture the user input from the ISPF panel that I have developed for my tool.

I tried doing..
"VGET (ZSCREENI ZSCREENW ZSCREEND)"
QUEUE ZSCREENI
"EXECIO" QUEUED() " DISKW myfile (FINIS)"

The output file has
ZSCREENI

How will i be able to get the screen print into ZSCREENI
I saw the post http://ibmmainframes.com/viewtopic.php?t=46895
But Could get that working for me.

Thanks In Advance,
Ravikanth Chavali
Back to top
View user's profile Send private message

ravikanth

New User


Joined: 12 Jan 2006
Posts: 29

PostPosted: Wed Feb 23, 2011 7:45 am    Post subject: Reply to: Capture ISPF Panel/Screen w/ user Input
Reply with quote

Thank you all for your time.

The code provided in the link(post) works perfectly. I added "ADDRESS ISPEXEC" to the VGET command and it worked.
Just incase of AddPoP, I just had to capture the screen before we do a RemPoP.

Fyr, So my sample code looks like

address ispexec "VGET (ZSCREENI ZSCREENW ZSCREEND)"

SW = 80
SD = 50
SL = SD * SW

DO I = 1 TO SL
QUEUE SUBSTR(ZSCREENI,I,SW)
I = I+79
END

/*
I have hardcoded the width & depth, if it needs to be dynamic replace
it with the below code.
SW = ZSCREENW
SD = ZSCREEND
SL = ZSCREEND * ZSCREENW
*/
"FREE F(LOGDD)"
"ALLOC F(LOGDD) DA('"PdsNm"(LOGmem)') SHR"
"EXECIO" QUEUED() " DISKW LOGDD (FINIS)"
"FREE F(LOGDD)"

Thank you!
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 670
Location: Pennsylvania

PostPosted: Wed Feb 23, 2011 6:23 pm    Post subject:
Reply with quote

Am I missing something here?

If your are displaying the panel in your Rexx program, then the variables populated by the user are available to your program once the enter key is hit.

There is no need to capture the entire screen and process it.

It seems to me that you are creating a lot of extra work for yourself.

Would somebody please correct me if I am wrong.

If you were to show your rexx code where you parse the values on the screen, it may become more clear.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Feb 23, 2011 7:10 pm    Post subject: Reply to: Capture ISPF Panel/Screen w/ user Input
Reply with quote

Just use the same variable names in both the rexx and the panel and it should work.
Back to top
View user's profile Send private message
ravikanth

New User


Joined: 12 Jan 2006
Posts: 29

PostPosted: Sat Jul 16, 2011 6:47 am    Post subject:
Reply with quote

To Create a queue I had used "MAKEBUF"
And when a panel error occured, I had to "DROPBUF" before exit.
/*------------------------------------------------------------*/
/* Load the number of stack items to LOG Member */
/*------------------------------------------------------------*/
"FREE F(LOGDD)"
"ALLOC F(LOGDD) DA('"PdsNm"(MemNm)') SHR"
"EXECIO" QUEUED() " DISKW LOGDD (FINIS)"
"FREE F(LOGDD)"
/*------------------------------------------------------------*/
/* Flush/Empty the external Data queue. */
/*------------------------------------------------------------*/
Do Queued()
Parse Pull tmpDump
End
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Sat Jul 16, 2011 1:17 pm    Post subject:
Reply with quote

it seems as if some one has deleted every other post in this thread.

like an acting scene where everbody has a script for a different movie.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Sat Jul 16, 2011 10:10 pm    Post subject: Reply to: Capture ISPF Panel/Screen w/ user Input
Reply with quote

Yes, I think if you add seven instead of 14 it will work how you want.

Matches the rest of the thread now. Really weird.
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 saving your settings in ISPF. VintageReceiver TSO/ISPF 9 Wed Jul 26, 2017 6:42 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts Need input in Scheduling Benchwarmer CA Products 5 Tue Jun 06, 2017 1:44 am


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