1 /* BEGIN INCLUDE FILE  - mrds_dsm_submodel_info.incl.pl1 */
 2 
 3 /*
 4    This  include   file   contains   the   structure   returned   by
 5    msmi_$get_submodel_info.  This  include  file is a user interface
 6    and should not be used by any mrds routine  except  mrds_dsm_msmi
 7    (msmi_).
 8 
 9    HISTORY:
10 
11    81-04-03 Davids: coded
12 */
13 
14 
15 dcl 01 mrds_dsm_submodel_info based (mrds_dsm_submodel_info_ptr),
16     02 version fixed bin,                                   /* version of this structure */
17     02 submodel_version fixed bin,                          /* version of the submodel */
18     02 database_path char (168),                            /* absolute path of the database that the submodel refers to */
19     02 submodel_path char (168),                            /* absolure path of the submodel (may be a link) */
20     02 date_time_created fixed bin (71),                    /* date-time submodel was created in standard format */
21     02 creator_id char (32);                                /* Person.Project.Tag of the submodel creator */
22 
23 dcl  mrds_dsm_submodel_info_ptr ptr;                        /* pointer to the structure */
24 
25 dcl  mrds_dsm_submodel_info_structure_version fixed bin init (1) internal static options (constant);
26 
27 /* END INCLUDE FILE -  mrds_dsm_submodel_info.incl.pl1 */
28