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
 

 

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: 755
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: 755
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 Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm
No new posts Data replication from multiple Db2 ta... kishpra DB2 9 Mon Mar 27, 2017 9:58 pm


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