1 /* BEGIN INCLUDE FILE ... cobol_fsb_type_1.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8090),
 6      audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048):
 7      MCR8090 cobol_fsb_type_1.incl.pl1 Disallow duplicate prime keys in Indexed
 8      Sequential files.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 /* Modified on 12/14/84 by FCH, [5.3-1], BUG574, save last prime key read */
13 /* Last Modified on Oct. 16, 1978 by FCH */
14 
15 
16      dcl     fsb_ptr                ptr;
17 
18      dcl     1 fsb                  based (fsb_ptr),
19                2 fsb_skel           aligned like fsbskel,
20                2 key_of_ref         fixed bin (35),
21                2 crp,
22                  3 prime_key        char (256) varying,
23                  3 alt_key          char (256) varying,
24                  3 descriptor       fixed bin (35),
25                2 last_key_read      char (256) varying;     /*[5.3-1]*/
26 
27 /*
28 
29 FIELD               CONTENTS
30 
31 key_of_ref          key of reference
32                     1 ,... ,510: alternate key
33                     511: prime key
34 crp                 current record pointer
35 prime_key           value of prime key
36                     "" designates end-of-file
37 alt_key             value of key of reference
38 descriptor          descriptor for key of reference
39 last_read_key       value of the prime key in the last record read
40 */
41 
42 /* END INCLUDE FILE ... cobol_fsb_type_1.incl.pl1 */