C
C
C	P D S U P F . C O M
C	===================
C	                   
C
C  COMPONENT:	USER PROFILE FILE DEFINITION AND COMMON
C  ---------
C
C  DATE:	27-FEB-80
C  ----
C
C  AUTHOR:	GR JOHNSON
C  ------	BATTELLE NORTHWEST
C		P O BOX 999
C		RICHLAND WA 99352
C
C  SOURCE:	FORTRAN IV-PLUS
C  ------
C
C
C  OPEN PARAMETERS:
C  ---------------
C
C	NAME		= UPFFNM
C	ACCESS		= 'DIRECT'
C	FORM		= 'UNFORMATTED'
C	RECORDSIZE	= 16
C
C
C  FILE NAME:
C  ---------
C
	PARAMETER UPFFNM = 'LB:[1,100]PDSUPF.DAT'
C
C
C  RECORD BUFFERS:
C  --------------
C
	BYTE	  UPFDEF(64)		! DEFAULT
	BYTE	  UPFNDX(64)		! INDEX
	BYTE	  UPFREC(64)		! PROFILE
C
C
C  DEFAULT RECORD DEFINITION:
C  -------------------------
C
	INTEGER	  DEFPRI		! DEFAULT PRIVILEGE MASK
	INTEGER	  DEFBPR		! DEFAULT PRIVILEGE MASK (BATCH)
C
	EQUIVALENCE (DEFPRI,UPFDEF(17))
	EQUIVALENCE (DEFBPR,UPFDEF(45))
C
C
C  INDEX RECORD DEFINITION:
C  -----------------------
C
	INTEGER	  NDXUSN(4,8)		! INDEX USERNAMES
C
	EQUIVALENCE (NDXUSN,UPFNDX(1))
C
C
C  PROFILE RECORD DEFINITION:
C  -------------------------
C
	INTEGER	  UPFUSN(4)		! USERNAME
	INTEGER	  UPFUSR		!     USER
	INTEGER	  UPFWON(2)		!     WORK-ORDER
	INTEGER	  UPFSUF		!     SUFFIX
C					!
	INTEGER	  UPFUIC		! USER-ID CODE
C					!
	INTEGER	  UPFPRI		! PRIVILEGE MASK
	INTEGER*4 UPFPAS		! PASSWORD
C					!
	INTEGER	  UPFBPR		! BATCH PRIVILEGE MASK 
	INTEGER*4 UPFBPW		! BATCH PASSWORD
C					!
	INTEGER	  UPFCON		! CONNECT TIME
	INTEGER*4 UPFCPU		! CPU UTILIZATION
C
	EQUIVALENCE (UPFUSN,UPFREC(1))
	EQUIVALENCE (UPFUSR,UPFREC(1))
	EQUIVALENCE (UPFWON,UPFREC(3))
	EQUIVALENCE (UPFSUF,UPFREC(7))
	EQUIVALENCE (UPFUIC,UPFREC(9))
	EQUIVALENCE (UPFPAS,UPFREC(11))
	EQUIVALENCE (UPFPRI,UPFREC(17))
	EQUIVALENCE (UPFCON,UPFREC(35))
	EQUIVALENCE (UPFCPU,UPFREC(37))
	EQUIVALENCE (UPFBPR,UPFREC(45))
	EQUIVALENCE (UPFBPW,UPFREC(47))
C
C
C  RECORD ACCESS POINTERS:
C  ----------------------
C
	INTEGER	  UPFPNT		! RECORD POINTER
C
	INTEGER	  UPFFRP		! FIRST RECORD POINTER
	INTEGER	  UPFLRP		! LAST RECORD POINTER
C
	EQUIVALENCE (UPFFRP,UPFDEF(1))
	EQUIVALENCE (UPFLRP,UPFDEF(3))
C
	INTEGER	  UPFERP		! EMPTY RECORD POINTER
C
C
C  COMMON BLOCK DEFINITION:
C  -----------------------
C
	COMMON /PDSUPF/	UPFDEF,UPFNDX,UPFREC,
	2		UPFPNT,UPFERP
C
C