Changing Attribute Colours on the fly ...

[Steve Coalbran]

Hi Ken,

I think are on the right track.
I am a confirmed lover of shadow variables after Doug gave me a brief simple explanation once and their veil of mystery disappeared.
The manual is also pretty clear on them nowadays.
However, I have been down this route and verification of fields can be (what they term) a challenge.

I had a play and took your exec and modified it to this...

/* REXX */                                                
da = '@Green/Blue'                                        
Address ISPEXEC                                           
"CONTROL ERRORS RETURN"                                   
dc = 0                                                    
DO WHILE(dc=0)                                            
   ps = POS("/",da)                                       
   da = STRIP(da,"T")                                     
   lda = LENGTH(da)                                       
   IF(ps>1)THEN                                           
      tds = " "LEFT(COPIES("G",11),ps-2)"Y"COPIES("B",11) 
   ELSE                                                   
      tds = " "COPIES("R",11)                             
   ds = LEFT(tds,lda)                                     
   "ADDPOP"                                               
   "DISPLAY PANEL(SHADS)"                                 
   dc = RC                                                
                                                          
   /*check data-changed?*/                                
   dc = C2X(LEFT(da,1))                                   
   IF( dc="35" )THEN DO                                   
                                                          
      da = OVERLAY("@",da,1)                              
      END                                                 
   ELSE NOP                                               
                                                          
   "REMPOP"
END 

(in preparation for adding a *REXX verification section within the panel).

I amended the panel to...

)ATTR                                       
 \ AREA(DYNAMIC) SCROLL(OFF) USERMOD(35)    
 G TYPE(CHAR)    COLOR(GREEN)               
 B TYPE(CHAR)    COLOR(BLUE)                
 Y TYPE(CHAR)    COLOR(YELLOW)              
 R TYPE(CHAR)    COLOR(RED) HILITE(REVERSE) 
 @ TYPE(DATAIN)  COLOR(RED)                 
)BODY WINDOW(72,12) EXPAND(//)              
%Command%==>_ZCMD/ /                        
\DA,DS    \+                                
)REINIT                                     
 REFRESH(*)                                 
)END

Steve