1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1983 *
 4    *                                                         *
 5    *********************************************************** */
 6 /* BEGIN INCLUDE FILE  -  vu_print_vector_array.incl.pl1 */
 7 /* Written by Matthew C. Pierret, 01/21/82
 8 Modified:
 9 */
10 
11 /* format: style2,ind3 */
12      dcl     1 print_vector_array   based (print_vector_array_ptr),
13                2 version            fixed bin (35),
14                2 number_of_dimensions
15                                     fixed bin (17),
16                2 maximum_dimension_name_length
17                                     fixed bin (17),
18                2 number_of_vectors  fixed bin (17),
19                2 number_of_vector_slots
20                                     fixed bin (17),
21                2 dimension_table    (pva_number_of_dimensions refer (print_vector_array.number_of_dimensions)),
22                  3 name             char (pva_maximum_dimension_name_length
23                                     refer (print_vector_array.maximum_dimension_name_length)) varying,
24                  3 descriptor_ptr   ptr,
25                  3 cv_to_print      entry (ptr, fixed bin (17), fixed bin (17), ptr, ptr, fixed bin (35)),
26                  3 cv_to_typed      entry (ptr, fixed bin (17), fixed bin (17), ptr, ptr, fixed bin (35)),
27                  3 maximum_value_length
28                                     fixed bin (17),
29                2 vector_slot        (pva_number_of_vector_slots refer (print_vector_array.number_of_vector_slots)) ptr;
30 
31      dcl     1 print_vector         based (print_vector_ptr),
32                2 number_of_dimensions
33                                     fixed bin (17),
34                2 maximum_value_length
35                                     fixed bin (35),
36                2 dimension          (pv_number_of_dimensions refer (print_vector.number_of_dimensions)),
37                  3 identifier       fixed bin (17),
38                  3 value            char (pv_maximum_value_length refer (print_vector.maximum_value_length)) varying;
39 
40      dcl     pva_number_of_dimensions
41                                     fixed bin;
42      dcl     pva_number_of_vector_slots
43                                     fixed bin;
44      dcl     pva_maximum_dimension_name_length
45                                     fixed bin;
46      dcl     pv_number_of_dimensions
47                                     fixed bin;
48      dcl     pv_maximum_value_length
49                                     fixed bin;
50 
51      dcl     print_vector_array_ptr ptr;
52      dcl     print_vector_ptr       ptr;
53      dcl     PRINT_VECTOR_ARRAY_VERSION_2
54                                     fixed bin (35) init (2) internal static options (constant);
55 
56 /* END INCLUDE FILE  -  vu_print_vector_array.incl.pl1 */