1 /* BEGIN INCLUDE FILE mrds_path_info.incl.pl1 - -  Jim Gray 81-01-22 */
 2 
 3 /* HISTORY:
 4 
 5    81-01-22 Jim Gray : originaly created for the dsl_$get_path_info interface,
 6    a slight extension to the undocumented mrds_dsl_get_version$header.
 7 
 8 */
 9 
10 /* DESCRIPTION:
11 
12    This structure returns information about a relative pathname, given
13    to a pathname accepting mrds interface. The information returned
14    is the absolute pathname, plus in the case that
15    the relative path points to a mrds database or submodel
16    whether it is a model or a submodel, the mrds version of
17    the model or submodel, it's creator, and the time of creation.
18 
19 */
20 
21 
22 declare 1 mrds_path_info aligned based (mrds_path_info_ptr),
23         2 version fixed bin,                                /* version number for this structure */
24         2 absolute_path char (168),                         /* the absolute path from the input relative path */
25         2 type,
26           3 not_mrds bit (1) unal,                          /* on => path not to model or submodel */
27           3 model bit (1) unal,                             /* on => path to database model, thus possible .db suffix */
28           3 submodel bit (1) unal,                          /* on => path to submodel, thus possible .dsm suffix */
29           3 mbz1 bit (33) unal,
30         2 mrds_version fixed bin,                           /* the mrds version number of the model or submodel */
31         2 creator_id char (32),                             /* the person.project.tag of the creator */
32         2 creation_time fixed bin (71),                     /* convert date to binary form of time model/submodel created */
33         2 mbz2 bit (36) unal ;
34 
35 
36 declare  mrds_path_info_ptr ptr ;
37 
38 declare  mrds_path_info_structure_version fixed bin init (1) int static options (constant) ;
39 
40 /* END  INCLUDE FILE mrds_path_info.incl.pl1 */