DataMuseum.dk

top - metrics - download

    Length: 2332 (0x91c)
    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 Write_Data_To_File is
    --------------------------------------------------------------------------------
    --|
    --|  NAME:  WRITE_DATA_TO_FILE
    --|
    --|  OVERVIEW:
    --|    This procedure writes all of the tracker data to a text file by
    --|    calling the save procedures of each data type in a specified order.
    --|    If the file already exists, then the output text file is a new
    --|    VAX_VMS version of any existing tracker input file.
    --|
    --|    The information is stored in a sequential text file.  All of the
    --|    data is read in at the beginning of the program, manipulated,
    --|    and then written back out to the new file.
    --|
    --|    The data is stored in the file in the following order:
    --||              +-----------------------+
    --||              |      Global Data      |
    --||              +-----------------------+
    --||              |     Activity  Data    |
    --||              +-----------------------+
    --||              |     Milestone Data    |
    --||              +-----------------------+
    --||              |     Personnel Data    |
    --||              +-----------------------+
    --||              |     Subsystem Data    |
    --||              +-----------------------+
    --||              |      Element Data     |
    --||              +-----------------------+
    --|
    --|  EXCEPTIONS HANDLED:
    --|    name_error tracker file can't be created, raised to calling routine
    --|
    --|  HISTORY:
    --|    Written by   May Lee   March 1985
    --|
    --------------------------------------------------------------------------------
begin
    New_Line;
    Put_Line (" Writing the data to file.... ");
    New_Line;
    -- create the output file to write the data to
    Create (Output_File, Out_File, Tracker_Filename, "");
    Global_Pkg.Gl_Save;
    Activity_Pkg.Ac_Save;
    Milestone_Pkg.Ms_Save;
    Personnel_Pkg.Pr_Save;
    Subsystem_Pkg.Ss_Save;
    Element_Pkg.El_Save;
    Close (Output_File);
exception
    when Name_Error =>
        New_Line (2);
        Put ("Sorry, tracker file ");
        Put (Tracker_Filename (1 .. Filename_Lngth));
        Put (" cannot be created. ");
        New_Line (2);
        raise;
end Write_Data_To_File;