1
2
3
4
5
6
7
8 NOTE
9
10
11
12
13
14
15
16
17
18 dcl token_ct fixed bin;
19 dcl item_size fixed bin;
20 dcl seg_p ptr init (null ());
21
22 dcl 1 time_info based (seg_p),
23 2 version char (8),
24 2 gmt_zone_index fixed bin (17),
25 2 default_language_index fixed bin (17),
26 2 date_time_keywords,
27 3 number_kwd fixed bin,
28 3 pad fixed bin,
29 3 e (the_keyword_count),
30 4 name char (32),
31 4 str char (128) var,
32 2 language_names,
33 3 number_lang fixed bin,
34 3 pad fixed bin,
35 3 name (the_language_count, the_language_count) char (32) varying,
36 2 month_names,
37 3 number_lang fixed bin,
38 3 pad fixed bin,
39 3 e (the_language_count, 12),
40 4 short char (8) var,
41 4 long char (32) var,
42 2 day_names,
43 3 number_lang fixed bin,
44 3 pad fixed bin,
45 3 e (the_language_count, 7),
46 4 short char (8) var,
47 4 long char (32) var,
48 2 offset_names,
49 3 number_lang fixed bin,
50 3 number_offset fixed bin,
51 3 e (the_language_count, the_offset_count),
52 4 short char (32) var,
53 4 plural char (32) var,
54 4 singular char (32) var,
55 4 this char (32) var,
56 2 word_names,
57 3 number_lang fixed bin,
58 3 number_word fixed bin,
59 3 short (the_language_count, the_word_count) char (8) var,
60 3 word (the_language_count, the_word_count) char (32) var,
61 2 zone_names,
62 3 number_lang fixed bin,
63 3 number_zone fixed bin,
64 3 e (the_language_count, zones_filled),
65 4 short char (4) var,
66 4 long char (64) var,
67 4 pad fixed bin,
68 4 delta fixed bin (71),
69 2 tokens,
70 3 count fixed bin,
71 3 ambig bit (1) aligned,
72 3 item (token_ct),
73 4 symbol char (32),
74 4 list_r bit (18) aligned,
75 3 item_space (item_size) bit (36);
76
77