如何覆盖窗口子文件as400

时间:2013-09-23 16:38:08

标签: window ibm-midrange

这是我的屏幕的dds:

<pre>
<code>
A                                      DSPSIZ(27 132 *DS4)  
A          R ASSUME                                         
A                                      ASSUME               
A                                      OVERLAY              
A                                  1  3' '                  
A          R SFLSEL                    SFL                  
A                                      SFLNXTCHG            
A            SEL            1A  B  4  2VALUES(' ' '1')      
A  43                                  DSPATR(ND)           
A  43                                  DSPATR(PR)           
A            FLDFET         8Y 0O  4  5EDTWRD('  /  /    ') 
A            FLDUSE        10A  O  4 37                     
A            FLDHOR         6Y 0O  4 28EDTWRD('  :  :  ')   
A            FLDFEC         8Y 0O  4 17EDTWRD('  /  /    ') 
A            FLDPER        20A  H                           
A          R CTRSEL                    SFLCTL(SFLSEL)       
A                                      CF03(03 'Salir')     
A                                      KEEP                 
A                                      OVERLAY              
A                                      SFLCSRRRN(&RRN)                      
A  80                                  SFLDSP                               
A  81                                  SFLDSPCTL                            
A  82                                  SFLINZ                               
A  83                                  SFLCLR                               
A  40                                  SFLEND(*MORE)                        
A                                      SFLSIZ(9999)                         
A                                      SFLPAG(0008)                         
A                                      WINDOW(*DFT 13 50)                   
A                                      WDWBORDER((*COLOR BLU))              
A                                      WDWTITLE((*TEXT 'Intro = Continuar - 
A                                        F3 = Salir') *CENTER *BOTTOM)      
A                                      WDWTITLE((*TEXT 'CONSULTAR REVISION- 
A                                      ES PASADAS') *CENTER)                
A            NBR            4S 0H      SFLRCDNBR(CURSOR)                    
A            RRN            5S 0H                                           
A                                  1  2'Op. 1=Seleccionar'                  
A                                      COLOR(BLU)                           
A                                  2  2'Op Fecha Trab  Fecha Gen  Hora    - 
A                                       Usuario      '                     
A                                  3  2'==================================-
A                                      =============='                     
A                                      COLOR(WHT)                          
A            MSGERR        30A  O  1 20COLOR(RED) 
</code>
</pre> 

但是对于任何razon总是删除te背景屏幕,我需要显示选择但不删除前屏幕。 我尝试了几种方法来保持控制,ASSUME,OVERLAY,PUTOVR,RSTDSP * YES,没有任何效果,请帮助我。

2 个答案:

答案 0 :(得分:1)

您可以验证是否使用RSTDSP(* YES)编译了后台屏幕。如果没有,请尝试使用CHGDSPF命令设置属性。

答案 1 :(得分:1)

问题是您需要单独记录使用OVERLAYASSUME。您不必显示此记录或完全引用它,它只需要在显示文件中。

例如:

0017.70      A*--------------------------------------------------------------*

0017.80      A . . . . . . R BLKLN24                                             

0018.00      A . . . . . . . . . . . . . . . . . .  ASSUME                    

0018.10      A . . . . . . . . . . . . . . . . . .  OVERLAY  

应该有用。