1 /* BEGIN INCLUDE FILE mdbm_sec_items.incl.pl1 -- jccj 5/1/78 */
 2 /* modified by Mary Ward - October, 1979 */
 3 
 4 dcl 1 sec_items aligned based (si_ptr),                     /* file, rel or att names to be secured */
 5     2 pathname char (168) unaligned,                        /* absolute pathname of data base directory */
 6     2 acs_dir char (168) unaligned,                         /* absolute pathname of acs_dir */
 7     2 user_id char (32) unaligned,                          /* id of current user */
 8     2 dbm_ptr ptr,                                          /* point to db_model or null (for user calls) */
 9     2 file_flag bit (1) unal,                               /* file control arg was specified */
10     2 rel_flag bit (1) unal,                                /* relation control arg was specified */
11     2 att_flag bit (1) unal,                                /* attribute control arg was specified */
12     2 pad bit (33) unal,
13     2 nargs fixed bin unal,
14     2 att_nargs fixed bin unal,
15     2 rel_nargs fixed bin unal,
16     2 file_nargs fixed bin unal,
17     2 name (si_nargs_init refer (sec_items.nargs)),
18       3 att char (96),                                      /* rel_name.att_att or rel_att */
19       3 rel char (63),                                      /* rel names or file names */
20       3 file char (30);                                     /* file names */
21 
22 dcl  si_ptr ptr;
23 dcl  si_nargs_init fixed bin;
24 
25 /* END INCLUDE FILE mdbm_sec_items.incl.pl1 */