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
 

 

Could not display a Pop up window

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

Active User


Joined: 06 Jul 2009
Posts: 159
Location: Chennai

PostPosted: Thu Sep 08, 2011 4:10 pm    Post subject: Could not display a Pop up window
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    Post subject:
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: 159
Location: Chennai

PostPosted: Thu Sep 08, 2011 5:37 pm    Post subject:
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    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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm


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