
  PROCEDURE [INLINE] nap$find_server_attributes
    (    application_name: nat$application_name;
     VAR server_attributes: ^nat$server_attributes);

?? PUSH (LISTEXT := ON) ??
{ It is assumed that the server_attributes_list has been locked by the caller.

    server_attributes := nav$server_attributes_list.server_attributes;
    WHILE (server_attributes <> NIL) AND (server_attributes^.server <>
          application_name) DO
      server_attributes := server_attributes^.next_entry;
    WHILEND;

  PROCEND nap$find_server_attributes;

*copyc nat$server_attributes
*copyc nat$application_name
?? POP ??
