1
2
3 dcl 1 inq_field_names based (inq_field_names_ptr) aligned,
4 2 version char (8),
5 2 name_count fixed bin (17),
6 2 name (inq_max_field_count
7 refer (inq_field_names.name_count))
8 char (32);
9 dcl inq_field_names_ptr ptr;
10 dcl inq_field_names_version_1
11 char (8) int static options (constant)
12 init ("inqfn_01");
13
14 dcl 1 inq_field_values based (inq_field_values_ptr) aligned,
15 2 version char (8),
16 2 entry_count fixed bin (17),
17 2 value_count fixed bin (17),
18 2 entry (inq_fv_size
19 refer (inq_field_values.entry_count)),
20 3 value (inq_max_field_count
21 refer (inq_field_values.value_count))
22 char (200) varying;
23 dcl inq_field_values_ptr pointer;
24 dcl inq_field_values_version_1
25 char (8) int static options (constant)
26 init ("inqfv_01");
27 dcl inq_fv_size fixed bin (17);
28
29 dcl 1 inq_field_privacies based (inq_field_privacies_ptr) aligned,
30 2 version char (8),
31 2 value_count fixed bin (17),
32 2 value (inq_max_field_count
33 refer (inq_field_privacies.value_count))
34 bit (1);
35 dcl inq_field_privacies_ptr
36 ptr;
37 dcl inq_field_privacies_version_1
38 char (8) int static options (constant)
39 init ("inqfp_01");
40
41 dcl 1 inq_bad_fields based (inq_bad_fields_ptr) aligned,
42 2 version char (8),
43 2 field (inq_max_field_count)
44 bit (1) unaligned;
45 dcl inq_bad_fields_ptr ptr;
46 dcl inq_bad_fields_version_1 char (8) int static
47 options (constant) init ("inqbf_01");
48
49 dcl inq_max_field_count fixed bin init (30);
50
51
52 dcl 1 inq_userids_array based (inq_userids_array_ptr) aligned,
53 2 version char (8),
54 2 userids (inq_userids_count) char (20);
55 dcl inq_userids_array_ptr ptr;
56 dcl inq_userids_count fixed bin;
57 dcl inq_userids_array_version_1
58 char (8) int static options (constant)
59 init ("inqua_01");
60
61 dcl inquire_data_$field_count
62 fixed bin external;
63
64