1 dcl       1 basic_fcb         aligned based(fcb_pt),
 2           2 seg_pt            ptr,
 3           2 buffer_pt         ptr,
 4           2 owner             ptr,
 5           2 file_type         fixed bin,
 6           2 open_mode         fixed bin,
 7           2 line_pos          fixed bin,
 8           2 buffer_pos        fixed bin(21),
 9           2 margin            fixed bin,
10           2 io_ops_since_margin fixed bin(35),
11           2 last_operation    fixed bin,
12           2 buffer_length     fixed bin(21),
13           2 buffer_size       fixed bin(21),
14           2 bits              unaligned,
15             3 attached_by_us  bit(1),
16             3 opened_by_us    bit(1),
17             3 temporary_file  bit(1),
18             3 must_be_ascii   bit(1),
19             3 write_permission bit(1),
20           2 file_name         char(168);
21 
22 dcl (     undefined_file      init(1),
23           tty_file            init(2),
24           ascii_file          init(3),
25           numeric_file        init(4),
26           string_file         init(5)) fixed bin int static options (constant);
27 
28 dcl (     file_op             init(1),
29           scratch_op          init(2),
30           reset_op            init(3),
31           input_op            init(4),
32           print_op            init(5),
33           read_op             init(6),
34           write_op            init(7),
35           close_op            init(8)) fixed bin int static options (constant);
36 
37 dcl (     Not_open            init(1),
38           Numeric_input       init(2),
39           String_input        init(3),
40           Ascii_input         init(4),
41           Numeric_input_output init(5),
42           String_update       init(6),
43           Ascii_input_output  init(7),
44           Ascii_output        init(8)) fixed bin static options (constant);
45 
46 dcl       open_types (8) init (-1, 1, 4, 1, 3, 7, 3, 2) fixed bin static options (constant);
47 
48 dcl (     stream_input        init(1),
49           stream_output       init(2),
50           stream_input_output init(3),
51           sequential_input    init(4),
52           sequential_update   init(7)) fixed bin static options (constant);