DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦a231c05a6⟧ TextFile

    Length: 2110 (0x83e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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.Report_Generator.List_By_Subsystem)
procedure Init_Ss_Headers is
    ----------------------------------------------------------------------
    --|  NAME:  INIT_SS_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initializes all the headers of this subsystem report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

    Dashes : constant String (1 .. 15) := (others => '-');

begin
    -- initialize the headers
    Header1 (59 .. 74) := "** ACTIVITIES **";
    Header1 (81 .. 87) := "ORIGINL";
    Header1 (90 .. 96) := "CURRENT";
    Header1 (99 .. 105) := "EQ. NEW";
    Header1 (108 .. 115) := "SIZE LST";
    Header1 (126 .. 132) := "MAN-HRS";

    Header2 (2 .. 3) := "MS";
    Header2 (5 .. 6) := "PR";
    Header2 (8 .. 18) := "DESCRIPTION";
    Header2 (46 .. 50) := "ABREV";
    Header2 (54 .. 55) := "RP";
    Header2 (81 .. 84) := "SIZE";
    Header2 (90 .. 93) := "SIZE";
    Header2 (99 .. 102) := "SIZE";
    Header2 (108 .. 115) := "VERIFIED";
    Header2 (118 .. 123) := "COMPXY";
    Header2 (126 .. 132) := "TO COMP";

    Header_Lines (2 .. 3) := Dashes (1 .. 2);
    Header_Lines (5 .. 6) := Dashes (1 .. 2);
    Header_Lines (8 .. 18) := Dashes (1 .. 11);
    Header_Lines (46 .. 50) := Dashes (1 .. 5);
    Header_Lines (54 .. 55) := Dashes (1 .. 2);
    Header_Lines (81 .. 87) := Dashes (1 .. 7);
    Header_Lines (90 .. 96) := Dashes (1 .. 7);
    Header_Lines (99 .. 105) := Dashes (1 .. 7);
    Header_Lines (108 .. 115) := Dashes (1 .. 8);
    Header_Lines (118 .. 123) := Dashes (1 .. 6);
    Header_Lines (126 .. 132) := Dashes (1 .. 7);

    -- 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 (58 + 2 * Ac_Index) := Ac_Ptr.Name (1);
        Header_Lines (58 + 2 * Ac_Index) := '-';
        Ac_Index := Ac_Index + 1;
    end loop;
end Init_Ss_Headers;