Hola

Tengo el siguiente archivo de pantalla

Deseo que en determinadas circustancias el campo SNOMEQU del subficheo FSM01 se 
ponga en Rojo
Para eso activo el indicador 89
Pues no hay forma siempre sale en alta intensidad

Alguna sugerencia

Gracias


A                                      DSPSIZ(24 80 *DS3)         
A                                      INDARA                                   
       
A          R FMT01                                                   
A                                      OVERLAY                    
A                                      WINDOW(2 12 20 27 *NOMSGLIN *NORSTC-
A                                      SR)                        
A                                      WDWTITLE((*TEXT &MTITULO) (*COLOR R- 
A                                      ED) (*DSPATR UL) *CENTER)  
A            MTITULO       10A  P                                 
A            MBOTON         2Y 0B 20  1PSHBTNFLD                  
A                                      CHCAVAIL((*COLOR BLU))     
A                                      PSHBTNCHC(1 'Pantalla anterior')
A                                      WINDOW(2 12 20 27 *NOMSGLIN
A                                      SR)                        
A                                      WDWTITLE((*TEXT &MTITULO) (*COLOR R- 
A                                      ED) (*DSPATR UL) *CENTER)  
A          R FMS01                     SFL                        
A            SCONTROL       1Y 0H      SFLCHCCTL                  
A            SCODEQU        6S 0H                                 
A            SNOMEQU       22   O  1  1                           
A  89                                  COLOR(RED)                 
A          R FMC01                     SFLCTL(FMS01)              
A                                      CF12(12 'Pantalla Anterior')
A                                      OVERLAY                    
A  40                                  SFLDSP                     
A N70                                  SFLDSPCTL                  
A  70                                  SFLCLR                     
A  60                                  SFLEND(*SCRBAR *SCRBAR)    
A                                      SFLSIZ(9999)               
A                                      SFLPAG(0018)               
A                                      WINDOW(FMT01)              
A                                      SFLSNGCHC(*SLTIND *AUTOSLT)
A                                      CHCAVAIL((*COLOR WHT))     
A          R FMT02                                                   
A                                      WINDOW(FMT01)              
A                                      OVERLAY                    
A                                 10  1'No hay Equipos'
A                                      DSPATR(HI)                 
A                                 11  1'para Mostrar'             
A                                      DSPATR(HI)                 
A          R FMT03                                                
A                                      ASSUME                     
A                                      OVERLAY                    
A                                  2  4' '        



Rafael Garcia                           
                                                                                
                                                                         

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

Responder a