DataMuseum.dk

top - metrics - download

    Length: 933 (0x3a5)
    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.Activity_Pkg.Ac_Modify)


procedure Modify_Ac_Key is
    ---------------------------------------------------------------------------
    --|
    --|  NAME:  MODIFY_AC_KEY
    --|
    --|  OVERVIEW:
    --|    This procedure is called if the activity name is modified.
    --|    The name must be changed in the list search key by calling
    --|    the List_pkg procedure CHANGE_LIST_KEY, as well as in the
    --|    record data.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ---------------------------------------------------------------------------
    New_Name : Ac_Name_Type;
begin
    New_Name := Prompt_Pkg.New_Activ_Name;
    -- change the search key in the activity list
    Change_List_Key (Ac_List, Ac_Record.Name, New_Name);
    -- change the name in the record
    Ac_Record.Name := New_Name;
end Modify_Ac_Key;