1 /* BEGIN include file config_deck_data_.incl.pl1 */
 2 
 3 /* Descriptions of config_deck_data_.
 4 Keith Loepere, January 1984. */
 5 
 6 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
 7 
 8 dcl  config_deck_data_$num_described_cards fixed bin aligned ext;
 9 
10 /* The true dimension of the arrays below.  The figure of 64 is just for a
11 compiler restriction on external array sizes. */
12 
13 dcl  config_deck_data_$Config_card_field_name
14                                       (64, 14) char (12) var aligned ext;
15 
16 /* symbolic name of individual fields on card (label of field) */
17 
18 dcl  config_deck_data_$Config_card_field_type
19                                       (64, 14) bit (2) unal ext;
20 
21 /* type of value expected for this field.  Types are as in Config_deck_types
22    but where type octal implies any numeric type */
23 
24 dcl  config_deck_data_$Config_card_group_length
25                                       (64) fixed bin aligned ext;
26 
27 /* if ^= 0, how many fields are in a repeating group at the end of a card */
28 
29 dcl  config_deck_data_$Config_card_min_specifiable_fields
30                                       (64) fixed bin aligned ext;
31 
32 /* how many fields that we have descriptions for must be present */
33 
34 dcl  config_deck_data_$Config_card_name
35                                       (64) char (4) aligned ext;
36 
37 /* specifying name (first unlabeled field) for card */
38 
39 /* The last card, USER, is not a real card.  It is a slot used to refer
40      to cards we can't identify, assumed to be user defined cards. */
41 
42 dcl  config_deck_data_$Config_card_num_described_fields
43                                       (64) fixed bin aligned ext;
44 
45 /* how many fields we have descriptions for */
46 
47 dcl  config_deck_data_$Config_card_subname
48                                       (64) char (4) var aligned ext;
49 
50 /* tells alike cards apart - matches second unlabeled field
51 or apropriately labeled labeled field */
52 
53 /* END include file config_deck_data_.incl.pl1 */