1 
 2 /* BEGIN INCLUDE FILE ... cobol_file_key.incl.pl1 */
 3 /* Last modified on 03/30/78 by FCH */
 4 
 5 /*
 6 A file key record is created in variable common for any one of several
 7 data items which may be associated with a file name.  The key_type field in
 8 the file key record identifies the type of item for which the record is
 9 created.  The name in a file key record is resolved by the replacement
10 phase, and a section of the type 9 entry in the name table for the
11 specified data item is stored in the file key record.  The stored
12 description is subsequently used by the generator phase.
13 */
14 
15 /*   THE FILE KEY RECORD STRUCTURE   */
16 
17 dcl       1 file_key based (fkey_ptr),
18                     2 next char(5),
19                     2 next_alt char(5),
20                     2 qual char(5),
21                     2 info,
22                     3 duplicates bit(1),
23                     3 filler bit(7),
24                     2 file_no fixed bin,
25                     2 key_type fixed bin,
26                     2 line fixed bin,
27                     2 column fixed bin,
28                     2 temp_seg fixed bin,
29                     2 temp_offset fixed bin(24),
30                     2 desc char(40),
31                     2 name_size fixed bin,
32                     2 name char(0 refer(file_key.name_size));
33 
34 /* END INCLUDE FILE ... cobol_file_key.incl.pl1 */
35