C
C
C	U S N P A R . C O M
C	===================
C
C
C  COMPONENT:	USERNAME AUTHORIZATION AND PRIVILEGE PARAMETERS
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  USERNAME:
C  --------
C
	BYTE	  USRNAM(12)		! ASCII USERNAME
C
	INTEGER	  USRUSN(4)		! RAD50 USERNAME
	INTEGER	  USRUSR		!       USER
	INTEGER	  USRWON(2)		!	WORK-ORDER
	INTEGER	  USRSUF		!	SUFFIX
C
	EQUIVALENCE (USRUSR,USRUSN(1))
	EQUIVALENCE (USRWON,USRUSN(2))
	EQUIVALENCE (USRSUF,USRUSN(4))
C
C
C  USER-ID CODE:
C  ------------
C
	INTEGER	  USRUIC		! USER-ID
	BYTE	  USRUFD(10)		! USER DIRECTORY (ASCII)
C
C
C  USER ORGANIZATION CODE:
C  ----------------------
C
	BYTE	  USRORG(6)		! USER ORGANIZATION CODE
	BYTE	  USRCID		! USER COMPANY-ID
C
	EQUIVALENCE (USRCID,USRORG(1))
C
C
C  USERNAME AUTHORIZATION AND PRIVILEGE:
C  ------------------------------------
C
C >>>
	PARAMETER NSUF = 03		! NUMBER OF OPTIONAL SUFFIX CODES
C >>>
C
C
C
	INTEGER	  USNSUF(00:NSUF)	! USERNAME SUFFIX CODES
	INTEGER	  USNPRI(00:NSUF)	! USERNAME PRIVILEGE MASK
	INTEGER	  USNBPR(00:NSUF)	! USERNAME PRIVILEGE MASK (BATCH)
	INTEGER	  USNDPR(00:NSUF)	! USERNAME PRIVILEGE MASK (PRIME-TIME)
	INTEGER	  USNNPR(00:NSUF)	! USERNAME PRIVILEGE MASK (OFF-HOUR)
C
C
C  COMMON BLOCK DEFINITION:
C  -----------------------
C
	COMMON /USNPAR/ USRNAM,USRUSN,USRUIC,USRUFD,USRORG,
	2		USNSUF,USNPRI,USNBPR,USNDPR,USNNPR
C
C
C  NOTE:  THE USERNAME AUTHORIZATION PARAMETER FILE, "USNPAR.DAT",
C	  SHOULD BE INCLUDED WITHIN THE EXECUTABLE SEGMENT OF THE
C	  USER PROGRAM.
C