1 /* BEGIN INCLUDE FILE mrds_dsm_display_info.incl.pl1 - - reb 05/19/81 */
 2 
 3 /* DESCRIPTION:
 4 
 5    Used to control the behavior of mrds_dsm_dmdsm.
 6 
 7 */
 8 
 9 dcl  1 mrds_dsm_display_info based (mrds_dsm_display_info_ptr),
10        2 version fixed bin (35),                           /* version number of this structure */
11        2 submodel_pathname char (168),                     /* What submodel am I working with? */
12        2 submodel_iocb_ptr ptr,                            /* To the open submodel */
13        2 rel_names_array_ptr ptr,                          /* To the array of submodel relations names */
14        2 output_iocb_ptr ptr,                              /* To the output switch */
15        2 format char (1) unal,                             /* "b" => brief format
16                                                               "c" => cmdsm format
17                                                               "l" => long format
18                                                               "r" => only submodel relation names */
19        2 char_pad char (3) unal,
20        2 access bit (1) unal,                              /* ON => display access info */
21        2 administrator bit (1) unal,                       /* ON => user is a DBA */
22        2 db_secured bit (1) unal,                          /* ON => the database is in a secure state */
23        2 submodel_secured bit (1) unal,                    /* ON => the submodel is in the secure.submodels
24                                                               directory under the database directory */
25        2 bit_pad bit (32) unal;
26 
27 dcl MRDS_DSM_DISPLAY_INFO_VERSION fixed bin (35) int static options (constant) init (1);
28                                                             /* current structure version for mrds_dsm_display_info */
29 
30 dcl mrds_dsm_display_info_ptr ptr;
31 
32 /* END INCLUDE FILE  -  mrds_dsm_display_info.incl.pl1 */