Code:
D VARTAB          S             10A   Dim(3)
D VARXXX          S             10A         
D V               S             10I 0       
 /Free                                      
  VARTAB(1) = 'ABC';                        
  VARTAB(2) = 'DEF';                        
  VARTAB(3) = 'GHI';                        
  
  VARXXX = 'ABC';                           
  V = %Lookup(VARXXX:VARTAB);               
  If V > 0;                                 
     VARTAB(V) = %Trim(VARTAB(V)) + 'Test'; 
  EndIf;                                    
  *InLr = *On;                              
 /End-Free