View previous topic :: View next topic
|
Author |
Message |
daveporcelan
Active Member
Joined: 01 Dec 2006 Posts: 792 Location: Pennsylvania
|
|
|
|
I have written an edit macro to copy in member from a Test pds into a Prod pds.
When performing the copy alone the screen gets refereshed and a message appears in the upper right as shown:
Code: |
EDIT PROD.PDS(AA) - 01.01 COPY SUCCESSFUL
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 TEST
****** **************************** Bottom of Data ****************************
|
I have added code to allow the deletion of the Test pds member after the copy. For this I put an ADDPOP to get delete confirmation.
The problem is (finally telling you) that the main edit panel is not showing the Test data until the Macro has completed. See it still shows PROD on line 1:
Code: |
EDIT PROD.PDS(AA) - 01.00 Columns 00001 00072
Command ===> zcopy delete Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 PROD
****** **************************** Bottom of Data ****************************
-------------------------------------------------
³ COPY SUCCESSFUL ³
³ ------------ Delete Confirmation ------------ ³
³ ³
³ Copy Successful for: AA ³
³ ³
³ Delete Requested for: ³
³ TEST.PDS(AA) ³
³ ³
³ Enter Yes to Confirm Delete ____ ³
³ or PF3 to Bypass Delete ³
------------------------------------------------
|
The copy has already occurred but it is not showing yet.
Is there a way to Refresh the current display immediately after the copy?
I looked through the Edit Macro manual and ISPF manual, and could not find anything.
Is there something I am missing?
Thanks... |
|
Back to top |
|
|
Kurt Deininger
New User
Joined: 13 Jul 2010 Posts: 19 Location: Frankfurt/Germany
|
|
|
|
Hi daveporcelan ,
You should show us the code of your macro "zcopy". Without seeing it we can only guess. Maybe a REMPOP would help.
Cheers. Kurt |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Take a look at the CONTROL DISPLAY service.
O. |
|
Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006 Posts: 792 Location: Pennsylvania
|
|
|
|
Offer,
I looked into the CONTROL DISPLAY service.
I tried Options Save, Restore, Refresh in various combinations with no change in my result. The changes do not display on my screen until after the edit macro completes.
Kurt,
Here is the snippet of code that performs the copy, addpop, and display of the pop up panel. As mentioned above, the results of the copy do not appear until after the edit macro completes.
I would like to see the copy results before the pop up panel displays (at the same time really).
Code: |
"ISREDIT DELETE ALL NX"
"ISREDIT COPY" FROMMEM " AFTER .ZF"
"ISPEXEC ADDPOP ROW(+6)"
"ISPEXEC DISPLAY PANEL(ZCOPY1)"
"ISPEXEC REMPOP"
|
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
The changes do not display on my screen until after the edit macro completes. |
that' s the behavior of ISPF edit macros! nothing You can do about it |
|
Back to top |
|
|
Kurt Deininger
New User
Joined: 13 Jul 2010 Posts: 19 Location: Frankfurt/Germany
|
|
|
|
Hi,
Maybe you can achieve what you want in a roundabout way:
(I have no mainframe at hand at the moment, you may have to
check the syntax, but it should do the trick)
Code: |
"ISREDIT DELETE ALL NX"
"ISREDIT COPY" FROMMEM " AFTER .ZF"
"ISREDIT REPL TEMPMEM .zfirst .zlast"
"ISPEXEC EDIT dataset(tempmem) macro(macro2)"
EXIT
macro2:
"ISPEXEC ADDPOP ROW(+6)"
"ISPEXEC DISPLAY PANEL(ZCOPY1)"
"ISPEXEC REMPOP"
.....
EXIT
|
|
|
Back to top |
|
|
|