1 /*        BEGIN INCLUDE FILE probe_request_table.incl.pl1 */
 2 /*        Created (from subsystem_request_table) 04/08/79 W. Olin Sibert */
 3 
 4 /*        Structures defining the request table used by probe */
 5 
 6 dcl 1 probe_request_table aligned based (probe_request_table_ptr),
 7     2 version fixed binary,
 8     2 name character (32),                                  /* name of this table */
 9     2 flags,                                                /* none yet, just room for expansion */
10       3 pad1 (6) bit (36) unaligned,
11     2 n_requests fixed binary,
12     2 requests (0 refer (probe_request_table.n_requests)) like probe_request_info aligned;
13 
14 
15 dcl 1 probe_request_info aligned based (probe_request_info_ptr), /* info about one request */
16     2 code_loc bit (18) unaligned,                          /* -> (RTBOS) code sequence to invoke request */
17     2 namelist_loc bit (18) unaligned,                      /* -> (RTBOS) list of names for this request */
18     2 info_string,
19       3 loc bit (18) unaligned,                             /* -> (RTBOS) short description of request */
20       3 lth fixed binary (17) unaligned,                    /* length of description (0 if none) */
21     2 usage_string,                                         /* Longer message, giving request usage info */
22       3 loc bit (18) unaligned,
23       3 lth bit (18) unaligned,
24     2 flags,
25      (3 unimplemented,                                      /* ON => request is ot yet implemented */
26       3 secret,                                             /* ON => request is not listed by "?" */
27       3 pad2,
28       3 is_request,                                         /* ON => this entry is a probe request */
29       3 is_builtin,                                         /* ON => this entry is a probe builtin */
30       3 pad (31)) bit (1) unaligned;
31 
32 
33 dcl  probe_request_table_ptr pointer;
34 dcl  probe_request_info_ptr pointer;
35 
36 dcl  probe_request_table_version fixed bin internal static options (constant) init (1);
37 
38 dcl  probe_request_table_version_1 fixed bin internal static options (constant) init (1);
39 
40 
41 dcl 1 request_namelist aligned based (request_namelist_ptr),
42     2 n_names fixed binary,
43     2 names (0 refer (request_namelist.n_names)) character (32);
44 
45 dcl  request_namelist_ptr pointer;
46 
47 
48 dcl  request_info_string char (request_info_string_lth) aligned based (request_info_string_ptr);
49 dcl  request_info_string_ptr pointer;
50 dcl  request_info_string_lth fixed bin (21);
51 
52 
53 dcl  request_usage_string char (request_usage_string_lth) aligned based (request_usage_string_ptr);
54 dcl  request_usage_string_ptr pointer;
55 dcl  request_usage_string_lth fixed bin (21);
56 
57 /*        END INCLUDE FILE probe_request_table.incl.pl1 */