Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STAGE.ZIP
Filename : AMERROR.COD

 
Output of file : AMERROR.COD contained in archive : STAGE.ZIP

m£ cÉ STLIB.LIB AMLIB.LIB ERROR module generation"4!®-€.€ï´* Global variables expected:
*iserrorbrk L enable BREAK (BEGIN SEQUENCE END)
*iserror L found an error for BREAK

 errorsys
* ALTD()



 expr_error
 name,line,info,model,var1,var2,var3
* ---Errors during evaluation of an expression.
 error_fini
 .F.


 db_error
 name,line,info
 model,var1
 ""  model,var1
* ---Errors affecting database between the time it is USEd and CLOSEd.
 error_fini
 .F.


 misc_error
 name,line,info,model
 var1
var1 = ""
* ---Unclassified errors, such as "Type mismatch."
 error_fini
 .F.


 undef_error
 name,line,info,model,var1
* ---Undeclared variable error.
 error_fini
 .T.


 open_error
 name,line,info,model,var1
* ---File open operation failure.
 error_fini
 .T.


 print_error
 name,line
 info,model,var1
info = "Printer not ready"
 ""  model,var1
* ---PARALLEL printer not ready.
* ---For SERIAL port not ready, Clipper uses "open_error".
* ---"print_error" is also called when there is a disk error
* ---in redirection of @/SAYs to file.
 error_fini
 .T.


 error_fini
 
 
   &atrwindow
@8,38 
 21,79
@8,38  21,79
   &atrhilite
@8,56  " ERROR "
   &atrwindow
@9,40  "PROCEDURE..: " + M->name
@ 10,40  "LINE NUMBER: " + ((M->line))
@ 11,40  "DESCRIPTION: " + (M->info,25)
@ 12,40  "MODEL......: " + M->model
@ 13,40  "VARIABLE...: " + M->var1
@ 14,40  "ACTIVE DBF.: " + ()
@ 15,40  "ACTIVE KEY.: " + ((0),25)
@ 16,40  "DOSERROR().: " + (((())),25)
@ 17,39  ((196),40)
* --------0123456789 123456789 123456789 123456789 1
@ 18,40  "If error persists, call the following:"
@ 19,40  ['
]
@ 20,40  [']
 iserrorbrk
iserror = .T.





0 

#' ' i'' ERROR.PRG)'‘i' Clipper ERROR system. -ž
"i,±' -Y
/ PROCEDURERETURNFUNCTION PARAMETERDOPRIVATESTORETOSETDEVICESCREENCOLORCLEARSAYLTRIMSTRLEFTALIASINDEXKEYDOSERROR REPLICATECHRIFBREAKENDIFQUIT