--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:37 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1993 15:00:21 $1$DGA8085:[LIB_ADA.LIS]VL2DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package VL2DEF is
 
--  module $VL2DEF
 
--+
-- VOL2 ANSI MAGNETIC TAPE LABEL
-- THIS IS BLOCK IS WRITTEN TO TAPES WHEN A VMS PROTECTION IS SPECIFIED
---
 
    VL2_S_VL2DEF		: constant := 19;
 
    type VL2_TYPE is
	record
	    VL2LID	: UNSIGNED_LONGWORD;				-- LABEL IDENTIFIER AND NUMBER 'VOL2' 
	    VOLOWNER	: STRING(1 .. 15);				-- VOLUME OWNER IDENTIFICATION 
	end record;
 
	    for VL2_TYPE use 
		record
		    VL2LID	at 0 range 0 .. 31;
		    VOLOWNER	at 4 range 0 .. 119;
		end record;
	    for VL2_TYPE'SIZE use 152;
 
    VL2_TYPE_INIT : constant VL2_TYPE := 
	    (VL2LID	=> 0,
	    VOLOWNER	=> (others => ASCII.NUL));
 
end VL2DEF;