IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Could not display a Pop up window


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Thu Sep 08, 2011 4:10 pm
Reply with quote

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

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Thu Sep 08, 2011 5:18 pm
Reply with quote

You forgot to specify the WINDOW parameter on the )BODY statement, for example

Code:
)BODY DEFAULT(<(+) WINDOW(76,5)
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Thu Sep 08, 2011 5:37 pm
Reply with quote

Thanks, its working great

Regards
Magesh
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts How to display the leading zeros of a... DB2 7
No new posts SDSF display Max-RC in different colors TSO/ISPF 4
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Unable to display comp variable COBOL Programming 4
No new posts Adding FIND to ISPF Panel display of ... TSO/ISPF 3
Search our Forums:

Back to Top