1
2
3
4
5
6
7
8
9
10 dcl create_domain_info_count fixed bin (17);
11 dcl create_domain_info_ptr ptr;
12 dcl create_domain_info_version_1 char (8) int static options (constant) init ("cdi 1.0");
13
14 dcl 1 create_domain_info based (create_domain_info_ptr),
15 2 version char (8),
16 2 count fixed bin (17),
17 2 domain (create_domain_info_count refer (create_domain_info.count)),
18 3 name char (32),
19 3 descriptor bit (36),
20 3 decode_declare_data_descriptor bit (36),
21 3 check_proc_path char (168),
22 3 decode_proc_path char (168),
23 3 encode_proc_path char (168);
24
25