!*** MODULE $SECSRVDEF IDENT X-4 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER SECSRV$K_SERVER = '00000001'X
	PARAMETER SECSRV$K_CIA = '00000002'X
	PARAMETER SECSRV$K_PROXY = '00000003'X
	PARAMETER SECSRV$K_MAPPING = '00000004'X
	PARAMETER SECSRV$K_SHUTDOWN = '00000001'X
	PARAMETER SECSRV$K_PERFORMANCE = '00000002'X
	PARAMETER SECSRV$K_ZERO_PERFORMANCE = '00000003'X
	PARAMETER SECSRV$K_RESTART = '00000004'X
	PARAMETER SECSRV$K_ADD_PROXY = '00000000'X
	PARAMETER SECSRV$K_DELETE_PROXY = '00000001'X
	PARAMETER SECSRV$K_SHOW_PROXY = '00000002'X
	PARAMETER SECSRV$K_VERIFY_PROXY = '00000003'X
	PARAMETER SECSRV$K_CREATE_PROXY = '00000004'X
	PARAMETER SECSRV$K_SCAN_INTRUSION = '00000005'X
	PARAMETER SECSRV$K_DELETE_INTRUSION = '00000006'X
	PARAMETER SECSRV$K_SHOW_INTRUSION = '00000007'X
	PARAMETER SECSRV$K_STOP_SERVER = '00000008'X
	PARAMETER SECSRV$K_RESTART_SERVER = '00000009'X
	PARAMETER SECSRV$K_ADD_MAPPING = '0000000A'X
	PARAMETER SECSRV$K_CREATE_MAPPING = '0000000B'X
	PARAMETER SECSRV$K_DEFINE_MAPPING = '0000000C'X
	PARAMETER SECSRV$K_DELETE_MAPPING = '0000000D'X
	PARAMETER SECSRV$K_MODIFY_MAPPING = '0000000E'X
	PARAMETER SECSRV$K_SCAN_MAPPING = '0000000F'X
	PARAMETER SECSRV$K_LOOKUP_MAPPING = '00000010'X
	PARAMETER SECSRV$K_MAX_SERVICE = '00000011'X
	PARAMETER SECSRV$K_MAXMSG = '00002000'X
	PARAMETER SECSRV$K_MAX_MESSAGE = '00002000'X
	PARAMETER SECSRV$K_REPLY_CONTEXT_LENGTH = '00000004'X
	PARAMETER SECSRV$M_IGNORE_RETURN = '00000001'X
	PARAMETER SECSRV$M_FILL_1 = 'FFFFFFFE'X
	PARAMETER SECSRV$K_HEADER_LENGTH = '0000005C'X
	STRUCTURE /SECSRV$HEADER/
	    INTEGER*4 SECSRV$L_MESSAGE_TYPE
	    INTEGER*4 SECSRV$L_MESSAGE_SUBTYPE
	    INTEGER*4 SECSRV$L_CALLERS_PID
	    INTEGER*4 SECSRV$L_RETURN_MAILBOX
	    UNION
	        MAP
	        INTEGER*4 SECSRV$L_FLAGS
	        END MAP
	        MAP
	            PARAMETER SECSRV$S_IGNORE_RETURN = 1
	            PARAMETER SECSRV$V_IGNORE_RETURN = 0
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	        INTEGER*2 SECSRV$W_USERNAME_SIZE
	        INTEGER*2 %FILL
	        CHARACTER*32 SECSRV$T_USERNAME_STRING
	        BYTE      SECSRV$B_TERMINAL_SIZE
	        CHARACTER*15 SECSRV$T_TERMINAL_NAME
	        BYTE      SECSRV$B_PRCNAM_SIZE
	        CHARACTER*15 SECSRV$T_PRCNAM_NAME
	    INTEGER*4 SECSRV$L_MESSAGE_CONTEXT
	END STRUCTURE	! SECSRV$HEADER
	PARAMETER SECSRV$CLIENT = '96EE0001'X
	PARAMETER SECSRV$OBJECT = '96EE0002'X
	PARAMETER SECSRV$COMMUNICATION = '96EE0003'X
!DEC$ END OPTIONS