1 
  2 /*     <<<   INITIAL VALUE EXTENSION INCLUDE FILE   >>>     */
  3 /*     <<<   LAST MODIFIED ON 08-16-74   >>>     */
  4 
  5 /*
  6 An initial value extension is included in a type 9 data name token when the
  7 description of the data name includes a value clause.  An initial value
  8 extension is also included in a type 11 condition name token for each
  9 value specified for the condition name.
 10 An initial value extension has one of two formats, depending on the class
 11 of the literal specified as a value.  The first seven bits of each of the
 12 two formats have the same meaning, and identify the format.
 13 */
 14 
 15 /* The Numeric Initial Value Structure */
 16 
 17 
 18 /*        ***STRUCTURE SIZE INFORMATION***        */
 19 /*     THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE
 20        LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS:
 21 
 22           HARDWARE  |         SIZE (BYTES)
 23           ---------------------------------
 24           6180      |         20
 25           P7        |         12
 26           ---------------------------------
 27 */
 28 
 29 dcl num_init_ptr ptr;
 30 
 31 dcl       1 num_init based (num_init_ptr),
 32                     2 numeric bit (1),
 33                     2 non_numeric bit (1),
 34                     2 fig_con bit (1),
 35                     2 all_lit bit (1),
 36                     2 single bit (1),
 37                     2 thru1 bit (1),
 38                     2 thru2 bit (1),
 39                     2 filler1 bit (1),
 40                     2 integral bit (1),
 41                     2 floating bit (1),
 42                     2 filler2 bit (6),
 43                     2 sign char (1),
 44                     2 exp_sign char (1),
 45                     2 exp_places fixed bin (15),
 46                     2 places_left fixed bin (15),
 47                     2 places_right fixed bin (15),
 48                     2 places fixed bin (15),
 49                     2 literal char (30);
 50 
 51 
 52 /*
 53 
 54 FIELD               CONTENTS
 55 
 56 numeric             "1"b
 57 non_numeric         "0"b
 58 fig_con             Set to "1"b when this literal is a figurative constant.
 59                     If the literal is of the form ALL literal, this field
 60                     is set to "1"b only when the literal following ALL is
 61                     itself a figurative constant.
 62 all_lit             Set to "1"b when this literal is a figurative constant
 63                     of the form ALL literal.
 64 single              Set to "1"b when this literal is a value of a condition
 65                     name but is not part of a thru phrase.
 66 thru1               Set to "1"b when this is the first literal in a thru
 67                     phrase.
 68 thru2               Set to "1"b when this is the second literal in a thru
 69                     phrase.
 70 filler1             Available for future use.
 71 integral            Set to "1"b when this literal is an integer.
 72 floating            Set to "1"b when this is a floating-point literal.  Set
 73                     to "0"b when this is a fixed-point literal.
 74 filler2             Available for future use.
 75 sign                The sign of the fixed-point part (as opposed to the
 76                     exponent) of the literal.  The possible values of this
 77                     field are "+", "-", and a space.
 78 exp_sign            The sign of the exponent of the literal.  The possible
 79                     values of this field are "+", "-", and a space.  This
 80                     field is significant only when floating is "1"b.
 81 exp_places          The number of digits in the exponent of the literal.
 82 places_left         The number of digits to the left of the decimal point
 83                     in the fixed-point part of the literal.
 84 places_right        The number of digits to the right of the decimal point
 85                     in the fixed-point part of the literal.
 86 places              The number of digits in the literal, including the
 87                     exponent.
 88 literal             The digits of the literal.
 89 
 90 */
 91 
 92 
 93 
 94 
 95 /* The Alphanumeric Initial Value Structure */
 96 
 97 /*        ***STRUCTURE SIZE INFORMATION***        */
 98 /*     THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE
 99        LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS:
100 
101           HARDWARE  |         SIZE (BYTES)
102           ---------------------------------
103           6180      |         8
104           P7        |         4
105           ---------------------------------
106 */
107 
108 dcl alp_init_ptr ptr;
109 
110 dcl       1 alpha_init based (alp_init_ptr),
111                     2 numeric bit (1),
112                     2 non_numeric bit (1),
113                     2 fig_con bit (1),
114                     2 all_lit bit (1),
115                     2 single bit (1),
116                     2 thru1 bit (1),
117                     2 thru2 bit (1),
118                     2 filler1 bit (1),
119                     2 bit_string bit (1),
120                     2 fig_con_index bit (7),
121                     2 lit_size fixed bin (15),
122                     2 string char (770);
123 
124 
125 /*
126 
127 FIELD               CONTENTS
128 
129 numeric             "0"b
130 non_numeric         "1"b
131 fig_con             Set to "1"b when this literal is a figurative constant.
132 all_lit             Set to "1"b when this literal is a figurative constant
133                     of the form ALL literal.
134 single              Set to "1"b when this literal is a value of a condition
135                     name but is not part of a thru phrase.
136 thru1               Set to "1"b when this is the first literal in a thru
137                     phrase.
138 thru2               Set to "1"b when this is the second literal in a thru
139                     phrase.
140 filler1             Available for future use.
141 bit_string          Set to "1"b when this is a boolean literal.
142 fig_con_index       A binary value identifying this figurative constant.
143                     This field is significant only when fig_con is "1"b.
144                     1 = zero, zeros, zeroes
145                     2 = space, spaces
146                     3 = upper-bound, upper-bounds
147                     4 = lower-bound, lower-bounds
148                     5 = high-value, high-values
149                     6 = low-value, low-values
150                     7 = quote, quotes
151 lit_size            The number of characters in the literal, excluding
152                     delimiting quotation marks.
153 string              The literal character-string.
154 
155 */
156 
157 /*     <<<   END OF INITIAL VALUE EXTENSION INCLUDE FILE   >>>     */