Include		'($JPIDEF)'

	INTEGER		SYS$GETJPI
c	INTEGER		SS$_NOMOREPROC	/Z09A8/
	INTEGER		PCB$M_BATCH/Z00004000/
	INTEGER		PCB$M_NETWRK/Z00200000/
	INTEGER		PID_WILDCARD/-1/
	INTEGER		PIDinput

	INTEGER
	1		CPUTIM,	LOGINTIM(2),
	2		PID,
	3		STS,
	4		GRP,
	5		OWNER,
	6		STATE,
	7		GPGCNT, PPGCNT

	CHARACTER	
	3		PRCNAM*15,
	4		TERMINAL*8,
	5		USERNAME*12,
	6		IMAGNAME*128

	INTEGER
	1		L_LOGINTIM	/8/,
	2		L_CPUTIM	/8/,
	3		L_PID		/4/,
	4		L_PRCNAM	/15/,
	5		L_STS		/4/,
	6		L_TERMINAL	/8/,
	7		L_GRP		/4/,
	8		L_USERNAME	/12/,
	9		L_IMAGNAME	/128/,
	1		L_OWNER		/4/,
	2		L_STATE		/4/,
	3		L_GPGCNT	/4/,
	4		L_PPGCNT	/4/

	INTEGER
	1		RL_LOGINTIM,
	2		RL_CPUTIM,
	3		RL_PID,
	4		RL_PRCNAM,
	5		RL_STS,
	6		RL_TERMINAL,
	7		RL_GRP,
	8		RL_USERNAME,
	9		RL_IMAGNAME,
	1		RL_OWNER,
	2		RL_STATE,
	3		RL_GPGCNT,
	4		RL_PPGCNT

	INTEGER		BL/0/, IC/1/, BA/1/, RL/2/

	INTEGER*2	ITEM_LIST2(80)
	INTEGER		ITEM_LIST(40)
	EQUIVALENCE	(ITEM_LIST,ITEM_LIST2)