--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:32 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1993 14:45:38 $1$DGA8085:[LIB_ADA.LIS]OSSFLGDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package OSSFLGDEF is
 
--  module $OSSFLGDEF
 
--+
-- Security Object Information context flags definitions.
--
-- This structure contains the flag definitions that are used
-- in ctl$gl_oss_flags
--
---
 
    OSSFLG_M_RNDWN_DCLR		: constant := 16#00000001#;
    OSSFLG_S_OSSFLGDEF		: constant := 1;
 
    type OSSFLG_FLAGS_BITS_TYPE is
	record
	    RNDWN_DCLR	: BOOLEAN;					--  Rundown handler declared
	    FILLER_1	: UNSIGNED_7;
	end record;
 
	    for OSSFLG_FLAGS_BITS_TYPE use 
		record
		    RNDWN_DCLR	at 0 range 0 .. 0;
		    FILLER_1	at 0 range 1 .. 7;
		end record;
	    for OSSFLG_FLAGS_BITS_TYPE'SIZE use 8;
 
    OSSFLG_FLAGS_BITS_TYPE_INIT : constant OSSFLG_FLAGS_BITS_TYPE := 
	    (RNDWN_DCLR	=> FALSE,
	    FILLER_1	=> 0);
 
    type OSSFLG_TYPE is
	record
	    FLAGS_BITS	: OSSFLG_FLAGS_BITS_TYPE;
	end record;
 
	    for OSSFLG_TYPE use 
		record
		    FLAGS_BITS	at 0 range 0 .. 7;
		end record;
	    for OSSFLG_TYPE'SIZE use 8;
 
    OSSFLG_TYPE_INIT : constant OSSFLG_TYPE := 
	    (
	    FLAGS_BITS	=> OSSFLG_FLAGS_BITS_TYPE_INIT);
 
end OSSFLGDEF;