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: 660
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: 2033
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: 6966
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: 7306

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 IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts User Cancels the job PANDU1 DB2 1 Sat Mar 04, 2017 8:21 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm


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