DataMuseum.dk

top - metrics - download

    Length: 2726 (0xaa6)
    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.Element_Pkg.El_Modify)
procedure Modify_Element_Key is
    ---------------------------------------------------------------------------
    --|
    --|  NAME:  MODIFY_ELEMENT_KEY
    --|
    --|  OVERVIEW:
    --|    This procedure is called when the element description abbreviation
    --|    is modified.  The user is prompted for a new unique key by calling
    --|    the Prompt_Pkg function.  The element key must be changed in the
    --|    element record, the search key for the element list, and the search
    --|    key for each data type's element list.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    If an error is detected in finding the element in any of the
    --|    data's element list, a message is output to the screen only.
    --|    There is no data recovery or termination performed.
    ---------------------------------------------------------------------------

    Blank_Key : El_Key_Type := (others => ' ');  -- to blank out key
    Found : Boolean;     -- found in list
    New_Key : El_Key_Type := (others => ' ');  -- to get the new key

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

    -- get the new key ( only a valid unique key will be returned )
    New_Key := Prompt_Pkg.New_Ele_Key;

    -- change key in element data record
    El_Record.Desc_Key := New_Key;

    -- got a valid key, change the old_key to the new key in the element list
    Change_List_Key (El_List, Key, New_Key);

    -- change the element key in the milestone's el list for the milestone
    -- belonging to the modified element
    Find (Ms_List, El_Record.Milestone_Num, Ms_Record, Found);

    if Found then
        Change_List_Key (Ms_Record.Element_List, Key, New_Key);
    else
        Put_Line
           (" Error in modify element - could not find el in the ms_el list ");
    end if;

    -- change the element key in the person's el list for the person
    -- belonging to the modified element
    Find (Pr_List, El_Record.Person_Initials, Pr_Record, Found);

    if Found then
        Change_List_Key (Pr_Record.Element_List, Key, New_Key);
    else
        Put_Line
           (" Error in modify element - could not find el in the pr_el list ");
    end if;

    -- change the element key in the subsystem's el list for the subsystem
    -- belonging to the modified element
    Find (Ss_List, El_Record.Subsystem_Name, Ss_Record, Found);

    if Found then
        Change_List_Key (Ss_Record.Element_List, Key, New_Key);
    else
        Put_Line
           (" Error in modify element - could not find el in the ss_el list ");
    end if;
end Modify_Element_Key;