1 
 2 /* BEGIN INCLUDE FILE ... cobol_type16.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 16 file name token is entered into the name table by the data
 7 division syntax phase for each sort file-name appearing in the data division.
 8 When the replacement phase processes the procedure division minpral file,
 9 each reference to a sort file-name is replaced with the type 16 token created
10 for that file name.
11 */
12 
13 /* dcl name_ptr ptr; */
14 
15 /* BEGIN DECLARATION OF TYPE16 (SORT FILE NAME) TOKEN */
16 dcl       1 sd_token based (name_ptr),
17 %include cobol_TYPE16;
18 /* END DECLARATION OF TYPE16 (SORT FILE NAME) TOKEN */
19 
20 /*
21 FIELD               CONTENTS
22 
23 size                The total size in bytes of this sd_token.
24 line                Generated sequence number of source line containing the
25                     first character of the file name reference represented
26                     by this token.  This field is filled by the replacement
27                     phase each time a reference to a file is replaced with
28                     the appropriate type 16 token.
29 column              The column number on the source image identified by
30                     line in which the name of this file begins.
31 type                16
32 string_ptr          A pointer to the next name-table entry in the same hash
33                     string.  This field is used only by the replacement
34                     phase.
35 prev_rec            A pointer to the immediately preceding name-table item.
36                     This field is used only by the replacement phase.
37 info                Information bits which are available for future use.
38 def_line            Generated source line number of defining data division
39                     entry.
40 file_no             Internal sequence number assigned to this file.
41 name_size           The length in bytes of the file name.
42 name                File name.
43 
44 */
45 
46 /* END INCLUDE FILE ... cobol_type16.incl.pl1 */
47