Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STAGE.ZIP
Filename : AMERROR.COD
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