View previous topic :: View next topic
|
Author |
Message |
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Hi,
I am trying to display a pop up window. When I try executing it, it is displaying as new windows rather than a pop up window.
Code: |
/* REXX */
"ISPEXEC DISPLAY PANEL(TEST1)"
IF FIELD1 = 'HI' THEN
DO
FIELD2 = 'HELLO'
"ISPEXEC ADDPOP"
"ISPEXEC DISPLAY PANEL(TEST)"
"ISPEXEC REMPOP"
END
ELSE
DO
FIELD2 = 'BYE'
"ISPEXEC ADDPOP"
"ISPEXEC DISPLAY PANEL(TEST)"
"ISPEXEC REMPOP"
END
EXIT
xxxx.xxxx.DGIBMS(TEST)
)ATTR
_ TYPE(INPUT) INTENS(LOW) CAPS(OFF)
¢ TYPE(TEXT) INTENS(LOW)
)BODY DEFAULT(<(+)
¢ **********************************************
**** _Z ¢ ****
**********************************************
This is a popup window
)INIT
.ZVARS = '(FIELD2 )'
IF (&FIELD2 = ' ')
&FIELD2 = '________'
)END
xxxx.xxxx.DGIBMS(TEST1)
)ATTR
_ TYPE(INPUT) INTENS(LOW) CAPS(OFF)
¢ TYPE(TEXT) INTENS(LOW)
)BODY DEFAULT(<(+)
¢ field1 _Z ¢
field2 _Z ¢
test program to create pop up window
)INIT
.ZVARS = '(FIELD1 FIELD2 )'
)END
|
Kindly help me on this
Regards,
Magesh |
|
Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
You forgot to specify the WINDOW parameter on the )BODY statement, for example
Code: |
)BODY DEFAULT(<(+) WINDOW(76,5) |
|
|
Back to top |
|
|
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Thanks, its working great
Regards
Magesh |
|
Back to top |
|
|
|