Project

General

Profile

persitentprocwitherror.p

persistent procedure with an internal procedure - Vladimir Tsichevski, 05/08/2023 05:54 PM

Download (117 Bytes)

 
1 
BLOCK-LEVEL ON ERROR UNDO, THROW.
2 

    		
  

  

    
      3
    
    
      
DEFINE VARIABLE h AS HANDLE NO-UNDO.


    		
  

  

    
      4
    
    
      
PROCEDURE procWithError:


    		
  

  

    
      5
    
    
      
 INTEGER("h").


    		
  

  

    
      6
    
    
      
END.