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.
Regards,
Marian