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