0

これは私の画面のddです：

<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は常に背景画面を削除するため、選択を表示する必要がありますが、前の画面を削除する必要はありません。KEEP on control、ASSUME、OVERLAY、PUTOVR、RSTDSP *YES を実行するいくつかの方法を試してみましたが、何も機能しません。助けてください。

4

2 に答える 2

1

バックグラウンド画面が RSTDSP(*YES) でコンパイルされたかどうかを確認できます。そうでない場合は、CHGDSPF コマンドを使用して属性を設定してみてください。

于 2014-03-17T11:55:31.807 に答える
1

OVERLAY問題は、とが使用する別のレコードが必要なことですASSUME。このレコードを表示したり参照したりする必要はまったくありません。表示ファイルにある必要があるだけです。

例えば：

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

0017.80      A . . . . . . R BLKLN24                                             

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

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

動作するはずです。

于 2014-11-10T23:52:35.323 に答える