1 /* BEGIN INCLUDE FILE:  dm_file_status.incl.pl1 */
 2 
 3 /* format: style4,ifthenstmt,^indproc,^indcomtxt */
 4 
 5 /* DESCRIPTION:
 6 
 7    This include file contains dm_file_status, the structure of information
 8    returned by file_manager_$status. The caller should pass the addr of an
 9    automatic copy as follows:
10 
11           dcl auto_dm_file_status aligned like dm_file_status;
12           unspec (auto_dm_file_status) = "0"b;
13           auto_dm_file_status.version = DM_FILE_STATUS_VERSION_1;
14           call file_manager_$status (dirname, entryname,
15                addr (auto_dm_file_status, code);
16 */
17 /* HISTORY:
18 
19 Written by Steve Herbst, 07/06/84.
20 Modified:
21 11/07/84 by Steve Herbst: Changed in response to audit comments:
22           Reformatted history section, made version aligned.
23 12/12/84 by Steve Herbst: Changed further in response to audit comments:
24           Changed highest_ci from fixed(18) to fixed(27).
25 12/17/84 by Steve Herbst: Changed again in response to audit comments:
26           Improved journalization comments.
27 */
28 
29 
30 dcl 1 dm_file_status aligned based (dm_file_status_ptr),
31      2 version char (8),
32      2 fm_unique_id bit (36) aligned,                       /* file manager unique id */
33      2 mode bit (36) aligned,                               /* extended user's effective access to file */
34      2 date_time_created fixed bin (71),
35      2 ring_brackets (2) fixed bin (3),                     /* extended ring brackets */
36      2 switches,
37       3 (protected_sw,
38          no_concurrency_sw,
39          no_rollback_sw) bit (1) unaligned,
40       3 mbz bit (33) unaligned,
41      2 highest_ci fixed bin (27),                           /* number of highest control interval */
42      2 ci_size fixed bin (18);                              /* size in bytes (4/wd) of a control interval */
43 
44 dcl dm_file_status_ptr ptr;
45 
46 dcl DM_FILE_STATUS_VERSION_1 char (8) int static options (constant) init ("DMFLST01");
47 
48 /* END INCLUDE FILE:  dm_file_status.incl.pl1 */