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.