|
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: 2031 (0x7ef)
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.Report_Generator.All_Elmnt_Status_Rep)
procedure Init_El_Headers is
----------------------------------------------------------------------
--| NAME: INIT_EL_HEADERS
--|
--| OVERVIEW:
--| This report initializes the headers for the All Element Status
--| report.
--|
--| EXCEPTIONS HANDLED:
--| none
--|
--| HISTORY:
--| written by Bonnie Burkhardt March 1985
----------------------------------------------------------------------
begin
-- initialize the headers
Header1 (68 .. 83) := "** ACTIVITIES **";
Header1 (90 .. 96) := "ORIGINL";
Header1 (99 .. 105) := "CURRENT";
Header1 (108 .. 114) := "EQ. NEW";
Header1 (117 .. 124) := "SIZE LST";
Header2 (2 .. 3) := "MS";
Header2 (5 .. 6) := "PR";
Header2 (8 .. 16) := "SUBSYSTEM";
Header2 (20 .. 30) := "DESCRIPTION";
Header2 (56 .. 60) := "ABREV";
Header2 (63 .. 64) := "RP";
Header2 (90 .. 93) := "SIZE";
Header2 (99 .. 102) := "SIZE";
Header2 (108 .. 111) := "SIZE";
Header2 (117 .. 124) := "VERIFIED";
Header2 (127 .. 132) := "COMPXY";
Header_Lines (2 .. 3) := Dashes (1 .. 2);
Header_Lines (5 .. 6) := Dashes (1 .. 2);
Header_Lines (8 .. 16) := Dashes (1 .. 9);
Header_Lines (20 .. 30) := Dashes (1 .. 11);
Header_Lines (56 .. 61) := Dashes (1 .. 6);
Header_Lines (63 .. 64) := Dashes (1 .. 2);
Header_Lines (90 .. 96) := Dashes (1 .. 7);
Header_Lines (99 .. 105) := Dashes (1 .. 7);
Header_Lines (108 .. 114) := Dashes (1 .. 7);
Header_Lines (117 .. 124) := Dashes (1 .. 8);
Header_Lines (127 .. 132) := Dashes (1 .. 6);
-- initialize the header for the activity data
Start_Walk (Ac_List);
Ac_Index := 0;
loop
Walk (Ac_List, Ac_Ptr, End_List);
exit when End_List;
Header2 (67 + 2 * Ac_Index) := Ac_Ptr.Name (1);
Header_Lines (67 + 2 * Ac_Index) := '-';
Ac_Index := Ac_Index + 1;
end loop;
end Init_El_Headers;