DataMuseum.dk

top - metrics - download

    Length: 2408 (0x968)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

separate (Tracker.Element_Pkg.El_Set_Up)

procedure El_Read is
    ----------------------------------------------------------------------------
    --|
    --|  NAME:  EL_READ
    --|
    --|  OVERVIEW:
    --|    This procedure reads a record from the file.  One line of data is
    --|    read at a time and broken down into the fields of the
    --|    element record, which is made visible to the calling routine
    --|    EL_SET_UP.  The data is read in the format specified by the EL_WRITE
    --|    procedure.
    --|
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by EL_SET_UP.
    --|
    ----------------------------------------------------------------------------
    Multiple_People : Character;  -- true or false

begin
    Get (Tracker_File, El_Record.Description);  -- string
    Get (Tracker_File, El_Record.Desc_Key);
    Get (Tracker_File, El_Record.Subsystem_Name);
    Get (Tracker_File, El_Record.Milestone_Num, 2);  -- integer
    Get (Tracker_File, El_Record.Priority, 2);  -- integer
    Get (Tracker_File, El_Record.Original_Size, 7);
    Get (Tracker_File, El_Record.Size_Done_At_Start, 7);
    Get (Tracker_File, El_Record.Current_Size, 7);
    Get (Tracker_File, El_Record.Complexity, 3);              -- real

    for I in 1 .. Num_Of_Activities loop
        Get (Tracker_File, Char_Ac_Completeness (I));            -- character
        -- convert char to enumeration type act_phase_char_set
        El_Record.Activity_Completeness (I) :=
           Convert (Char_Ac_Completeness (I));
    end loop;

    Get (Tracker_File, El_Record.Prev_Date_Done.Month, 2);
    Get (Tracker_File, El_Record.Prev_Date_Done.Day, 2);
    Get (Tracker_File, El_Record.Prev_Date_Done.Year, 4);
    Get (Tracker_File, El_Record.Date_Size_Verified.Month, 2);
    Get (Tracker_File, El_Record.Date_Size_Verified.Day, 2);
    Get (Tracker_File, El_Record.Date_Size_Verified.Year, 4);
    Get (Tracker_File, Multiple_People);

    if Multiple_People = 'T' then
        Multiple_Pr_El_Record (El_Record);

        for I in 1 .. Num_Of_Activities loop
            Get (Tracker_File, El_Record.People_Initials (I));
        end loop;
    else
        Get (Tracker_File, El_Record.Person_Initials);
    end if;

    Skip_Line (Tracker_File);
end El_Read;