1 /*  BEGIN INCLUDE   dm_typed_vector_list.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Written by R. Harvey, 09/24/82
 4 Modified:
 5 09/27/82 by Matthew Pierret:  Changed "max" to "maximum", tvl_number_of_vectors
 6             to tvl_maximum_number_of_vectors.
 7 */
 8 
 9 /* format: style2,ind3 */
10      dcl     1 typed_vector_list    aligned based (typed_vector_list_ptr),
11                2 version            fixed bin (17),
12                2 maximum_number_of_vectors
13                                     fixed bin (35),         /* vectors available */
14                2 number_of_vectors  fixed bin (35),         /* number of vector_ptrs used */
15                2 pad                fixed bin (35),         /* (even word boundary) */
16                2 vector_ptr         (tvl_maximum_number_of_vectors refer (typed_vector_list.maximum_number_of_vectors)) ptr;
17 
18      dcl     typed_vector_list_ptr  ptr;
19      dcl     TYPED_VECTOR_LIST_VERSION_1
20                                     fixed bin (17) int static options (constant) init (1);
21      dcl     tvl_maximum_number_of_vectors  fixed bin (35);
22 
23 /*  END INCLUDE     dm_typed_vector_list.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */