DataMuseum.dk

top - metrics - download

    Length: 1021 (0x3fd)
    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.Activity_Pkg.Ac_Set_Up)

procedure Ac_Read is
    --|
    --|  NAME:  AC_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
    --|    activity record, which is made visible to the calling routine
    --|    AC_SET_UP.  The data is read in the format specified by the AC_WRITE
    --|    procedure.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by AC_SET_UP.
begin
    Get (Tracker_File, Ac_Record.Name);
    Get (Tracker_File, Ac_Record.Percent_Tot_Proj, 5);   -- real type
    Get (Tracker_File, Ac_Record.Priority, 2);           -- integer type
    Get (Tracker_File, Ac_Record.Percent_At_Start, 5);   -- real type
    Get (Tracker_File, Ac_Record.Consider_In_Calc);      -- boolean
    Skip_Line (Tracker_File);
end Ac_Read;