1 /* BEGIN INCLUDE FILE gfms_do_files.incl.pl1   (Wardd Multics)  10/19/80 2212.5 mst Sun */
 2 
 3 /* Hash list of files specified in -file, -no_file
 4    control arguments and in the file designated by
 5    the -input_file.
 6 */
 7 dcl 1 file_names              aligned based(inp)
 8 ,     3 number_names          fixed bin
 9 ,     3 cat_start             (0:1020)fixed bin
10 ,     3 file_start            (0:1020)fixed bin
11 ,     3 file_name             (4500)
12 ,       4 not                 bit(1)unal
13 ,       4 fill                bit(17)unal
14 ,       4 link                fixed bin(17)unal
15 ,       4 name                char(168)var
16 ;
17 
18 /*   END INCLUDE FILE gfms_do_files.incl.pl1 */