Good morning Jafar,
I wasn't clear in my request. I want something like.
procedure whatchamacallit(d,f)
local nmstr
nmstr := whatismycurrentname()
write("the name of the current procedure is ", nmstr)
end
would print
the name of the current procedure is whatchamacallit
I can get a list of the static or paramater variables using
staticnames() or paramnames(¤t). I can get the current procedure
level with &level. I can get the current line number by &line, etc. If
there is not a way to do this, I'll add it to my list of things to look
at later.
regards
Bruce Rennie
On 06/11/2013 12:07 AM, Jafar Al-Gharaibeh wrote:
Here is one way to do it:
procedure pname(p)
image(p) ? { ="procedure "; return tab(0)}
end
and here is a program that uses it:
procedure main()
write(pname(foo))
x:=foo
write(pname(x))
end
procedure foo()
end
Cheers,
Jafar
On Mon, Jun 10, 2013 at 4:39 AM, Bruce & Breeanna Rennie
<bren...@dcsi.net.au <mailto:bren...@dcsi.net.au>> wrote:
To all,
I hope this is simple. Is there a function that will return the
name of
the currently executing procedure as a string?
regards
Bruce Rennie
------------------------------------------------------------------------------
How ServiceNow helps IT people transform IT departments:
1. A cloud service to automate IT design, transition and operations
2. Dashboards that offer high-level views of enterprise services
3. A single system of record for all IT processes
http://p.sf.net/sfu/servicenow-d2d-j
_______________________________________________
Unicon-group mailing list
Unicon-group@lists.sourceforge.net
<mailto:Unicon-group@lists.sourceforge.net>
https://lists.sourceforge.net/lists/listinfo/unicon-group
------------------------------------------------------------------------------
How ServiceNow helps IT people transform IT departments:
1. A cloud service to automate IT design, transition and operations
2. Dashboards that offer high-level views of enterprise services
3. A single system of record for all IT processes
http://p.sf.net/sfu/servicenow-d2d-j
_______________________________________________
Unicon-group mailing list
Unicon-group@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/unicon-group
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
Unicon-group mailing list
Unicon-group@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/unicon-group
