If you are after the process ID of the Progress session running your 4GL code you could use the following code:
define variable liProcessID as integer no-undo.
run GetCurrentProcessId(output liProcessID).
message liProcessID
view-as alert-box info buttons ok.
procedure GetCurrentProcessId external "kernel32":
define return parameter intProcessHandle as long.
end procedure.
If you run it in a client session you receive the process ID of your client session;
If you run it on an app server you receive the process ID of your app server session.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.