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
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
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")'"
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.