1 /* BEGIN INCLUDE FILE fortran_job_bits.incl.pl1 */
 2 
 3 /****^  ***********************************************************
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1987 *
 6         *                                                         *
 7         *********************************************************** */
 8 
 9 
10 /****^  HISTORY COMMENTS:
11   1) change(86-07-14,BWong), approve(86-07-14,MCR7286), audit(86-07-17,Ginter),
12      install(86-07-28,MR12.0-1105):
13      Fix fortran bug 454.
14   2) change(87-06-23,RWaters), approve(87-06-23,MCR7703), audit(87-07-10,Huen),
15      install(87-08-06,MR12.1-1069):
16      Implemented SCP 6315: fortran error-handling argument.
17                                                    END HISTORY COMMENTS */
18 
19 
20 /* Modified:
21           May 15 1987 by R. Waters - SCP 6315 added debug_io bit.
22           May 23 1985 by B.Wong - 454: document internal file mode.
23           March 28 1984 by M. Mabey to install HFP support.
24           May 11 1980 by Marshall Presser to add ansi_77 bit
25           July 13 1979 by C R Davis to add fold bit.
26           May 17 1977 by David Levin to extend control_type field and add iostat_var
27 */
28 
29                2 job_bits               unaligned structure,
30                     3 error_label       bit(1),             /* if err= supplied in statement. */
31                     3 end_label         bit(1),             /* if end= supplied in statement. */
32                     3 read              bit(1),             /* if not control stmnt then read if true, write if false. */
33                     3 format            bit(2),             /* list directed-"00"b, unfmt-"01"b, fmt-"10"b, namelist-"11"b */
34                     3 mode              bit(2),             /* seq-"00"b, direct access-"01"b, string io-"10"b, internal file-"11"b */
35                     3 list              bit(1),             /* if I/O transmission includes a list. */
36                     3 control_type      bit(4),             /* see fortran_io_consts.incl.pl1 for meanings */
37                     3 mbz               bit(1),             /* to allow expansion of control_type. MUST BE ZERO */
38                     3 iostat_var        bit(1),             /* if iostat= supplied in statement */
39                     3 debug_io          bit(1),             /* if user wants cu_$cl called after an io error */
40                     3 reserved          bit(3),             /* used to be bit (4) but I stole one for debug_io. Hope they're not important :-) */
41 
42                          /* the following two fields are generated at runtime */
43 
44                     3 have_input        bit(1),             /* if buffer contains a printable input record. */
45                     3 end_of_input      bit(1),             /* if user has terminated list-dir input */
46 
47                     3 fold              bit (1),            /* if symbol names have been folded to lower case */
48                     3 ansi_77           bit(1),             /* if source has been compiled in ansii77 mode */
49                     3 hfp               bit(1),             /* if hex floating point math is to be used */
50                     3 pad               bit(13),
51 
52 /* END   fortran_job_bits.incl.pl1 */
53