Add function to get routine/tag/offset from current routine buffer
This is necessary in order to support standard error handling due to the PLACE
value returned by the $STACK
pseudo-function.
This is necessary in order to support standard error handling due to the PLACE
value returned by the $STACK
pseudo-function.