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