
  PROCEDURE [XREF] nap$define_server
    (    server: nat$application_name;
         selected_titles: ^nat$selected_titles_list;
         server_managed_titles: ^nat$title_pattern_list;
         max_connections: nat$number_of_connections;
         connection_priority: nat$network_message_priority;
         server_capability: ost$name;
         server_ring: ost$ring;
         server_system_privilege: boolean;
         accept_connection: boolean;
         client_validation_capability: ost$name;
         client_info_source: nat$client_info_source;
         client_addresses: ^array [1 .. * ] of nat$client_address,
         reserved_application_id: boolean;
         application_id: nat$internet_sap_identifier;
         protocol: nat$protocol;
         nam_initiated_server: boolean;
         server_job: amt$local_file_name;
         server_job_validation_source: nat$server_validation_source,
         server_job_max_connections: nat$number_of_connections;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc nat$application_name
*copyc nat$internet_sap_identifier
*copyc nat$network_address
*copyc nat$network_message_priority
*copyc nat$number_of_connections
*copyc nat$protocol
*copyc nat$server_attributes
*copyc nat$title_pattern_list
*copyc osd$virtual_address
*copyc ost$name
*copyc ost$status
?? POP ??

