
  PROCEDURE [XREF] nap$get_server_status
    (    server: nat$application_name;
     VAR server_status: nat$application_status;
     VAR reserved_application_id: boolean;
     VAR application_id: nat$internet_sap_identifier;
     VAR active_job_count: integer;
     VAR display_job_attributes: array [1 .. * ] of nat$display_job_attributes;
     VAR active_connection_count: nat$number_of_connections;
     VAR attempted_connection_count: integer;
     VAR rejected_connection_attempts: integer;
     VAR server_managed_title_count: nat$max_titles;
     VAR server_managed_titles: array [1 .. * ] of
          string (nac$max_title_pattern_length);
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nat$application_name
*copyc nat$application_status
*copyc nat$internet_sap_identifier
*copyc nat$number_of_connections
*copyc nat$server_attributes
*copyc nat$title
*copyc ost$status
?? POP ??
