separate (Tracker.Subsystem_Pkg)



procedure Ss_Save is
    ------------------------------------------------------------------------------
    --|
    --|  NAME:  SS_SAVE
    --|
    --|  OVERVIEW:
    --|    This procedure saves a record to file by calling the SS_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_Of_List : Boolean := False;
    Ss_Record : Subsystem_Pointer;

    procedure Ss_Write is separate;

begin
    Start_Walk (Ss_List);
    -- walk the list one subsystem at a time and write it to the file

    loop
        Walk (Ss_List, Ss_Record, End_Of_List);
        exit when End_Of_List;
        Ss_Write;
    end loop;
end Ss_Save;