1
2
3 dcl char_info_ptr pointer;
4
5 dcl 1 graphic_char_structure aligned based (char_info_ptr),
6 2 header_word aligned,
7 3 (n_elements,
8 width,
9 left_margin,
10 right_margin) fixed bin (8) unaligned,
11 2 word_align aligned,
12 3 move_type (0 refer (graphic_char_structure.n_elements)) bit (1) unaligned,
13 2 coords (0 refer (graphic_char_structure.n_elements)) unaligned,
14 3 (x_length,
15 y_length) fixed bin (8) unaligned;
16
17 dcl coords_ptr pointer;
18
19 dcl 1 coord_struc (graphic_char_structure.n_elements) based (coords_ptr) unaligned like graphic_char_structure.coords;
20
21 dcl 1 v1_graphic_char_structure aligned based (char_info_ptr),
22 2 v1_n_elements fixed bin,
23 2 elements (0 refer (v1_graphic_char_structure.v1_n_elements)) aligned,
24 3 v1_move_type fixed bin,
25 3 v1_x_length fixed bin,
26 3 v1_y_length fixed bin;
27
28