1 
 2 /* ^L */
 3 /* BEGIN INCLUDE..............imp_ms...................... */
 4 
 5 /* For IMP DIM */
 6 
 7 /* Statistics about messages */
 8 
 9 
10 dcl  imp_data$ms external aligned;
11 
12 dcl 1 ms aligned based,
13     2 message_size_histogram_max (1:12) fixed bin,          /* Max values */
14     2 filler (1:4) fixed bin (34),                          /* Just so that following starts at eight word boundary */
15     2 ms (1:2),                                             /* For read and write sides */
16       3 message_type_count (0:15) fixed bin (34),
17       3 regular_histogram (1:12),
18         4 count fixed bin (34),
19         4 total fixed bin (34),
20       3 control_histogram (1:12),
21         4 count fixed bin (34),
22         4 total fixed bin (34),
23 
24 
25     2 ncp_commands (0: 15) fixed bin (34),                  /* Counter for ncp commands processed by IMP DIM */
26     2 special_cases (1:4),
27       3 count fixed bin (34),                               /* How many times this special case happened */
28       3 last_host fixed bin (8),                            /* The host at other end for the last special case */
29       3 last_link fixed bin (8),                            /* The link for the last special case */
30     2 iipi_invoked fixed binary (34),                       /* Number of times entry "iipi" is invoked. */
31     2 iipi_blocked fixed binary (34);                       /* Number of times lock was set when iipi invoked. */
32 
33 
34 /* CONSTANTS */
35 
36 
37 dcl (read_msi init (1),
38      write_msi init (2)) fixed bin static;                  /* index to areas for read and write
39                                                                message statistics */
40 dcl  message_size_histogram_max_values (1:12) fixed binary internal static
41      initial (8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384);
42 
43 dcl 1 message_size_histogram (1:12) based aligned,
44     2 count fixed bin (34),
45     2 total fixed bin (34);
46 dcl (unwanted_regular_message_sci init (1),                 /* sci is for special case index */
47      discarded_rfnm_sci init (2),
48      ncp_header_error_read_sci init (3),
49      ncp_header_error_write_sci init (4)) fixed binary internal static;
50 
51 
52 /* END INCLUDE................imp_ms....................... */