> ASTACKINFO(aStackArray) > FOR i = ALEN(m.aStackArray, 1) - 1 To 1 Step - 1 > cStackArray = cStackArray + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) > cStackArray = cStackArray + CHR(13) + "Stack Level: " + ALLTRIM(STR(i)) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Stack Level: " + ALLTRIM(STR(i)) > cStackArray = cStackArray + CHR(13) + "Program: " + m.aStackArray(m.i, 2) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Program: " + m.aStackArray(m.i, 2) > cStackArray = cStackArray + CHR(13) + "Module : " + m.aStackArray(m.i, 3) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Module : " + m.aStackArray(m.i, 3) > cStackArray = cStackArray + CHR(13) + "Source : " + m.aStackArray(m.i, 4) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Source : " + m.aStackArray(m.i, 4) > cStackArray = cStackArray + CHR(13) + "Line : " + TRANSFORM(m.aStackArray(m.i, 5)) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Line : " + TRANSFORM(m.aStackArray(m.i, 5)) > cStackArray = cStackArray + CHR(13) + "Source : " + m.aStackArray(m.i, 6) + "<br>" > cStackArray4Log = cStackArray4Log + CHR(13) + CHR(10) + "Source : " + m.aStackArray(m.i, 6) > NEXT >>
N=ASTACKINFO(aStk) lcStk="" lcStk = lcStk + TEXTMERGE("Call Stack at <<DTOS(DATE())>>.<<SECONDS()>>")+0h0d FOR i=1 TO N-1 lcStk = lcStk + TEXTMERGE("<<aStk[i,1]>> <<aStk[i,3]>> in <<aStk[i,2]>>")+0h0d lcStk = lcStk + TEXTMERGE(" <<TRANSFORM(aStk[i,5], [99999])>> <<aStk[i,6]>>")+0h0d ENDFOR lcStk = lcStk + 0h0d