DataMuseum.dk

top - metrics - download

    Length: 1060 (0x424)
    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.Milestone_Pkg.Ms_Set_Up)
procedure Ms_Read is
    --|
    --|  NAME:  MS_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
    --|    milestone record, which is made visible to the calling routine
    --|    MS_SET_UP.  The data is read in the format specified by the MS_WRITE
    --|    procedure.
    --|
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by MS_SET_UP.
begin
    Get (Tracker_File, Ms_Record.Number, 2);  -- integer
    Get (Tracker_File, Ms_Record.Completion_Number, 2);  -- integer
    Get (Tracker_File, Ms_Record.Due_Date.Month, 2);
    Get (Tracker_File, Ms_Record.Due_Date.Day, 2);
    Get (Tracker_File, Ms_Record.Due_Date.Year, 4);
    Get (Tracker_File, Ms_Record.Description (1 .. 50));  -- string
    Skip_Line (Tracker_File);
end Ms_Read;