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: 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 Passing data from REXX to C programme... chong.zhou CLIST & REXX 2 Wed Jul 26, 2017 9:11 pm
No new posts Passing data from REXX to C programme... chong.zhou All Other Mainframe Topics 0 Wed Jul 26, 2017 4:55 pm
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 6 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Loading data to table gives wrong for... Raghu navaikulam DB2 19 Thu Jul 13, 2017 2:11 pm


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