--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:31 by OpenVMS SDL EV3-3      
-- Source:  22-APR-1993 13:30:15 $1$DGA8085:[LIB_ADA.LIS]NSAIDTDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package NSAIDTDEF is
 
--  module $NSAIDTDEF
 
--+
-- Security Auditing Impure Data Table offset definitions
---
 
    NSA_C_IDT_LENGTH		: constant := 4794;
    NSA_K_IDT_LENGTH		: constant := 4794;
    NSA_K_IDT_PAGES		: constant := 10;			--  Number of pages for IDT
    NSA_S_NSAIDTDEF		: constant := 4794;
 
    type NSAIDT_TYPE is
	record
	    IDT_ALARM_HDR	: STRING(1 .. 46);			--  Alarm header buffer
	    IDT_RECORD_BUF	: STRING(1 .. 1024);			--  Record buffer
	    IDT_RECORD_DESCR	: UNSIGNED_QUADWORD;			--  Record buffer descriptor
	    IDT_RECORD_DT	: STRING(1 .. 128);			--  Record descriptor table
	    FILLER_1	: UNSIGNED_LONGWORD;				--  Spare (was obsolete CJF field; IDT_AUDIT_CHAN
									--  audit journal channel number)
	    FILLER_2	: UNSIGNED_BYTE_ARRAY (1 .. 3584);		--  expand to 10 5120 bytes
	end record;
 
	    for NSAIDT_TYPE use 
		record
		    IDT_ALARM_HDR	at 0 range 0 .. 367;
		    IDT_RECORD_BUF	at 46 range 0 .. 8191;
		    IDT_RECORD_DESCR	at 1070 range 0 .. 63;
		    IDT_RECORD_DT	at 1078 range 0 .. 1023;
		    FILLER_1	at 1206 range 0 .. 31;
		    FILLER_2	at 1210 range 0 .. 28671;
		end record;
	    for NSAIDT_TYPE'SIZE use 38352;
 
    NSAIDT_TYPE_INIT : constant NSAIDT_TYPE := 
	    (IDT_ALARM_HDR	=> (others => ASCII.NUL),
	    IDT_RECORD_BUF	=> (others => ASCII.NUL),
	    IDT_RECORD_DESCR	=> (0, 0),
	    IDT_RECORD_DT	=> (others => ASCII.NUL),
	    FILLER_1	=> 0,
	    FILLER_2	=> (others => 0));
 
end NSAIDTDEF;