INTEGER*2 MAX_RATE
	PARAMETER (MAX_RATE=4)
C
C	Define a process status record
C
	STRUCTURE /PROCSTAT/
	   INTEGER*4 PID		! PID of process
	   INTEGER*4 TLCPU		! Last total CPU usage recorded
	   INTEGER*4 LASTTIME(2)	! Last time recorded in clunks
	   CHARACTER*12 COSTCODE	! Last recorded costcode
	   CHARACTER*12 USERNAME	! Last recorded username
	   REAL*8 CHGCPU(MAX_RATE)	! CPU time charged in hours, by rate
	   REAL*8 CHGCONN(MAX_RATE)	! Connect time charged in hours, by rate
	   BYTE PRIORITY		! Priority (low/medium/high = 2/3/4)
	   LOGICAL*1 ACTIVE		! .TRUE. if this record is meaningful
	   LOGICAL*1 DOCONN		! .TRUE. if connect time is charged
	   LOGICAL*1 POSTED		! .FALSE. if this record hasn't been 
C					! posted to the ALL file
	END STRUCTURE
C
C	Rates are in common block RATES
C
	REAL*8 CPURATE(4,2:4),CONNRATE(4)
	COMMON /RATES/ CPURATE,CONNRATE
C
C	Other stuff is in common block STUFF
C
	CHARACTER*256 ALLREC
	INTEGER*2 LL
	CHARACTER*6 NODENAME
	CHARACTER*32 OWNERNAME
	INTEGER*2 L_OWN
	COMMON /STUFF/ ALLREC,LL,NODENAME,OWNERNAME,L_OWN