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
 

 

Refreshing Screen Before ADDPOP

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 669
Location: Pennsylvania

PostPosted: Fri Sep 17, 2010 8:33 pm    Post subject: Refreshing Screen Before ADDPOP
Reply with quote

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
View user's profile Send private message

Kurt Deininger

New User


Joined: 13 Jul 2010
Posts: 19
Location: Frankfurt/Germany

PostPosted: Sat Sep 18, 2010 1:02 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Sun Sep 19, 2010 2:49 am    Post subject:
Reply with quote

Take a look at the CONTROL DISPLAY service.

O.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 669
Location: Pennsylvania

PostPosted: Mon Sep 20, 2010 7:44 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Sep 20, 2010 7:47 pm    Post subject: Reply to: Refreshing Screen Before ADDPOP
Reply with quote

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 icon_biggrin.gif
Back to top
View user's profile Send private message
Kurt Deininger

New User


Joined: 13 Jul 2010
Posts: 19
Location: Frankfurt/Germany

PostPosted: Tue Sep 21, 2010 12:53 am    Post subject:
Reply with quote

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
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 how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm
No new posts Automation of data entry using Rexx i... zingy.rajeev CLIST & REXX 4 Mon Aug 22, 2016 4:13 pm
This topic is locked: you cannot edit posts or make replies. Automation of data entry using Rexx i... zingy.rajeev CICS 0 Mon Aug 22, 2016 4:11 pm


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