1 /* BEGIN INCLUDE FILE dm_specification_head.incl.pl1 */
 2 
 3 /* HISTORY:
 4 Written by Matthew Pierret, 05/11/83. (Extracted from dm_specification.incl.pl1)
 5 Modified:
 6 05/20/83 by Matthew Pierret: Changed to use version 4.
 7 */
 8 
 9 /* format: style2,ind3 */
10      dcl     1 specification_head   based (specification_head_ptr),
11                2 version            fixed bin (35),
12                2 type               fixed bin (17) unal,
13                2 pad                bit (18) unal,
14                2 subset_specification_ptr
15                                     ptr;
16 
17 
18      dcl     specification_head_ptr ptr;
19      dcl     SPECIFICATION_VERSION_4
20                                     init (4) fixed bin (35) internal static options (constant);
21 
22      dcl     (
23              SEARCH_SPECIFICATION_TYPE
24                                     init (1),
25              ABSOLUTE_SEARCH_SPECIFICATION_TYPE
26                                     init (1),
27              NUMERIC_SPECIFICATION_TYPE
28                                     init (2),
29              ABSOLUTE_NUMERIC_SPECIFICATION_TYPE
30                                     init (2),
31              RELATIVE_SEARCH_SPECIFICATION_TYPE
32                                     init (3),
33              RELATIVE_NUMERIC_SPECIFICATION_TYPE
34                                     init (4),
35              ABSOLUTE_RELATION_SEARCH_SPECIFICATION_TYPE
36                                     init (5),
37              RELATIVE_RELATION_SEARCH_SPECIFICATION_TYPE
38                                     init (6),
39              ABSOLUTE_RELATION_NUMERIC_SPECIFICATION_TYPE
40                                     init (7),
41              RELATIVE_RELATION_NUMERIC_SPECIFICATION_TYPE
42                                     init (8)
43              )                      fixed bin (17) internal static options (constant);
44 
45 
46 /* END INCLUDE FILE dm_specification_head.incl.pl1 */