To vary error.log name
Posted: Wed Nov 15, 2006 9:11 am
Is it possible to vary error.log name?
without #include "fivewin.ch" Yes
Is very useful for me to trace to check several user errors....
#include "fivewin.ch"
FUNCTION MAIN(par_ute)
LOCAL cProg
LOCAL cNumber
LOCAL nNumber
LOCAL cError
// settaggio error.log
cProg := hb_argv(0)
? cProg
cProg := STRTRAN(UPPER(SUBSTR(cProg, RAT("\",cProg)+1)),".EXE","")
? cProg
cError := par_ute + "_" + ALLTRIM(cProg) + ".ERR"
? cError
SET ERRORLOG TO &cError
? nNumber + cNumber
RETURN NIL
without #include "fivewin.ch" Yes
Is very useful for me to trace to check several user errors....
#include "fivewin.ch"
FUNCTION MAIN(par_ute)
LOCAL cProg
LOCAL cNumber
LOCAL nNumber
LOCAL cError
// settaggio error.log
cProg := hb_argv(0)
? cProg
cProg := STRTRAN(UPPER(SUBSTR(cProg, RAT("\",cProg)+1)),".EXE","")
? cProg
cError := par_ute + "_" + ALLTRIM(cProg) + ".ERR"
? cError
SET ERRORLOG TO &cError
? nNumber + cNumber
RETURN NIL