1 2 /* BEGIN INCLUDE FILE ... cobol_fsbskel.incl.pl1 */ 3 4 5 /****^ HISTORY COMMENTS: 6 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8090), 7 audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 8 MCR8090 cobol_fsbskel.incl.pl1 Disallow duplicate prime keys in Indexed 9 Sequential files. 10 END HISTORY COMMENTS */ 11 12 13 /* Modified on 12/19/84 by FCH */ 14 /* Last Modified on Oct. 16, 1978 by FCH */ 15 16 dcl 1 fsbskel aligned based, 17 2 iocb_ptr ptr, 18 2 open_mode fixed bin (35), 19 2 max_cra_size fixed bin (35), 20 2 relkeylen fixed bin (35), 21 2 relkey fixed bin (35), 22 2 keylen_sw fixed bin (35), 23 2 key char (256) aligned, 24 2 open_close_name char (65) unal, 25 2 attach_flag bit (1) unal, /* only cobol_control seems to use this item */ 26 2 linage_counter char (8) aligned, 27 2 indicators, 28 3 optional bit (2), 29 3 opened bit (1), /* initialized to "" by 5.3 and previous versions */ 30 3 internal bit (1) unal, /* initialized to "" by 5.3 and previous versions */ 31 3 lock bit (1) unal, 32 3 mod1 bit (1) unal, 33 2 vfile_open_mode fixed bin (35), 34 2 file_desc_ptr ptr, 35 2 cobol_open_mode fixed bin (35), 36 2 last_cobol_op fixed bin (35), 37 2 code fixed bin (35); 38 39 /* 40 41 FIELD CONTENTS 42 43 iocb_ptr pointer to iocb, set by open 44 opened file opened at least once 45 internal 0 if external, 1 if internal 46 lock 0 if no lock, 1 if lock, reset by start of new 47 run unit 48 mod1 set to "1"b if the fsb contains the key of the 49 last record read from the file, present in 5.3 50 and subsequent versions 51 file_desc_ptr pointer to the file description 52 vfile_open_mode open mode established by iox_$open 53 1,2,3 stream_(i o i-o) 54 4,5,6,7 seq_(i o i-o u) 55 8,9,10 k_s_(i o u) 56 11,12,13 d_(i o u) 57 cobol_open_mode open mode established by open statement 58 21 i, seq 59 53 o, seq 60 37 i-o, seq 61 5 e, seq 62 63 25,26,27 i, rel(seq,ran,dyn) 64 57,58,59 o, rel(seq,ran,dyn) 65 41,42,43 i-o,rel(seq,ran,dyn) 66 67 29,30,31 i, ind(seq,ran,dyn) 68 61,62,63 o, ind(seq,ran,dyn) 69 45,46,47 i-o, ind(seq,ran,dyn) 70 last_cobol_op COBOL I/O statement last executed 71 1 open 5 read key 72 2 close 6 rewrite 73 3 start 7 delete 74 4 read next 8 write 75 code last vfile_ error code 76 */ 77 78 /* END INCLUDE FILE ... cobol_fsbskel.incl.pl1 */ 79