|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1252 (0x4e4)
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⟧
separate (Tracker.Activity_Pkg.Ac_Save)
procedure Ac_Write is
--|
--| NAME: AC_WRITE
--|
--| OVERVIEW:
--| This procedure is passed in a record pointer. The record is written
--| to one line of the output file in the following format:
--||
--|| +----------+-----+--+----+-----+
--|| | name |p_tot|pr|cons|pc_st|
--|| +----------+-----+--+----+-----+
--||
--|
--| See DATA_PKG for the full names of the fields and their types.
--| The activity records are the second type of data to be written to the
--| output file.
--|
--| EXCEPTIONS HANDLED:
--| none
--|
--| HISTORY:
--| written by May Lee March 1985
--|
begin
Put (Output_File, Ac_Record.Name);
Put (Output_File, Ac_Record.Percent_Tot_Proj,
Fore => 3,
Aft => 1,
Exp => 0); -- real type
Put (Output_File, Ac_Record.Priority, 2); -- integer type
Put (Output_File, Ac_Record.Percent_At_Start,
Fore => 3,
Aft => 1,
Exp => 0); -- real type
Put (Output_File, Ac_Record.Consider_In_Calc, 5);-- boolean
New_Line (Output_File);
end Ac_Write;