| View previous topic :: View next topic |
| Author |
Message |
Prasam
Beginner
Joined: 20 May 2004
Posts: 26
Topics: 7
Location: Illinois,USA
|
 Posted: Tue Jun 29, 2004 12:28 am Post subject: Msg Display in REXX |
 |
|
Hi,
Just a small requirement after seeing Mervyn's reply..in
post http://www.mvsforums.com/helpboards/viewtopic.php?t=2448
Here is the macro which i need to execute
| Code: |
/* REXX edit macro */
i = 0
Address isredit "MACRO"
address isredit "(N) = LINENUM .ZLAST"
ZEDLMSG = 'Welcome Everybody.'
address ispexec "SETMSG MSG(ISRZ001)"
Do i = 1 to 10000000
i = i + 1
End
ZEDLMSG = i
address ispexec "SETMSG MSG(ISRZ001)"
|
Here the macro displays only the final i value.Only 1 message with i value gets displayed..(No "Welcome Everybody" message as this is not the final message.)
My requirement here is that i need to display the message "Welcome Everybody" on the screen until the do loop in the next line gets over and then i need to display the message with value of i.
What is happening now is the screen is empty with out any message until the loop execution is over where this should display "Welcome Everybody"
during that particular time.
Could any one suggest a solution for this please  .
Thanks,
Prasanth.
_________________
The struggle alone pleases us, not the victory. -Pascal,Blaise- 1623-1662, French Scientist |
|
| Back to top |
|
 |
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Tue Jun 29, 2004 11:19 am Post subject: |
|
|
| see the ISPF "CONTROL DISPLAY LOCK" service |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Tue Jun 29, 2004 3:02 pm Post subject: |
|
|
Also interesting, because I've never used it, is "CONTROL NONDISPL ENTER"
Please let us know how you get on.
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
Prasam
Beginner
Joined: 20 May 2004
Posts: 26
Topics: 7
Location: Illinois,USA
|
| Posted: Wed Jun 30, 2004 1:49 am Post subject: |
|
|
Semigeezer,
I have used "CONTROL DISPLAY LOCK" in my rexx routine.Now my code looks like this.
| Code: |
/* REXX edit macro */
i = 0
Address isredit "MACRO"
ZEDLMSG = 'Welcome Everybody.'
address ispexec "CONTROL DISPLAY LOCK"
address ispexec "DISPLAY MSG(ISRZ001)"
Do i = 1 to 10000
i = i + 1
End
ZEDLMSG = i
address ispexec "DISPLAY MSG(ISRZ001)"
|
My objective is partially achieved here once again.What this CONTROL DISPLAY LOCK is doing here is its displaying both messages in a new blank panel which is displayed over the current panel.
I dont want this new blank panel to get displayed.Instead i should get both messages on the same panel on which i executed the macro.
Any help plz..
Thanks,
Prasanth.
_________________
The struggle alone pleases us, not the victory. -Pascal,Blaise- 1623-1662, French Scientist |
|
| Back to top |
|
|
Prasam
Beginner
Joined: 20 May 2004
Posts: 26
Topics: 7
Location: Illinois,USA
|
| Posted: Wed Jun 30, 2004 9:48 am Post subject: |
|
|
Semigeezer,
Plz ignore my previous post.I got what i require thru the above code.Sorry for incovenience.Thanks very much Merv and Semigeezer for your replies.
Thanks,
Prasanth.
_________________
The struggle alone pleases us, not the victory. -Pascal,Blaise- 1623-1662, French Scientist |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
