1 /*   Sort Description, internal format.           */
 2 
 3 dcl 1 keys  based(work_ptr),
 4       2 version fixed bin init(1),
 5       2 number fixed bin,
 6       2 key_desc(0 refer(keys.number)),
 7         3 datatype char(8),
 8         3 len fixed bin(24),
 9         3 word_offset fixed bin(18),
10         3 bit_offset fixed bin(6),
11         3 rv     char(3),
12       2 dummy fixed bin(71);
13 
14 dcl 1 io_exits  based(work_ptr),
15       2 version fixed bin init(1),
16       2 input_file_exit entry,
17       2 output_file_exit entry,
18       2 dummy fixed bin(71);
19 
20 dcl 1 exits  based(work_ptr),
21       2 version fixed bin init(1),
22       2 compare_exit entry,
23       2 input_record_exit entry,
24       2 output_record_exit entry,
25       2 dummy fixed bin(71);
26