1 /* BEGIN ... dfast_line_table.incl.pl1 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(87-12-03,TLNguyen), approve(87-12-03,MCR7806),
 7      audit(87-12-10,Lippard), install(88-01-19,MR12.2-1015):
 8      _ Replace the "dfast_line_table aligned based" with "dfast_line_table
 9        aligned based (table_ptr)" and the "line (2)" array field with
10        "line (dfast_line_table.table_length)" to fixed subscript range
11        occured in the dfast_get_table_.pl1.
12                                                    END HISTORY COMMENTS */
13 
14 
15 dcl 1 dfast_line_table aligned based (table_ptr),
16     2 table_length fixed bin (21),
17     2 line (dfast_line_table.table_length),
18       3 number fixed bin,
19       3 start fixed bin (21),
20       3 num_chars fixed bin (21);
21 
22 /* END INCLUDE ... dfast_line_table.incl.pl1 */