!*** MODULE $STSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES.
 ! 
 ! 
 !         $STRUCT        SS
 ! 
 !  THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL'
 ! +
 !  Define 32-bit VAX-11 error code longword fields
 !  Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1
 !  Changed to agree with new status value  W. H. Brown 18-NOV-1977
 ! -
	PARAMETER STS$M_SEVERITY = '00000007'X
	PARAMETER STS$M_COND_ID = '0FFFFFF8'X
	PARAMETER STS$M_CONTROL = 'F0000000'X
	PARAMETER STS$M_SUCCESS = '00000001'X
	PARAMETER STS$M_MSG_NO = '0000FFF8'X
	PARAMETER STS$M_CODE = '00007FF8'X
	PARAMETER STS$M_FAC_SP = '00008000'X
	PARAMETER STS$M_CUST_DEF = '08000000'X
	PARAMETER STS$M_INHIB_MSG = '10000000'X
	PARAMETER STS$M_FAC_NO = '0FFF0000'X
	PARAMETER STS$K_WARNING = '00000000'X	 !  WARNING 
	PARAMETER STS$K_SUCCESS = '00000001'X	 !  SUCCESSFUL COMPLETION 
	PARAMETER STS$K_ERROR = '00000002'X	 !  ERROR 
	PARAMETER STS$K_INFO = '00000003'X	 !  INFORMATION 
	PARAMETER STS$K_SEVERE = '00000004'X	 !  SEVERE ERROR 
	STRUCTURE /STSDEF/
	UNION
	    MAP
	        PARAMETER STS$S_SEVERITY = 3
	        PARAMETER STS$V_SEVERITY = 0		 !  severity code 
	        PARAMETER STS$S_COND_ID = 25
	        PARAMETER STS$V_COND_ID = 3		 !  condition id 
	        PARAMETER STS$S_CONTROL = 4
	        PARAMETER STS$V_CONTROL = 28
	        BYTE %FILL (4)				 !  control bits 
	    END MAP
	    MAP
	        PARAMETER STS$S_SUCCESS = 1
	        PARAMETER STS$V_SUCCESS = 0		 !  Success 
	        PARAMETER STS$S_MSG_NO = 13
	        PARAMETER STS$V_MSG_NO = 3
	        BYTE %FILL (2)				 !  Message number 
	    END MAP
	    MAP
	        PARAMETER STS$S_CODE = 12
	        PARAMETER STS$V_CODE = 3		 !  code 
	        PARAMETER STS$S_FAC_SP = 1
	        PARAMETER STS$V_FAC_SP = 15		 !  1 if facility specific 
	        PARAMETER STS$S_CUST_DEF = 1
	        PARAMETER STS$V_CUST_DEF = 27		 !  1 if sub-system is customer (or CSS) defined 
	        PARAMETER STS$S_INHIB_MSG = 1
	        PARAMETER STS$V_INHIB_MSG = 28		 !  1 if message should not be printed 
	    BYTE %FILL (2)
	    END MAP
	    MAP
	        PARAMETER STS$S_FAC_NO = 12
	        PARAMETER STS$V_FAC_NO = 16		 !  Facility is 12 bits 
	    BYTE %FILL (2)
	    END MAP
 ! +
 !  Define severity codes
 ! -
	END UNION
	END STRUCTURE	! STSDEF
!DEC$ END OPTIONS