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
 
How to display data in a popup window

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

Active Member


Joined: 22 Aug 2006
Posts: 757
Location: Germany

PostPosted: Thu Mar 06, 2008 8:16 pm    Post subject: How to display data in a popup window
Reply with quote

Hi guys !

Now it's on me to ask a question.

I have a Rexx, wich helps me when i'm editing a Endevor Member.

For example, when editing a Cobol programm, i can position the cursor on a perform statement and invoke this Rexx by pressing a defined PF-key. Then automaticly cursor is positioned to the Section-Beginning of that Perform. Also backwards and some other useful things.

Ok, now i want to implement another feature. By typing a special char in the linenumer of a line, where a Perform-Statement is coded and invoking the Rexx, the coded lines of that Section schould be displayed in a popup window. Schould be scrollable an so on.

What i did:
I got the typed Char "N" via ISREDIT PROCESS RANGE N N

I seeked Start and End of Section and labeld these lines

ISREDIT "SEEK FIRST 8 '"!!ZZTEXT!!" SECTION.'"
ADDRESS ISREDIT "(ANFLIN,ANFCOL) = CURSOR"
ADDRESS ISREDIT "LABEL "ANFLIN" = "ZZLABL" 0"

I created a temp member to store the lines of that section
ISREDIT "CREATE 'J120830.USER.TEMP(ZSECTION)' .A .B"

And now i want to diplay that code in a Popup Window
I tried:

ZWINTTL = ZZTEXT
ADDRESS ISPEXEC "ADDPOP COLUMN("COL") ROW("ROW")"
DO WHILE POPLOOP = 0
ADDRESS ISPEXEC "DISPLAY PANEL(WINDOW01)"
POPLOOP = RC
IF POPLOOP = 0 THEN DO
ADDRESS ISPEXEC "EDIT DATASET ('"UMEYDSN"("UMEYMEM")'"
END
END
ADDRESS ISPEXEC "REMPOP"

I tried & traced a lot, but it doesn't work. First, always the popup is displayed, but with nothing in it. Then after ending the popup via PF3, the created member is diplayed in full-screen edit-mode. After another PF3 I'm back in my Endevor Member.

By time, it drives me nuts. I hope, someone here has a solution for me.

Regards, UmeySan
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Mar 06, 2008 9:08 pm    Post subject:
Reply with quote

You shouldn't use another panel. Surround the EDIT statement by ADDPOP and REMPOP and see what happens...

O.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 757
Location: Germany

PostPosted: Thu Mar 06, 2008 9:15 pm    Post subject:
Reply with quote

Hi ofer71 !

Thank's, but it's the same as before, only without displaying the popup window first. Just a edit session in full sreen.

Regards, UmeySan
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

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