1 /* BEGIN INCLUDE FILE - mrds_vector_init.incl.pl1 */
 2 
 3 /*
 4 
 5                           BEGIN_DESCRIPTION
 6 
 7 This include file contains the sturcture definitions necessary to initialize
 8 an empty vector for mrds.  They will be used in simple assignment statements
 9 of the form
10 
11 simple_typed_vector = SIMPLE_TYPED_VECTOR_INIT;
12 
13 to initialize the entire structure to the values mrds needs, in one fail
14 swoop.
15 
16                            END_DESCRIPTION
17 
18 HISTORY:
19 
20    82-09-13 Mike Kubicar : Initially created by editting L. Spratt's
21    vu_typed_vector.incl.pl1 file
22 
23 */
24 
25 
26      dcl     1 SIMPLE_TYPED_VECTOR_INIT  int static options (constant),
27                2 type                    fixed bin (17) unal init (3),
28                2 number_of_dimensions
29                                          fixed bin (17) unal init (256),
30                2 dimension               (256),
31                  3 value_ptr             ptr unaligned init ((256) null ());
32 
33      dcl     1 GENERAL_TYPED_VECTOR_INIT  int static options (constant),
34                2 type                     fixed bin (17) unal init (2),
35                2 number_of_dimensions     fixed bin (17) unal init (256),
36                2 dimension                (256),
37                  3 identifier       fixed bin (17) unal init ((256) 0),
38                  3 pad              bit (18) unal init ((256) ("0"b)),
39                  3 value_ptr        ptr unal init ((256) null ());
40 
41 /* END INCLUDE FILE - vu_typed_vector.incl.pl1 */