|
View previous topic :: View next topic
|
| Author |
Message |
evanswillo
New User
Joined: 28 Jun 2007
Posts: 23
Location: Bmth England
|
|
|
|
I have a rexx program that is basically a loop, I need a Popup window to be displayed containing a variable each time the loop starts.
Can I use ISPF panels to to this, the problem I have encountered is that the panel once open needs a carriage return to close the popup and continue the loop.
/* REXX INTERROGATE DATASET */
"ALLOC F(INCAL) DA('HIS0254.CAL.INDEX') SHR REUSE"
"EXECIO * DISKR INCAL (STEM INDEX. FINIS"
DO COUNT = 1 TO 3
PARSE VAR INDEX.COUNT COUNTRY CCYPZ MARKET LOBCIF5
"ISPEXEC LIBDEF ISPPLIB DATASET ID(HIS0004.ISPPLIB)"
"ISPEXEC ADDPOP"
"ISPEXEC DISPLAY PANEL(MYNEWPAN)"
"ISPEXEC REMPOP"
END
)ATTR
$ TYPE(OUTPUT) INTENS(HIGH) COLOR(BLUE)
)BODY WINDOW(35,2)
$COUNTRY
)END |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
| Back to top |
|
|
evanswillo
New User
Joined: 28 Jun 2007
Posts: 23
Location: Bmth England
|
|
|
|
| Thanks for the link I'll work my way through. |
|
| Back to top |
|
|
evanswillo
New User
Joined: 28 Jun 2007
Posts: 23
Location: Bmth England
|
|
|
|
| Sorted thanks ,just added ISPEXEC CONTROL DISPLAY LOCK before display command |
|
| Back to top |
|
|
|
|
