>Hi Timothy,
>Try PROGRAM(PROGRAM(-1)-1)
>I write the entire stack to my errorlog so I have code like this:
>

>ProgramLevel = PROGRAM(-1) -1
>      Stack = ''
>      FOR x = m.ProgramLevel TO 1 STEP -1
>         Stack = m.Stack + PROGRAM(m.x) + CRLF
>      ENDFOR
>

>>Hi, I am reviewing my error handler program and I noticed that when I capture the error, in particular, capturing the offending program where the error occurs, I am capturing the error handling prg instead. I do capture the proper line# of the offending prg however.

If you need the whole stack, read up on astackinfo()

HTH

thomas