DataMuseum.dk

top - metrics - download

    Length: 1156 (0x484)
    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

separate (Tracker.Milestone_Pkg.Ms_Save)

procedure Ms_Write is
    --|
    --|  NAME:  MS_WRITE
    --|
    --|  OVERVIEW:
    --|    This procedure references the current record pointer.  The record
    --|    is written to one line of the output file in the following format:
    --||
    --||   +--+--+--+--+----+-------------------------+
    --||   |ms|cp|mm|dd|year|      description        |
    --||   +--+--+--+--+----+-------------------------+
    --||
    --|    See DATA_PKG for the full names of the fields and their types.
    --|    The milestone records are the third type of data to be written to the
    --|    output file.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
begin
    Put (Output_File, Ms_Record.Number, 2);  -- integer
    Put (Output_File, Ms_Record.Completion_Number, 2);  -- integer
    Put (Output_File, Ms_Record.Due_Date.Month, 2);
    Put (Output_File, Ms_Record.Due_Date.Day, 2);
    Put (Output_File, Ms_Record.Due_Date.Year, 4);
    Put (Output_File, Ms_Record.Description);  -- string
    New_Line (Output_File);
end Ms_Write;