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