UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
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 |
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
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 |
|