Project

General

Profile

buffer-release-statement-1.p

Vadim Nebogatov, 05/07/2013 03:53 PM

Download (238 Bytes)

 
1 
ON WRITE OF btest NEW new-btest OLD old-btest DO:
2 
IF new-btest.bnn1 <> false THEN DO:
3 
MESSAGE "Incorrect value".
4 
RETURN ERROR.
5 
END.
6 
END.
7 

    		
  

  

    
      8
    
    
      
create btest.


    		
  

  

    
      9
    
    
      
btest.bnn1 = true.


    		
  

  

    
      10
    
    
      
message "before release".


    		
  

  

    
      11
    
    
      
release btest.


    		
  

  

    
      12
    
    
      
message "after release".


    		
  

  

    
      13