separate (Tracker.Activity_Pkg)



procedure Ac_Save is
    ------------------------------------------------------------------------------
    --|
    --|  NAME:  AC_SAVE
    --|
    --|  OVERVIEW:
    --|    This procedure saves a record to file by calling the AC_WRITE
    --|    procedure.  The generic procedures START_WALK and WALK are called
    --|    to walk the linked list allowing one record at a time to be written.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ------------------------------------------------------------------------------
    End_List : Boolean := False;
    Ac_Record : Activity_Pointer;

    procedure Ac_Write is separate;

begin
    Start_Walk (Ac_List);

    loop
        Walk (Ac_List, Ac_Record, End_List);
        exit when End_List;
        Ac_Write;
    end loop;
end Ac_Save;