topic Re: Unwrapping a call stack in Fortran in Operating System - OpenVMS

Unwrapping a call stack in Fortran

HDS — Wed, 13 Dec 2006 10:06:08 GMT

Hello.

When an image abend occurs, the call stack is unraveled, displaying a trace of the module names that brought us to the point of the abend. I am looking for a Fortran[-77] routine that would do the same without the abend.

For example,
%SYSTEM-F-ABORT, abort
%TRACE-F-TRACEBACK, symbolic stack dump follows
image module routine line
JOBTOPMEN FALEXIT FALEXIT 1999 JOBTOPMEN MFSERR MFSERRM 5336 JOBTOPMEN DABUSDAY DABUSDAY 140 JOBTOPMEN ISBUSDAY ISBUSDAY 55 JOBTOPMEN JBFNDJPR JBFNDJPR 3270 JOBTOPMEN JBBLDJPR JBBLDJPR 3437 JOBTOPMEN JBSETJPR JBSETJPR 3749 JOBTOPMEN JOBTOPMEN JOBTOPMEN 3603

I believe that I could use a subroutine that executes an internal WRITE with inconsistant variables...as doing so will generate a traceback dump and continue, but that seems a bit 'sloppy'.

I also understand that there are services that may do what I am looking for...
LIB$GET_INVO_CONTEXT and
LIB$GET_PREV_INVO_CONTEXT
but I have not been able to locate any examples on their use, and I believe that they only return the addresses of the routines...not their names.

Any suggestions? Ideas?

Many thanks,
Howard

Re: Unwrapping a call stack in Fortran

Karl Rohwedder — Wed, 13 Dec 2006 10:16:08 GMT

Perhaps this thread in comp.os.vms is of some help:
http://groups.google.de/group/comp.os.vms/browse_thread/thread/43a39b78e8a42f1d/562562c7dfbbca2f?hl=de#562562c7dfbbca2f

regards Kalle

Re: Unwrapping a call stack in Fortran

Hein van den Heuvel — Wed, 13 Dec 2006 10:17:15 GMT

There was a recent discussion in comp.os.vms about this very topic under the subject "Who called me?"

http://groups.google.com/group/comp.os.vms/search?group=comp.os.vms&q=LIB%24GET_CURR_INVO_CONTEXT+&qt_g=1

Basically you can use the undocumented trace-back routine tbk$show_traceback and give it an action routine where your code will be called for every line in the current traceback.

Sample (C) code attached.
Enjoy!

Hein van den Heuvel
HvdH Performance Consulting

Re: Unwrapping a call stack in Fortran

HDS — Wed, 13 Dec 2006 10:30:09 GMT

Yes...Thank you to Karl and Hein.
I believe that the directed discussion thread contains the desired information.

Much obliged.

Re: Unwrapping a call stack in Fortran

Jan van den Ende — Wed, 13 Dec 2006 12:15:03 GMT

Howard,

Welcome to the VMS Forum!

>>>
Yes...Thank you to Karl and Hein.
I believe that the directed discussion thread contains the desired information.

Much obliged.
<<<

For the way to express your thanks, see
http://forums1.itrc.hp.com/service/forums/helptips.do?#33

Proost.

Have one on em.

jpe