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