Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 210
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: 210
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 display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm
No new posts Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us