!*** MODULE $PRXDEF IDENT X-9 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER PRX$K_ADD = '00000001'X
	PARAMETER PRX$K_DELETE = '00000002'X
	PARAMETER PRX$K_SHOW = '00000003'X
	PARAMETER PRX$K_VERIFY = '00000004'X
	PARAMETER PRX$K_PERFORMANCE = '00000005'X
	PARAMETER PRX$K_ZERO_PERFORMANCE = '00000006'X
	PARAMETER PRX$K_CREATE = '00000007'X
	PARAMETER PRX$K_STOP = '00000008'X
	PARAMETER PRX$K_START = '00000009'X
	PARAMETER PRX$K_MAX_PROXY_CODE = '0000000A'X
	PARAMETER PRX$K_PERFORMANCE_LENGTH = '00000030'X
	STRUCTURE /PRX$PERFORMANCE/
	    INTEGER*4 PRX$L_TOTAL_MESSAGES
	    INTEGER*4 PRX$L_TOTAL_EXCEPTIONS
	    INTEGER*4 PRX$L_SHOWS
	    INTEGER*4 PRX$L_ADDS
	    INTEGER*4 PRX$L_DELETES
	    INTEGER*4 PRX$L_VERIFYS
	    INTEGER*4 PRX$L_PERFORMANCE
	    INTEGER*4 PRX$L_CREATES
	    INTEGER*4 PRX$L_STOPS
	    INTEGER*4 PRX$L_STARTS
	    INTEGER*4 PRX$L_AUDITS
	    INTEGER*4 PRX$L_INVALID_MESSAGES
	END STRUCTURE	! PRX$PERFORMANCE
	PARAMETER PRX$M_IGNORE_RETURN = '00000001'X
	PARAMETER PRX$M_BYPASS_EXPAND = '00000002'X
	PARAMETER PRX$M_RESERVE_1 = '000000FC'X
	PARAMETER PRX$M_DEFAULT = '00000100'X
	PARAMETER PRX$M_EXACT = '00000200'X
	PARAMETER PRX$M_DELETE_ALLOWED = '00000400'X
	PARAMETER PRX$M_FILL_1 = 'FFFFF800'X
	PARAMETER PRX$K_HEADER_LENGTH = '00000008'X
	STRUCTURE /PRX$HEADER/
	    INTEGER*4 PRX$L_CONTEXT
	    UNION
	        MAP
	        INTEGER*4 PRX$L_FLAGS
	        END MAP
	        MAP
	            PARAMETER PRX$S_IGNORE_RETURN = 1
	            PARAMETER PRX$V_IGNORE_RETURN = 0
	            PARAMETER PRX$S_BYPASS_EXPAND = 1
	            PARAMETER PRX$V_BYPASS_EXPAND = 1
	            PARAMETER PRX$S_DEFAULT = 1
	            PARAMETER PRX$V_DEFAULT = 8
	            PARAMETER PRX$S_EXACT = 1
	            PARAMETER PRX$V_EXACT = 9
	            PARAMETER PRX$S_DELETE_ALLOWED = 1
	            PARAMETER PRX$V_DELETE_ALLOWED = 10
	            PARAMETER PRX$S_FILL_1 = 21
	            PARAMETER PRX$V_FILL_1 = 11
	            BYTE %FILL (4)
	        END MAP
	    END UNION
	END STRUCTURE	! PRX$HEADER
	STRUCTURE /PRX$GENERIC_DESC1/
	    INTEGER*2 PRX$W_DESC_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*1 PRX$T_DESC_DATA
	END STRUCTURE	! PRX$GENERIC_DESC1
	PARAMETER PRX$K_USER_NAME_LENGTH = '00000020'X
	PARAMETER PRX$K_REMOTE_NODE_NAME_LENGTH = '00000400'X
	PARAMETER PRX$K_MAX_LOCAL_USERS = '00000010'X
	PARAMETER PRX$K_LOCAL_USER_ENTRY = '00000024'X
	STRUCTURE /DATA/
	    INTEGER*2 PRX$W_LOCAL_USER_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*32 PRX$T_LOCAL_USER_NAME
	    INTEGER*2 PRX$W_REMOTE_USER_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*32 PRX$T_REMOTE_USER_NAME
	    INTEGER*2 PRX$W_REMOTE_NODE_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*1024 PRX$T_REMOTE_NODE_NAME
	END STRUCTURE	! DATA
	PARAMETER PRX$K_DATA_LENGTH = '0000044C'X
	STRUCTURE /BUFSIZ_SUMMARY/
	    INTEGER*2 PRX$W_BUFSIZ_USER		 !  proxy user length
	    INTEGER*2 PRX$W_BUFSIZ_NODE		 !  proxy node length
	    INTEGER*2 PRX$W_BUFSIZ_LOCAL_COUNT	 !  number of local users
	    INTEGER*2 PRX$W_BUFSIZ_DEF_USER		 !  length of default user
	END STRUCTURE	! BUFSIZ_SUMMARY
	PARAMETER PRX$K_MAX_REPLY = '0000069C'X
	STRUCTURE /REPLY_UNION/
	UNION
	    MAP
	        INTEGER*4 PRX$L_REPLY_STATUS		 !  status of request
	    END MAP
	    MAP
	        INTEGER*4 %FILL				 !  space for STATUS
	        INTEGER*2 PRX$W_VALID_USER		 !  length of proxy user_name
	        INTEGER*2 %FILL
	        CHARACTER*1 PRX$T_VALID_USER(1:32)	 !  proxy usernname
	    END MAP
	    MAP
	        INTEGER*4 %FILL				 !  space for STATUS
	        INTEGER*4 PRX$L_SHOW_CONTEXT		 !  returned context
	        INTEGER*2 PRX$W_SHOW_DEF_USER		 !  length of default user_name
	        INTEGER*2 %FILL
	        CHARACTER*1 PRX$T_SHOW_DEF_USER(1:32)	 !  default user_name
	        INTEGER*2 PRX$W_SHOW_REM_USER		 !  length of remote user_name
	        INTEGER*2 %FILL
	        CHARACTER*1 PRX$T_SHOW_REM_USER(1:32)	 !  remote user_name
	        INTEGER*2 PRX$W_SHOW_LOCAL_COUNT	 !  count of local user_names
	        INTEGER*2 PRX$W_SHOW_LOCAL_SIZE		 !  size of local user_name (bytes)
	            INTEGER*4 %FILL
	    END MAP
	END UNION
	END STRUCTURE	! REPLY_UNION
	PARAMETER PRX$K_MAX_LENGTH = '00000454'X
!DEC$ END OPTIONS