1 /* BEGIN INCLUDE FILE - vu_pva_string.incl.pl1 */
 2 
 3 /* DESCRIPTION:
 4           This include file defines the pva_string  and pv_string structures.
 5      A pva_string consists of the pva_string structure followed by N pv_string
 6      structures, where N = pva_string.number_of_vectors.  The pva_string is a
 7      representation of the print_vector_array which can be permanently stored,
 8      and from which the print_vector_array can be reconstructed.
 9 */
10 
11 /* HISTORY:
12 Written by Lindsey Spratt, 07/24/83.
13 Modified:
14 */
15 
16 /* format: style2,ind3 */
17      dcl     1 pva_string           based (pva_string_ptr),
18                2 version            char (8) init (PVA_STRING_VERSION_1),
19                2 number_of_vectors  fixed bin (17) unal,
20                2 number_of_dimensions
21                                     fixed bin (17) unal,
22                2 maximum_name_length
23                                     fixed bin (17) unal,
24                2 pad                bit (18) unal,
25                2 dimension_table    (pvas_number_of_dimensions refer (pva_string.number_of_dimensions)),
26                  3 name             char (pvas_maximum_name_length refer (pva_string.maximum_name_length)) varying;
27 
28      dcl     pva_string_ptr         ptr init (null);
29      dcl     pvas_number_of_dimensions
30                                     fixed bin (17) init (0);
31      dcl     pvas_maximum_name_length
32                                     fixed bin (17) init (0);
33 
34      dcl     PVA_STRING_VERSION_1   char (8) init ("pvastr 1") internal static options (constant);
35 
36      dcl     1 pv_string            based (pv_string_ptr),
37                2 number_of_dimensions
38                                     fixed bin (17) unal,
39                2 pad                bit (18) unal,
40                2 maximum_value_length
41                                     fixed bin (35),
42                2 dimension          (pvs_number_of_dimensions refer (pv_string.number_of_dimensions)),
43                  3 identifier       fixed bin (17) unal,
44                  3 pad              bit (18) unal,
45                  3 value            char (pvs_maximum_value_length refer (pv_string.maximum_value_length)) varying;
46 
47      dcl     pv_string_ptr          ptr init (null);
48      dcl     pvs_number_of_dimensions
49                                     fixed bin (17) init (0);
50      dcl     pvs_maximum_value_length
51                                     fixed bin (35) init (0);
52 
53 /* END INCLUDE FILE - vu_pva_string.incl.pl1 */