RE: window issue

[<johnking@xxxxxxx>]

   Doug,

    Once upon a time I knew all the details but have long since forgotten
   thewhys and wherefores. I just make all DSPF members the same and it works
   for us. Here, all clients use IBM's CA, hopefully other emulators behave
   the same way.

   JK

   PgmA Ctl format (compile RSTDSP=*YES)

         A          R CTL1                      SFLCTL(SFL1)             
         A                                      SFLPAG(0014)             
         A                                      SFLSIZ(&SFL1SIZ)         
         A                                      TEXT('Control')          
         A                                      OVERLAY                  
         A  91                                  SFLDSP                   
         A N91                                  ERASE(SFL1)              
         A                                      SFLDSPCTL                
         A  90                                  SFLCLR                   
         A  92                                  SFLEND(*MORE)            
         A                                      RTNCSRLOC(&RCDNAM &FLDNAM)
         A                                      SFLMODE(&SFL1MOD)        
         A                                      SFLCSRRRN(&SFL1CSRRRN)   
         A            RCDNBR         4S 0H      SFLRCDNBR(CURSOR)        
         A            SFL1SIZ        5S 0P                               
         A            SFL1MOD        1A  H                               
         A            RCDNAM        10A  H                               
         A            FLDNAM        10A  H                               
         A            SFL1CSRRRN     5S 0H

   PgmA pop-up
         A          R
   POPUP                                                           
         A                                      WINDOW(9 24 11 50
   *NOMSGLIN)            
         A                                      RTNCSRLOC(&RCDNAM
   &FLDNAM)              
         A            RCDNAM        10A  H
         A            FLDNAM        10A  H

   PgmA dummy format
         A          R DUMMY
         A                                      ASSUME
         A                                 10 27'This format seems to be
   needed'

    

   PgmB Ctl format (F4 inquiry)
         A          R CTL1                      SFLCTL(SFL1)             
         A  *DS3                                SFLPAG(0014)             
         A                                      SFLSIZ(&SFL1SIZ)         
         A                                      TEXT('Subfile control')  
         A                                      OVERLAY                  
         A  91                                  SFLDSP                   
         A                                      SFLDSPCTL                
         A  90                                  SFLCLR                   
         A  92                                  SFLEND                   
         A                                      RTNCSRLOC(&RCDNAM &FLDNAM)
         A                                      SFLMODE(&SFL1MOD)        
         A                                      SFLCSRRRN(&SFL1CSRRRN)   
         A            RCDNBR         4S 0H      SFLRCDNBR                
         A            SFL1SIZ        5S 0P                               
         A            SFL1MOD        1A  H                               
         A            RCDNAM        10A  H                               
         A            FLDNAM        10A  H                               
         A            SFL1CSRRRN     5S 0H                               

   On Wed Apr 25 11:33 , 'Doug Palme' sent:

     I do not have a dummy format on the first SFL display....and I'll have
     to
     check on the keyword assume, I do not believe that it is set on.

     -----Original Message-----
     From: midrange-l-bounces@xxxxxxxxxxxx
     
[midrange-l-bounces@xxxxxxxxxxxx','','','')">midrange-l-bounces@xxxxxxxxxxxx]
     On Behalf Of johnking@xxxxxxx
     Sent: Wednesday, April 25, 2007 12:10 PM
     To: Midrange Systems Technical Discussion
     Subject: Re: window issue

     Doug,

     We have an entry pgm using the exact same screen sequence: PgmA is a
     full-screen sfl that displays a popup window that can call PgmB, a
     full-screen lookup. Returning from the restores PgmA's pop-up
     borders correctly.

     Does DSPF for PgmA have a 'dummy' format with 'ASSUME' keyword and
     compiled with RSTDSP? DSPF for PgmB does not need RSTDSP.

     JK

     On Wed Apr 25 10:04 , 'Doug Palme' sent:

     I have never been a big fan of window popups but unfortunately I have a
     situation where I have to use one, and I am having a problem with the
     redisplay.

     Here is the flow:

     The user presses the a function key and a window popup is displayed for
     the
     user to enter some data, one of those fields has an F4 lookup, so if
     the
     user presses the F4 function key while the cursor is on that field it
     displays a full page subfile however upon returning from the subfile
     the
     window border is gone..how do I keep the border from disappearing? I
     thought
     the keep keyword would do so but I am either using it incorrectly or it
     does
     not apply to windows.

   ---- Msg sent via Internet America Webmail -
   http://www.internetamerica.com/