C
C
C	P D S U P F . C O M
C	-------------------
C
C  COMPONENT:	USER PROFILE FILE DEFINITION AND COMMON
C
C  DATE:	08-NOV-79
C
C
C
	PARAMETER	UPF = .TRUE.	! UPF PROCESSING ENABLED
C**	PARAMETER	UPF = .FALSE.	! UPF PROCESSING DISABLED
C
C
	PARAMETER	UPFFIL = 'LB:[1,100]PDSUPF.DAT'
C
C
	BYTE	  UPFDEF(64)		! UPF DEFAULT RECORD BUFFER
	INTEGER	  UPFFPR		! UPF NO. OF 1ST PROFILE RECORD
	INTEGER	  UPFLPR		! UPF NO. OF LAST PROFILE RECORD
	INTEGER	  DEFPRI		! UPF DEFAULT PRIORITY
	INTEGER	  DEFBPR		! UPF DEFAULT PRIORITY (BATCH)
C
	EQUIVALENCE (UPFFPR,UPFDEF(1))
	EQUIVALENCE (UPFLPR,UPFDEF(3))
	EQUIVALENCE (DEFPRI,UPFDEF(17))
	EQUIVALENCE (DEFBPR,UPFDEF(45))
C
C
	INTEGER	  UPFNDX(64)		! UPF INDEX RECORD BUFFER
	INTEGER	  NDXUSR(4,8)		! UPF INDEX USERNAME(S)
C
	EQUIVALENCE (NDXUSR,UPFNDX)
C
C
	BYTE	  UPFREC(64)		! UPF RECORD BUFFER
	INTEGER	  UPFUSN(4)		! UPF USERNAME
	INTEGER	  UPFUSR		!     USER
	INTEGER	  UPFWON(2)		!     WORK ORDER
	INTEGER	  UPFSUF		!     SUFFIX
	INTEGER	  UPFUIC		! UPF USER-ID
	INTEGER*4 UPFPAS		! UPF PASSWORD
	INTEGER	  UPFPRI		! UPF PRIVILEGES
	INTEGER	  UPFCON		! UPF CONNECT TIME
	INTEGER*4 UPFCPU		! UPF CPU UTILIZATION
	INTEGER	  UPFBPR		! UPF PRIVILEGES (BATCH)
	INTEGER*4 UPFBPW		! UPF PASSWORD (BATCH)
	INTEGER	  UPFUNA		! UPF USERNAME AUTHORIZATION FLAG
C
		  PARAMETER UNANTU = 1	! NTUSER  0=PRIME-TIME / 1=OFF-HOUR
		  PARAMETER UNADAL = 2	! DALLOC  0=UNLOCKED   / 1=LOCKED
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))
	EQUIVALENCE (UPFUNA,UPFREC(51))
C
C
	INTEGER	  UPFPNT		! UPF RECORD POINTER
	INTEGER	  UPFNAR		! UPF "NEXT-AVAILABLE-RECORD" POINTER
C
C
	COMMON /PDSUPF/	UPFDEF,
	2		UPFNDX,
	3		UPFREC,
	4		UPFPNT,UPFNAR
C
C
C
C
C
C  COMPONENT:	USER DIRECTORY FILE DEFINITION AND COMMON
C
C
C
C**	PARAMETER	UDF = .TRUE.	! UDF PROCESSING ENABLED
	PARAMETER	UDF = .FALSE.	! UDF PROCESSING DISABLED
C
C
	PARAMETER	UDFFIL = 'LB:[1,100]PDSUDF.DAT'
C
C
	BYTE	  UDFDEF(64)		! UDF DEFAULT RECORD BUFFER
	INTEGER	  UDFFDR		! UDF NO. OF 1ST DIRECTORY RECORD
	INTEGER	  UDFLDR		! UDF NO. OF LAST DIRECTORY RECORD
C
	EQUIVALENCE (UDFFDR,UDFDEF(1))
	EQUIVALENCE (UDFLDR,UDFDEF(3))
C
C
	BYTE	  UDFREC(64)		! UDF RECORD BUFFER
	INTEGER	  UDFUSN(4)		! UDF USERNAME
	INTEGER	  UDFUSR		!     USER
	INTEGER	  UDFWON(2)		!     WORK ORDER
	INTEGER	  UDFSUF		!     SUFFIX
	INTEGER	  UDFUIC		! UDF USER-ID
	INTEGER	  UDFPRI		! UDF PRIVILEGES
	INTEGER	  UDFBPR		! UDF PRIVILEGES (BATCH)
	INTEGER	  UDFCCC(2)		! UDF COST CENTER
	REAL	  UDFCHG		! UDF YEAR-TO-DATE CHARGES
	INTEGER	  UDFXXX(21)		! UDF (RESERVED)
C
	EQUIVALENCE (UDFUSN,UDFREC(1))
	EQUIVALENCE (UDFUSR,UDFREC(1))
	EQUIVALENCE (UDFWON,UDFREC(3))
	EQUIVALENCE (UDFSUF,UDFREC(7))
	EQUIVALENCE (UDFUIC,UDFREC(9))
	EQUIVALENCE (UDFPRI,UDFREC(11))
	EQUIVALENCE (UDFBPR,UDFREC(13))
	EQUIVALENCE (UDFCCC,UDFREC(15))
	EQUIVALENCE (UDFCHG,UDFREC(19))
	EQUIVALENCE (UDFXXX,UDFREC(23))
C
C
	INTEGER	  UDFPNT		! UDF RECORD POINTER
	INTEGER	  UDFNAR		! UDF "NEXT-AVAILABLE-RECORD" POINTER
C
C
	COMMON /PDSUDF/	UDFDEF,
	2		UDFREC,
	3		UDFPNT,UDFNAR
C
C
C
C  NOTE:  DIRECT ACCESS USER RECORDS STORED IN THE USER PROFILE (PDSUPF)
C	  AND THE USER DIRECTORY (PDSUDF) FILES ARE RELATED AS FOLLOWS;
C
C		UDFPNT = UPFPNT - UPFFPR + UDFFDR
C	  -OR-
C		UPFPNT = UDFPNT - UDFFDR + UPFFPR
C
C