Re: Session Id for program

In article <6e6f38$l4e$1@news.xmission.com>, <jparker@epsilon.com> wrote: > >It should be called get_pid() or somesuch. You can probably just do a man >-k pid and find it. I find the file "getpid.c" in my directory, and here it is.... I trust that Alan wouldn't mind my reposting it. - Paul /* function: fgl_getpid - return numeric process id * author: Alan Popiel * date: 23 Jan 1995 * * usage: * CALL fgl_getpid() RETURNING number * LET number = fgl_getpid() * * CALL argument: * none -- no error checking is done for presence of input arguments * * RETURNING argument: * integer number -- numeric value of the process id * SCCSID : */ int fgl_getpid(nargs) int nargs; { retint( getpid() ); /* push process id onto stack */ return( 1 ); /* one argument returned */ }