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.