--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:25 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1993 14:24:38 $1$DGA8085:[LIB_ADA.LIS]HD3DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package HD3DEF is
 
--  module $HD3DEF
 
--+
-- HDR3 ANSI MAGNETIC TAPE LABEL
-- THIS IS THE THIRD LABEL IN FILE LABEL HEADER SET.
-- IT IDENTIFIES THE FILE ATTRIBUTES.
---
 
    HD3_S_HD3DEF		: constant := 80;
 
    type HD3_TYPE is
	record
	    HD3LID	: UNSIGNED_LONGWORD;				-- LABEL IDENTIFIES AND NUMBER 'HDR3' 
	    RECATR	: STRING(1 .. 64);				-- 64 BYTES OF FILES-11 RECORD ATTRIBUTES 
	    FILLER_1	: STRING(1 .. 12);				-- SPACES 
	end record;
 
	    for HD3_TYPE use 
		record
		    HD3LID	at 0 range 0 .. 31;
		    RECATR	at 4 range 0 .. 511;
		    FILLER_1	at 68 range 0 .. 95;
		end record;
	    for HD3_TYPE'SIZE use 640;
 
    HD3_TYPE_INIT : constant HD3_TYPE := 
	    (HD3LID	=> 0,
	    RECATR	=> (others => ASCII.NUL),
	    FILLER_1	=> (others => ASCII.NUL));
 
end HD3DEF;