Project

General

Profile

buffer_value_context_analysis.p

Added new failure case to the previous example. - Greg Shah, 02/26/2013 10:57 AM

Download (816 Bytes)

 
1 
def var h as handle.
2 
def var num as int.
3 
def var txt as char.
4 

    		
  

  

    
      5
    
    
      
def temp-table tt field counter as int.


    		
  

  

    
      6
    
    
      

    		
  

  

    
      7
    
    
      
create tt.


    		
  

  

    
      8
    
    
      
counter = 14.


    		
  

  

    
      9
    
    
      

    		
  

  

    
      10
    
    
      
message "something" + h:buffer-field("field"):buffer-value.


    		
  

  

    
      11
    
    
      
num = h:buffer-field("field"):buffer-value.


    		
  

  

    
      12
    
    
      
h:buffer-field("field"):buffer-value = num.


    		
  

  

    
      13
    
    
      
message "this " + quoter(h:buffer-field("field"):buffer-value) + " the other".


    		
  

  

    
      14
    
    
      
txt = (if valid-handle(h) then h:buffer-field("field"):buffer-value else "").


    		
  

  

    
      15
    
    
      

    		
  

  

    
      16
    
    
      
ASSIGN txt = " literal 1 " + STRING(tt.counter)                           +


    		
  

  

    
      17
    
    
      
             " literal 2 " + QUOTER(h:BUFFER-FIELD("field"):BUFFER-VALUE) +


    		
  

  

    
      18
    
    
      
             " literal 3 " + h:BUFFER-FIELD("field"):BUFFER-VALUE         +


    		
  

  

    
      19
    
    
      
             " literal 4 " + h:BUFFER-FIELD("field"):BUFFER-VALUE         +


    		
  

  

    
      20
    
    
      
             " literal 5 " + h:BUFFER-FIELD("field"):BUFFER-VALUE NO-ERROR.