Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!killer!ames!pasteur!ucbvax!CITHEX.CALTECH.EDU!carl
From: carl@CITHEX.CALTECH.EDU (Carl J Lydick)
Newsgroups: comp.os.vms
Subject: Re: LIB$GETJPI
Message-ID: <880707111202.2364@CitHex.Caltech.Edu>
Date: 7 Jul 88 18:14:41 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 29


 > 	I want to use LIB$GETJPI to return information on any process
 > running on the system. The ORANGE book gives me this:
 > 
 > LIB$GETJPI  item-code,[,process-id] [,process-name] [,outvalue]....etc
 > 
 > 	The problem I'm having is with the [,process-id] part. The book
 > tells us the process-id is "the address of an unsigned longword containing 
 > the process identification." How do I fill this parameter?
 > 
 > 	If I want LIB$GETJPI to return certain information on process 23d
 > how would I put it in [,process-id]????
 > 
 > 	Any help on this subject would be greatly appreciated!

The following program illustrates the use of LIB$GETJPI:
C*******************************************************************************
	CHARACTER*16 NAME
	JPI$_PRCNAM='031C'X
	TYPE 10
10	FORMAT(' PID: ',$)
	ACCEPT 20, IPID
20	FORMAT(Z8)
	CALL LIB$GETJPI(JPI$_PRCNAM,IPID,,,NAME,NAMLEN)
	TYPE *, NAME(1:NAMLEN)
	END
C*******************************************************************************
Technically, I should have declared IPID as LOGICAL*4 to make it an unsigned
longword, but in this context, it doesn't make any difference.