--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:23 by OpenVMS SDL EV3-3      
-- Source:  09-JUN-1993 15:29:03 $1$DGA8085:[LIB_ADA.LIS]EO3DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package EO3DEF is
 
--  module $EO3DEF
 
--+
-- EOF3 ANSI MAGNETIC TAPE LABEL
-- THIS IS THE THIRD LABEL IN THE FILE TRAILER LABEL SET.  IT IS EQUIVALENT
-- TO HDR3 EXCEPT FOR THE FOLLOWING FIELDS.
---
 
    EO3_S_EO3DEF		: constant := 4;
 
    type EO3_TYPE is
	record
	    EO3LID	: UNSIGNED_LONGWORD;				-- LABEL IDENTIFIER AND NUMBER 'EOF3' 
	end record;
 
	    for EO3_TYPE use 
		record
		    EO3LID	at 0 range 0 .. 31;
		end record;
	    for EO3_TYPE'SIZE use 32;
 
    EO3_TYPE_INIT : constant EO3_TYPE := 
	    (EO3LID	=> 0);
 
end EO3DEF;