--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:23 by OpenVMS SDL EV3-3      
-- Source:  29-JUL-2005 10:29:41 $1$DGA8085:[LIB_ADA.LIS]ERFMBXDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ERFMBXDEF is
 
--  module $ERFMBXDEF
 
--
-- COMPLEMENTARY STRUCTURES FOR ERRFMT DIAGNOSTIC MAILBOX CONTROL
--
 
    ERF_K_MBX_LENGTH		: constant := 8;			--  LENGTH OF STRUCTURE
    ERF_C_MBX_LENGTH		: constant := 8;			--  LENGTH OF STRUCTURE
 
    type ERFMBX_TYPE is
	record
	    MBX_CHANNEL	: UNSIGNED_WORD;				--  MBX CHANNEL NUMBER
	    MBX_SIZE	: UNSIGNED_WORD;				--  MBX SIZE
	    MBX_UNIT	: UNSIGNED_LONGWORD;				--  MBX UNIT NUMBER
	end record;
 
	    for ERFMBX_TYPE use 
		record
		    MBX_CHANNEL	at 0 range 0 .. 15;
		    MBX_SIZE	at 2 range 0 .. 15;
		    MBX_UNIT	at 4 range 0 .. 31;
		end record;
	    for ERFMBX_TYPE'SIZE use 64;
 
    ERFMBX_TYPE_INIT : constant ERFMBX_TYPE := 
	    (MBX_CHANNEL	=> 0,
	    MBX_SIZE	=> 0,
	    MBX_UNIT	=> 0);
 
end ERFMBXDEF;