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.