DataMuseum.dk

top - metrics - download

    Length: 1323 (0x52b)
    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

with Text_Io;
use Text_Io;
separate (Tracker)

procedure Initialize_Tracker_Data is
    --------------------------------------------------------------------------------
    --|
    --|  NAME:  INITIALIZE_TRACKER_DATA
    --|
    --|  OVERVIEW:
    --|    This procedure calls the individual data initialize procedures in
    --|    a specific order to obtain the tracker information needed to make a
    --|    complete tracker file.  The internal data structures are created
    --|    and the data is written to the tracker file.  The name of the output
    --|    file is obtained in this procedure, but the file is actually created
    --|    just before the write in the procedure WRITE_DATA_TO_FILE.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    Written by   May Lee   March 1985
    --|
    --------------------------------------------------------------------------------
begin
    Vt100.Clear_Screen;
    Put_Line ("Please enter the TRACKER filename you want created");
    Get_Line (Tracker_Filename, Filename_Lngth);
    New_Line;
    Global_Pkg.Gl_Initialize;
    Activity_Pkg.Ac_Initialize;
    Milestone_Pkg.Ms_Initialize;
    Personnel_Pkg.Pr_Initialize;
    Subsystem_Pkg.Ss_Initialize;
    Element_Pkg.El_Initialize;
    Clear_Screen;
end Initialize_Tracker_Data;