Gang,
I haven't been paying too much attention this but I'm pretty sure this
stuff isn't stored except in the stack markers (or stack frames in NM).
I vaguely recall having to write some code to walk backwards one level
to get the name of the guy who called me so I could log it. I remember
I needed PM to be able to look at my stack marker, and then used
something like FINDPMAPNAME to determine the name of the routine. Of
course, I had to determine if the code segment as in my program or in
another library.
I suspect doing this for a native mode program would be quite
different, but would still require PM.
RAT
Rich Trapp
Technical Solutions Architect
Managed Business Solutions
970.494.4980
http://www.mbshome.com
CONFIDENTIALITY NOTICE: The information in this email and subsequent
attachments is intended solely for the person or entity to which it is
addressed and may contain confidential and/or privileged information.
Any review, dissemination, copying, printing or other use of this e-mail
by persons or entities other than the addressee is prohibited. If you
have received this e-mail in error, please contact the sender
immediately and delete the material from your computer.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Tony Summers
Sent: Monday, January 09, 2006 10:04 AM
To: [log in to unmask]
Subject: Re: PROCINFO (for all Cobol gurus out there...)
Presumably the MPE loader knows this information as you get a stack
history when a program aborts, but it's probably held on system tables
for which you need special capabilities and/or access to the AIF
intrinsics.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Brian Donaldson
Sent: 09 January 2006 14:21
To: [log in to unmask]
Subject: [HP3000-L] PROCINFO (for all Cobol gurus out there...)
This was a problem I discussed on the HP3000-L quite some time ago. I
was asking about exactly the same thing.
No matter what, HPMYPROGRAM will always return the name of the MAINLINE,
not necessarily the name of the program that called the sub.
I eventually ended up having to pass the name value of mainline to sub1,
sub1 name value to sub2, sub2 name value to sub3 and so on.
Never did find a better way of doing it.
Brian Donaldson.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
The contents of this email are confidential to the intended recipient
and may not be disclosed. Although it is believed that this email and
any attachments are virus free, it is the responsibility of the
recipient to confirm this.
Smith & Williamson Corporate Finance Limited - A member of the London
Stock Exchange.
A member of M&A International Inc. http://www.mergers.net Registered in
England No. 4533970. Authorised and regulated by the Financial Services
Authority
Smith & Williamson Investment Management Limited, Registered No. 976145.
Authorised and regulated by the Financial Services Authority.
Smith & Williamson Pension Consultancy Limited - Independent
Intermediary. Registered No. 3133226. Authorised and regulated by the
Financial Services Authority.
Smith & Williamson Fund Administration Limited, Registered No. 1934644.
Authorised and regulated by the Financial Services Authority.
Smith & Williamson Limited - A member of Nexia International.
Registered in England No. 4534022. Regulated by the Institute of
Chartered Accountants in England & Wales for a range of investment
business activities.
NCL Investments Limited, Registered No. 1913794.
Member of the London Stock Exchange authorised and regulated by the
Financial Services Authority.
Registered Office: 25 Moorgate, London EC2R 6AY
Telephone: 020 7131 4000 http://www.smith.williamson.co.uk
Nexia Audit Limited - A member of Nexia International. Registered in
England No. 4469576. Registered to carry on audit work and regulated by
the Institute of Chartered Accountants in England & Wales for a range of
investment business activities.
Registered Office: 25 Moorgate, London EC2R 6AY
Telephone: 020 7131 4000 http://www.nexiaaudit.co.uk
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
