2

我在我的 rpg 程序中显示一个 sfl 屏幕,在一个字段中WPROV,我正在使用F4=Help,如果用户键入 F4,程序会显示一个 sfl 窗口帮助,但程序会擦除旧屏幕和主屏幕,我只能看到帮助 sfl 屏幕。如何在屏幕中放入主屏幕和 sfl 窗口帮助屏幕?另一件事我正在我的 rpg 程序中检查屏幕中的字段,如果有错误我打开*IN71, *IN72,但我在屏幕上看不到消息错误,为什么?

这是主屏幕:

A*%%EC                                                                        
A                                      DSPSIZ(24 80 *DS3)                     
A          R W1                                                               
A*%%TS  SD  20130821  124511  ALCRUZ      REL-V7R1M0  5770-WDS                
A                                      TEXT('ventana para ver detalles')      
A                                      CF03(03 'salir')                       
A                                      CF05(05 'ACTUALIZAR')                  
A                                      CF04(04 'AYUDA')                       
A                                      CF06(06 'PROCEDER')                    
A                                      CF12(12 'CANCELAR')                    
A                                      KEEP                                   
A                                      BLINK                                  
A                                      ALARM                                  
A                                      OVERLAY                                
A                                      WINDOW(2 2 18 75 *NORSTCSR)            
A                                      WDWBORDER((*DSPATR HI RI) (*CHAR '.-   
A                                      ..:::.:'))                             
A                                      RMVWDW                                 
A                                      USRRSTDSP                              
A                                  1 22'ACME, S.A. de C.V.'   
A                                      DSPATR(HI)                           
A                                      DSPATR(RI)                           
A                                 16  2'F3=Salir'                           
A                                      DSPATR(HI)                           
A                                  1 63DATE                                 
A                                      EDTCDE(Y)                            
A                                  2 63TIME                                 
A                                  1  2USER                                 
A            PGMA          10A  O  2  2                                     
A                                 16 39'F5=Actualizar'                      
A                                      COLOR(WHT)                           
A                                 16 57'F12=Cancelar'                       
A                                      COLOR(WHT)                           
A                                  2 19'Generación de Ventas Proveedores F- 
A                                      .F.S.'                               
A                                  7 26'No. de proveedor (F4).:'            
A                                 10 26'Fecha Inicial(AAAAMMDD)'            
A                                 13 26'Fecha Final..(AAAAMMDD)'            
A            WFI            8Y 0B 10 51EDTWRD('    /  /  ')                 
A                                      COLOR(YLW)                           
A  72                                  ERRMSG('** Error en Fecha Inicial *- 
A                                      *' 72)                               
A            WFF            8Y 0B 13 51EDTWRD('    /  /  ')                 
A                                      COLOR(YLW)                           
A  73                                  ERRMSG('** Error en Fecha Final **'- 
A                                       73)                                 
A            WNOMBP        30A  O  8 26                                     
A                                 16 13'F4=Ayuda'                           
A                                      COLOR(WHT)                           
A            WPROV          4A  B  7 51COLOR(YLW)                           
A  71                                  ERRMSG('ERROR ESTE PROVEEDOR NO EXI- 
A                                      STE' 71)                             
A                                 16 24'F6=Proceder'                        
A                                      COLOR(WHT)                           

sfl 窗口屏幕是:

A*%%EC                                                                 
A                                      DSPSIZ(24 80 *DS3)              
A          R SWCCHK03                  SFL                             
A*%%TS  SD  20130819  102201  ALCRUZ      REL-V7R1M0  5770-WDS         
A            S0AVAL         1Y 0H      SFLCHCCTL                       
A            S0OPTN        20A  O  6  1                                
A          R SWCCHK04                  SFLCTL(SWCCHK03)                
A*%%TS  SD  20130819  104010  ALCRUZ      REL-V7R1M0  5770-WDS         
A                                      SFLSIZ(0006)                    
A                                      SFLPAG(0005)                    
A                                      WINDOW(*DFT 13 32)              
A                                      OVERLAY                         
A  27                                  SFLDSP                          
A N28                                  SFLDSPCTL                       
A  28                                  SFLCLR                          
A  29                                  SFLEND                          
A                                      CF12(12)                        
A                                      SFLSNGCHC(*RSTCSR *AUTOSLT)     
A*                                                                       
A            SFLRRN         4S 0H      SFLRCDNBR(CURSOR)                 
A                                  1 10'PANTALLA DE AYUDA'               
A                                      COLOR(YLW)                        
A                                  4  1'Selecciona rengón,oprimiendo la' 
A                                      COLOR(WHT)                        
A            CHOICE        20A  O  3  1COLOR(BLU)                        
A                                  5  1'Barra espaciadora, F12= Salir'   
A                                      COLOR(WHT)                        
4

1 回答 1

3

在第二个显示文件中,使用 ASSUME 关键字添加记录格式。你不需要在你的 RPG 程序中对它做任何事情,只需定义它。

 A          R DUMMY
 A                                      ASSUME
 A                                  1  2' '

至于 ERRMSG 不工作,那是因为 RMVWDW。请参阅ERRMSG的 DDS 参考- 限制和注意事项。

  • 当 RMVWDW 关键字处于活动状态时,不会显示错误消息。
于 2013-08-22T16:36:29.840 回答