STRUCT	EXCEPT
C	STRLEN,256			; Maximum String Length
C	MAXIMUM,256			; Maximum Number of Exceptions
F	RECTYP,L			; Exception Record Type
V	<
	ACCOUNT				;  Account  Name Record Type
	PROCESS				;  Process  Name Record Type
	TERMINAL			;  Terminal Name Record Type
	USERNAME			;  User Name Record Type
	IDENTIFIER			;  Identifier Record Type
	IMAGE				;  Image Name Record Type
	>
F	WILDCARD,W			; Wildcard Entry
F	DESCRIPTOR,Q			; String Descriptor
S	IDENTIFIER,0,L			; Identifer Number
F	START_MSG,L			; Start Message Value
F	STOP_PROCESS,L			; Stop Process Value
F	OPTIONS,L			; Option Flags
L	BLN
E

	STRUCT	USER
F	OPTIONS,L			; Process Options
V	<
	NO_OPER_TIMESTAMP		; No Operator Timestamp
	NO_HEADER_MSG			; No Header on Terminal Messages
	NOTIFY_OPER_WARNING		; Notify Operator When User Warning
	NOTIFY_OPER_LOGOFF		; Notify Operator When User Logoff
	NO_NOTIFY_USER_WARNING		; Do not Notify User on Warning
	NO_NOTIFY_USER_LOGOFF		; Do not Notify User on Logoff
	LOG_WARNING			; Log All Warnings to Log File
	LOG_LOGOFF			; Log All Logoffs  to Log File
	NO_DISCONNECTIONS		; Do Not Disconnect User If Possible
	FORCEX				; Use Force Exit Prior to Stop Process
	>
F	IPIDSEQ,W			; Sequence Part Of Pid
F	CPUTIM,L			; Cpu Time Used
F	BUFIOC,L			; Number Of Buffer I/O
F	WARNING,L			; Number Of Warning So Far
F	START_MSG,L			; Start Message Value
F	STOP_PROCESS,L			; Stop Process Value
L	BLN
E

	STRUCT	BAD
F	ERROR_FLAG,L			; Error Flag Bit Value
V	<
	RECTYP				; Record Type
	DEVNAM				; Device Value
	STRING				; String Value
	IDENT				; Identifier Value
	START				; Start Warning Value
	STOP				; Stop Process Value
	FLAG				; Flag Value
	>
E
	STRUCT	PSB
F	IPID,L				; Index Process Identification Number
S	IPIDIDX,0,W			;  Index Portion of Index Process Identification Number
S	IPIDSEQ,2,W			;  Sequence Portion of Index Process Identification Number
F	EPID,L				; Extended Process Identification Number
F	MPID,L				; Master Process's Process Identification Number
F	CPUTIM,L			; CPU Time
F	BUFIOC,L			; Buffer I/O Count
F	USERNAME, T, 13			; Username      (JIB$S_USERNAME+1)
F	ACCOUNT, T, 9			; Account Name  (JIB$S_ACCOUNT+1)
F	LTERMINAL, T, 8			; Logical  Terminal (PCB$S_TERMINAL)
F	PTERMINAL, T, 8			; Physical Terminal (PCB$S_TERMINAL)
F	LNAME, T, 16			; Process Name  (PCB$S_LNAME)
F	PRCCNT,W			; Process Count
L	BLN
E