RE: Preserving Main Window Display

["Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>]

Thanks for the quick response, all.

Brian.

-----Original Message-----
From: Simonse, Arco (CMK) [mailto:ArcoSimonse@xxxxxxxxxxxxxxxxx] 
Sent: Friday, January 06, 2006 10:56 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Preserving Main Window Display

Brian wrote: 

> We are in the middle of converting a subroutine to modules 
> for ease of maintenance.  Right now, we have one of our 
> programs call a module that displays it's data in a window 
> (using an EXFMT command).  However, it blanks out the main 
> window.  Even when the user window disappears the program 
> will not display the data in the main window anymore.
> 
 
Hi Brian,

A codesnippet of the DDS what I usually use is:

 * Subfile control
A          R ALG012AC                  SFLCTL(ALG012AS)        
A                                      WINDOW(ALG012W)         
A                                      OVERLAY                 
 
 * Window definition
A          R ALG012W                                              
A                                      KEEP                       
A                                      WINDOW(4 20 15 55)         
A                                      WDWBORDER((*COLOR BLU) (*DSPATR
RI)-
A                                       (*CHAR '        '))       

 * Remove window from screen
A          R ALG012RMV                 CLRL(*NO) OVERLAY FRCDTA   

 * No i/o to this record, it's only here to prevent 
 * screen clearing at init time
A          R ALG012ASS                 ASSUME                     
A                                  2  2' '                        

Compile your display file with RSTDSP(*NO) DFRWRT(*YES).
I do a write to the remove record when returning to the caller.  

HTH, Arco Simonse