1 /* BEGIN mdbm_db_file_list.incl.pl1 -- odf, 8/21/78 */ 2 /* modified by Jim Gray -- 5/23/79, to add dbm_ptr to db_rdy, and fa_index to file_rdy */ 3 /* modified by Jim Gray -- June 1979, to add finish file structures */ 4 5 /* these structures are used as the parameter interface between 6 mrds_dsl_ready_file - mu_sec_make_res and 7 mrds_dsl_finish_file - mu_sec_unmake_res. */ 8 9 dcl 1 db_rdy based (dbrdy_ptr), /* ready file list header */ 10 2 dbi fixed bin (35), /* data base index */ 11 2 dbcb_ptr ptr, /* points to data base control block */ 12 2 db_model_ptr ptr, /* pointer to db_model for this db */ 13 2 frdy_ptr ptr; /* points to first in list of files to be readied */ 14 15 dcl 1 file_rdy based (frdy_ptr), /* files to be readied */ 16 2 next ptr, /* next file in list */ 17 2 name char (30), /* name of file */ 18 2 mode fixed bin, /* mode in which file is to be readied */ 19 2 file_array_index fixed bin, /* location in file array */ 20 2 file_readied bit (1) unal, /* on => we have readied this file */ 21 2 unused bit (35) unal ; /* for future use */ 22 23 24 dcl dbrdy_ptr ptr; 25 dcl frdy_ptr ptr; 26 27 dcl 1 db_fin based (dbfin_ptr), /* finish file list header */ 28 2 dbi fixed bin (35), /* data base index */ 29 2 dbcb_ptr ptr, /* points to data base control block */ 30 2 ffin_ptr ptr; /* points to first in list of files to be finished */ 31 32 dcl 1 file_fin based (ffin_ptr), /* files to be finished */ 33 2 next ptr, /* next file in list */ 34 2 name char (30), /* name of file */ 35 2 file_array_index fixed bin ; /* index of file name in resultant file array */ 36 37 38 dcl dbfin_ptr ptr; 39 dcl ffin_ptr ptr; 40 41 /* END mdbm_db_file_list.incl.pl1 */ 42