Sytze de Boer <[email protected]> wrote:
>I have a small TEMP.PRG and I'm convinced I'm not dreaming
>
>on error do trerror with sys(16),lineno(),message(1)
>am1=9
>am2=0
>am3=am1/am2
>replace qty_onhand WITH am3
>
>My error routine tells me xerror(6) = replace qty_onhand WITH am
>
>I've replaced this line with
>replace qty_onhand WITH am3, desc with "12345"
>My error routine tells me xerror(6) = replace qty_onhand WITH am3, dec
>with "12345
>(No "" at the end of the line)
>
Here is my test program
CREATE CURSOR testing (amt n(12,2), textval c(100))
APPEND BLANK
ON ERROR do myError with SYS(16),LINENO(),MESSAGE(1)
am1=9
am2=0
am3=am1/am2
REPLACE amt WITH am3
ON ERROR
PROCEDURE myError
LPARAMETERS methd, linenum, codeline
?"Method:",methd
?"Line number:",linenum
?"Code:",codeline
LOCAL stacklength, stackarray[1]
stacklength = ASTACKINFO(stackarray)
?"Stack codeline:",stackarray(stacklength-1,6)
ENDPROC
--
Tracy Pearson
PowerChurch Software
Sent from my Android phone with K-9 Mail.
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
