1 
 2 /*
 3           User's ARPAnet message control segment for RSEXEC links
 4  */
 5 
 6           declare
 7                     1 users_link_table based (ARPAseg_ptr),  /* ULT segment */
 8                       2 lock                      bit(36) aligned,
 9                       2 link_notice_channel       fixed binary(71),
10                       2 servers_network_uid       fixed bin (24),
11                       2 linkees_process_id        bit(36) aligned,
12                       2 number_of_links           fixed binary(17),
13                       2 last_source_identifier    fixed binary(35),
14                       2 links(5) aligned,
15                         3 listener_id                       fixed binary(35),
16                         3 link_identifier                   fixed binary(35),
17                         3 foreign_host_number               fixed binary(8),
18                         3 receive_socket,
19                           4 receive_pin_no                            fixed binary(8),
20                           4 receive_socket_index                      bit(36),
21                           4 receive_iocb_ptr                          pointer,
22                           4 receive_foreign_socket                    bit(41),
23                         3 send_socket,
24                           4 send_pin_no                               fixed binary(8),
25                           4 send_socket_index                         bit(36),
26                           4 send_iocb_ptr                             pointer,
27                           4 send_foreign_socket                       bit(41);
28