1 /* BEGIN INCLUDE FILE mrds_database_openings.incl.pl1 - - Jim Gray July 1979 */
 2 
 3 /* DESCRIPTION:
 4 
 5    used by dsl_$list_openings to return an array of database opening information,
 6    the mrds_databases opened for the calling process have their opening index
 7    and opening model or submodel pathname returned in the array
 8 
 9 */
10 
11 /* HISTORY:
12    80-12-08 Rickie E. Brinegar: added the opening mode to the structure. Taken
13    from mrds_database_list.incl.pl1
14 
15    81-01-27 Jim Gray : changed name to mrds_database_openings in process of adding
16    structure version information, plus pad bits after extending info
17    to include whether opening was via a model or submodel.
18 */
19 
20 declare 1 mrds_database_openings aligned based (mrds_database_openings_ptr), /* array of paths/indexes */
21         2 version fixed bin,                                /* the version number of this structure */
22         2 number_open fixed bin,                            /* total open by this process */
23         2 mbz1 bit (36) unal,
24         2 db (mrds_database_openings_num_open_init
25          refer (mrds_database_openings.number_open)),       /* array of open db info */
26           3 index fixed bin (35),                           /* database opening index */
27           3 path char (168),                                /* model or submodel opening pathname */
28           3 mode char (20),                                 /* opening mode of the database */
29           3 model bit (1) unal,                             /* on => opened via the model */
30           3 submodel bit (1) unal,                          /* on => opened via a submodel */
31           3 mbz2 bit (34) unal ;
32 
33 declare  mrds_database_openings_ptr ptr ;                   /* points to array of indexes/pathnames */
34 
35 declare  mrds_database_openings_num_open_init fixed bin ;   /* total number open by this process */
36 
37 declare  mrds_database_openings_structure_version fixed bin int static options (constant) init (1) ; /* current version */
38 
39 /* END INCLUDE FILE mrds_database_openings.incl.pl1 */
40