1 /* BEGIN mdbm_descriptor.incl.pl1 -- jaw 5/31/78 */
 2 /* modified by Jim Gray - - Nov. 1979, to change type from fixed bin(5) to
 3    unsigned fixed bin(6), so new packed decimal data types could be handled.
 4    also the duplicate mrds_descriptor.incl.pl1 was eliminated. */
 5 
 6 dcl 1 descriptor based (desc_ptr),                          /* map of Multics descriptor */
 7     2 version bit (1) unal,                                 /* DBM handles vers. 1 only */
 8     2 type unsigned fixed bin (6) unal,                     /* data type */
 9     2 packed bit (1) unal,                                  /* on if data item is packed */
10     2 number_dims bit (4) unal,                             /* dimensions */
11     2 size,                                                 /* size for string data */
12       3 scale bit (12) unal,                                /* scale for num. data */
13       3 precision bit (12) unal,                            /* prec. for num. data */
14     2 array_info (num_dims),
15       3 lower_bound fixed bin (35),                         /* lower bound of dimension */
16       3 upper_bound fixed bin (35),                         /* upper bound of dimension */
17       3 multiplier fixed bin (35);                          /*  element separation */
18 
19 dcl  desc_ptr ptr;
20 dcl  num_dims fixed bin init (0) ;                          /* more useful form of number_dims */
21 
22 /* END mdbm_descriptor.incl.pl1 */
23 
24