Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 683
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: 2086
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
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts User access certification In Mainfram... Virendra Shambharkar All Other Mainframe Topics 4 Tue Oct 03, 2017 12:32 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us