Processing table: prc.generr

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile

2
 
If:
 

 
 
Then:
declare OHandle

3
 
If:
 

 
 
Then:
OHandle=open(OutFile,"wc0t")

4
 
If:
 

 
 
Then:
ln=write(OHandle,"ERROR: ","8")

5
 
If:
 

 
 
Then:
ln=writeline(OHandle,ErrMsg,len(ErrMsg))

6
 
If:
 

 
 
Then:
ln=close(OHandle)

7
 
If:
 

 
 
Then:
ErrReturn="DONE";end


Displayed with Fairlight prc2html v01.02.08