--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:15 by OpenVMS SDL EV3-3      
-- Source:  19-APR-1993 13:46:59 $1$DGA8085:[LIB_ADA.LIS]ALFDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ALFDEF is
 
--  module $ALFDEF
 
--+
--
-- $ALFDEF - structure for auto-login file.
--
---
 
    ALF_C_LENGTH		: constant := 128;
    ALF_K_LENGTH		: constant := 128;
    ALF_S_ALFDEF		: constant := 128;
 
    type ALF_TYPE is
	record
	    DEVNAME	: STRING(1 .. 63);				--  Terminal device name
	    USERNAME	: STRING(1 .. 32);				--  Associated username
	    FILLER_1	: UNSIGNED_BYTE_ARRAY (1 .. 33);
	end record;
 
	    for ALF_TYPE use 
		record
		    DEVNAME	at 0 range 0 .. 503;
		    USERNAME	at 63 range 0 .. 255;
		    FILLER_1	at 95 range 0 .. 263;
		end record;
	    for ALF_TYPE'SIZE use 1024;
 
    ALF_TYPE_INIT : constant ALF_TYPE := 
	    (DEVNAME	=> (others => ASCII.NUL),
	    USERNAME	=> (others => ASCII.NUL),
	    FILLER_1	=> (others => 0));
 
end ALFDEF;