1
2
3 dcl host_table_mgr_$address entry (char (*) var, char (*) var) returns (char (40) var);
4 dcl host_table_mgr_$host_list entry (char (*) var) returns (ptr);
5 dcl host_table_mgr_$name_given_address entry (char (*) var, char (*) var) returns (char (40) var);
6 dcl host_table_mgr_$net_list entry (char (*) var) returns (ptr);
7 dcl host_table_mgr_$primary_name entry (char (*) var) returns (char (40) var);
8 dcl host_table_mgr_$shortest_name entry (char (*) var) returns (char (40) var);
9
10 dcl nit_$get_forwarding_host entry (varying char (*), varying char (*)) returns (varying char (40));
11 dcl nit_$get_service_list entry (varying char(*), varying char (*)) returns (ptr);
12
13 dcl net_list_ptr ptr;
14 dcl n_nets fixed bin;
15 dcl NET_LIST_VERSION_2 char (8) aligned static options (constant) init ("hnetlst1");
16 dcl 1 net_list aligned based (net_list_ptr),
17 2 version char (8),
18 2 n_nets fixed bin,
19 2 net (n_nets refer (net_list.n_nets)),
20 3 number fixed bin,
21 3 name varying char (40),
22 3 address varying char (40);
23
24 dcl host_list_ptr ptr;
25 dcl n_hosts fixed bin;
26 dcl HOST_LIST_VERSION_2 char (8) aligned static options (constant) init ("hostlst2");
27 dcl 1 host_list aligned based (host_list_ptr),
28 2 version char (8),
29 2 n_hosts fixed bin,
30 2 host (n_hosts refer (host_list.n_hosts)),
31 3 name varying char (40);
32
33 dcl n_services fixed bin;
34 dcl service_list_ptr ptr;
35 dcl 1 service_list aligned based (service_list_ptr),
36 2 version char (4),
37 2 n_services fixed bin,
38 2 service (n_services refer (service_list.n_services)),
39 3 type char (8),
40 3 module varying char (168),
41 3 argument varying char (168);
42
43