1 /* BEGIN fortran_open_data.incl.pl1
 2 
 3    Created:         16 May 1977 by David Levin.
 4 
 5    Modified:
 6                     04 Feb 86, SH & AG - 490: changed file_status field to
 7                               fixed bin (3) to accomodate the addition of
 8                               a new value "append".
 9                     12 Oct 81, MEP - changed blank field (level 2) to correct declaration
10                     2 Sept 81, MEP - added file_status field
11                     7 August 81, MEP - added blank_null field
12                     5 July 1977, DSL - add status field as first field.
13 */
14 
15 
16 /****^  HISTORY COMMENTS:
17   1) change(86-07-14,BWong), approve(86-07-14,MCR7382), audit(86-07-17,Ginter),
18      install(86-07-28,MR12.0-1105):
19      Fix fortran bug 490 (SCP6284).
20                                                    END HISTORY COMMENTS */
21 
22 
23 dcl       1 fortran_open_data           aligned based(addr(fortran_buffer_.buf)) structure,
24 
25             2 specified                 unaligned structure,
26               3 status                  bit(1),
27               3 io_switch               bit(1),
28               3 attach_desc             bit(1),
29               3 filename                bit(1),
30               3 mode                    bit(1),
31               3 access                  bit(1),
32               3 form                    bit(1),
33               3 recl                    bit(1),
34               3 binary                  bit(1),
35               3 prompt                  bit(1),
36               3 carriage                bit(1),
37               3 defer                   bit(1),
38               3 blank                   bit(1),
39 
40               3 converted_values,
41                 4 direction,
42                   5 in                  bit(1),
43                   5 out                 bit(1),
44                 4 direct_access         bit(1),
45                 4 formatted_records     bit(1),
46                 4 blank_null            bit (1),
47 
48               3 dfast_openfile          bit(1),
49               3 file_status             fixed binary (3) unsigned,
50               3 pad                     bit(14),
51 
52             2 status                    aligned structure,
53               3 offset                  fixed bin(17) unaligned,
54               3 length                  fixed bin(17) unaligned,
55 
56             2 io_switch                 aligned structure,
57               3 offset                  fixed bin(17) unaligned,
58               3 length                  fixed bin(17) unaligned,
59 
60             2 attach_desc               aligned structure,
61               3 offset                  fixed bin(17) unaligned,
62               3 length                  fixed bin(17) unaligned,
63 
64             2 filename                  aligned structure,
65               3 offset                  fixed bin(17) unaligned,
66               3 length                  fixed bin(17) unaligned,
67 
68             2 mode                      aligned structure,
69               3 offset                  fixed bin(17) unaligned,
70               3 length                  fixed bin(17) unaligned,
71 
72             2 access                    aligned structure,
73               3 offset                  fixed bin(17) unaligned,
74               3 length                  fixed bin(17) unaligned,
75 
76             2 form                      aligned structure,
77               3 offset                  fixed bin(17) unaligned,
78               3 length                  fixed bin(17) unaligned,
79 
80             2 max_rec_len               fixed bin,
81 
82             2 binary                    bit(1),
83             2 prompt                    bit(1),
84             2 carriage                  bit(1),
85             2 defer                     bit(1),
86             2 blank                     aligned structure,
87               3 offset                  fixed bin(17) unaligned,
88               3 length                  fixed bin(17) unaligned,
89 
90             2 char_str                  char(1024) varying;
91 
92 /* END   fortran_open_data.incl.pl1 */