--********************************************************************************************************************
-- Created: 30-Mar-2010 17:01:56 by OpenVMS SDL EV3-3      
-- Source:  22-FEB-2002 12:36:29 $1$DGA7274:[STARLET_ADA.LIS]SECIDDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package SECIDDEF is
 
--  module $SECIDDEF
 
--+
-- Define the global section identification structure.
---
 
    SECID_M_MINOR_ID		: constant := 16#00FFFFFF#;
    SECID_M_MAJOR_ID		: constant := 16#FF000000#;
 
    type SECID_VERSION_TYPE is						--  Version number
	record
	    MINOR_ID	: UNSIGNED_24;					--    Minor ID of version number
	    MAJOR_ID	: UNSIGNED_8;					--    Minor ID of version number
	end record;
 
	    for SECID_VERSION_TYPE use 
		record
		    MINOR_ID	at 0 range 0 .. 23;
		    MAJOR_ID	at 3 range 0 .. 7;
		end record;
	    for SECID_VERSION_TYPE'SIZE use 32;
 
    SECID_VERSION_TYPE_INIT : constant SECID_VERSION_TYPE := 
	    (MINOR_ID	=> 0,
	    MAJOR_ID	=> 0);
 
    type SECID_TYPE is
	record
	    MATCH	: UNSIGNED_LONGWORD;				--  Match control value, see secdef.h
	    VERSION	: SECID_VERSION_TYPE;				--  Version number
	end record;
 
	    for SECID_TYPE use 
		record
		    MATCH	at 0 range 0 .. 31;
		    VERSION	at 4 range 0 .. 31;
		end record;
	    for SECID_TYPE'SIZE use 64;
 
    SECID_TYPE_INIT : constant SECID_TYPE := 
	    (MATCH	=> 0,
	    VERSION	=> SECID_VERSION_TYPE_INIT
	    );
 
    SECID_K_LENGTH		: constant := 8;			--  Length of SECID
    SECID_C_LENGTH		: constant := 8;			--  Length of SECID
 
end SECIDDEF;