DataMuseum.dk

top - metrics - download

    Length: 1335 (0x537)
    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_Modify)
procedure Modify_Milestone_Key is
    --|
    --|  NAME:  MODIFY_MILESTONE_KEY
    --|
    --|  OVERVIEW:
    --|    This procedure is called when the milestone number is modified.
    --|    The user is prompted for a new unique key by calling the Prompt_Pkg
    --|    function.  The milestone number must be changed in the milestone
    --|    record, the search key for the milestone list, and the field of the
    --|    element record for each element in the milestone's element list.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ---------------------------------------------------------------------------
    Blank_Key : Ms_Num_Type;         -- to blank out the key
    New_Number : Ms_Num_Type;         -- replacement ms

begin
    -- Change the key in the milestone list...

    -- get the new ms number
    New_Number := Prompt_Pkg.New_Milstone_Number;

    -- change milestone num in each element record of the ms_el_list
    Change_Ms_In_El (Ms_Record, New_Number);

    -- change the search key in the milestone list
    Change_List_Key (Ms_List, Ms_Record.Number, New_Number);

    -- change number in the milestone record
    Ms_Record.Number := New_Number;

end Modify_Milestone_Key;