1 
  2 /* BEGIN INCLUDE FILE ...   cobol_common_data.incl.pl1 */
  3 /*        <<< MODIFIED ON 5 FEB 76 BY fch         >>>       */
  4 /* Modified on 12/28/76 by FCH */
  5 
  6 dcl 1 res_wd_dot internal static,
  7       2 size fixed bin init(  28    ),
  8       2 line fixed bin,
  9       2 column fixed bin init(0),
 10       2 type fixed bin init(1),
 11       2 key fixed bin init(189),
 12       2 class1 bit(16) init("0001100000000000"b),
 13       2 class2 bit(4) init("0000"b),
 14       2 class3 bit(1) init("0"b),
 15       2 class4 bit(5) init("00000"b),
 16       2 jump_index fixed bin init(0);
 17 
 18 dcl 1 type_26_token internal static,
 19           2 size fixed bin init(  16    ),
 20           2 line fixed bin,
 21           2 column fixed bin init(0),
 22           2 type fixed bin init(26);
 23 dcl 1 res_wd_to internal static,
 24       2 size fixed bin init(  28    ),
 25       2 line fixed bin,
 26       2 column fixed bin init(0),
 27       2 type fixed bin init(1),
 28       2 key fixed bin init(170),
 29           2 class1 bit(16) init((16)"0"b),
 30           2 class2 bit(4) init("0001"b),
 31           2 class3 bit(1) init("0"b),
 32           2 class4 bit(5) init("00000"b),
 33       2 jump_index fixed bin init(0);
 34 
 35 dcl 1 res_wd_move internal static,
 36       2 size fixed bin init(  28    ),
 37       2 line fixed bin,
 38       2 column fixed bin init(0),
 39       2 type fixed bin init(1),
 40       2 key fixed bin init(18),
 41           2 class1 bit(16) init("1001001000000000"b),
 42           2 class2 bit(4) init("0011"b),
 43           2 class3 bit(1) init("0"b),
 44           2 class4 bit(5) init("00000"b),
 45       2 jump_index fixed bin init(0);
 46 
 47 dcl 1 res_wd_greater internal static,
 48           2 size fixed bin init(  28    ),
 49           2 line fixed bin,
 50           2 column fixed bin init(0),
 51           2 type fixed bin init(1),
 52           2 key fixed bin init(113),
 53           2 class1 bit(16) init("0000010000000000"b),
 54           2 class2 bit(4) init("0000"b),
 55           2 class3 bit(1) init("0"b),
 56           2 class4 bit(5) init("00000"b),
 57           2 jump_index fixed bin init(0);
 58 
 59 dcl 1 num_lit_zero internal static,
 60           2 size fixed bin init(  37    ),
 61           2 line fixed bin,
 62           2 column fixed bin init(0),
 63           2 type fixed bin init(2),
 64           2 info bit(8) init("10000000"b),
 65           2 sign char(1) init(" "),
 66           2 exp_sign char(1) init(" "),
 67           2 exp_places fixed bin init(0),
 68           2 places_left fixed bin init(1),
 69           2 places_right fixed bin init(0),
 70           2 places fixed bin init(1),
 71           2 literal char(1) init("0");
 72 
 73 dcl 1 num_lit_one internal static,
 74           2 size fixed bin init(  37    ),
 75           2 line fixed bin,
 76           2 column fixed bin init(0),
 77           2 type fixed bin init(2),
 78           2 info bit(8) init("10000000"b),
 79           2 sign char(1) init(" "),
 80           2 exp_sign char(1) init(" "),
 81           2 exp_places fixed bin init(0),
 82           2 places_left fixed bin init(1),
 83           2 places_right fixed bin init(0),
 84           2 places fixed bin init(1),
 85           2 literal char(1) init("1");
 86 
 87 
 88 dcl 1 res_wd_add internal static,
 89           2 size fixed bin init(  28    ),
 90           2 line fixed bin,
 91           2 column fixed bin init(0),
 92           2 type fixed bin init(1),
 93           2 key fixed bin init(2),
 94           2 class1 bit(16) init("1001001000000000"b),
 95           2 class2 bit(4) init("0011"b),
 96           2 class3 bit(1) init("0"b),
 97           2 class4 bit(5) init("00000"b),
 98           2 jump_index fixed bin init(0);
 99 
100 dcl 1 res_wd_subtract internal static,
101           2 size fixed bin init(  28    ),
102           2 line fixed bin,
103           2 column fixed bin init(0),
104           2 type fixed bin init(1),
105           2 key fixed bin init(11),
106           2 class1 bit(16) init("1001001000000000"b),
107           2 class2 bit(4) init("0011"b),
108           2 class3 bit(1) init("0"b),
109           2 class4 bit(5) init("00000"b),
110           2 jump_index fixed bin init(0);
111 
112 dcl 1 res_wd_from internal static,
113           2 size fixed bin init(  28    ),
114           2 line fixed bin,
115           2 column fixed bin init(0),
116           2 type fixed bin init(1),
117           2 key fixed bin init(111),
118           2 class1 bit(16) init((16)"0"b),
119           2 class2 bit(4) init("0011"b),
120           2 class3 bit(1) init("0"b),
121           2 class4 bit(5) init("00000"b),
122           2 jump_index fixed bin init(0);
123 
124 dcl 1 res_wd_set internal static,
125           2 size fixed bin init(  28    ),
126           2 line fixed bin,
127           2 column fixed bin init(0),
128           2 type fixed bin init(1),
129           2 key fixed bin init(31),
130           2 class1 bit(16) init("1001001000000000"b),
131           2 class2 bit(4) init("0011"b),
132           2 class3 bit(1) init("0"b),
133           2 class4 bit(5) init("00000"b),
134           2 jump_index fixed bin init(0);
135 
136 dcl 1 res_wd_lparen internal static,
137           2 size fixed bin init(  28    ),
138           2 line fixed bin,
139           2 column fixed bin init(0),
140           2 type fixed bin init(1),
141           2 key fixed bin init(187),
142           2 class1 bit(16) init((16)"0"b),
143           2 class2 bit(4) init((4)"0"b),
144           2 class3 bit(1) init("0"b),
145           2 class4 bit(5) init((5)"0"b),
146           2 jump_index fixed bin init(0);
147 
148 dcl 1 res_wd_rparen internal static,
149           2 size fixed bin init(  28    ),
150           2 line fixed bin,
151           2 column fixed bin init(0),
152           2 type fixed bin init(1),
153           2 key fixed bin init(188),
154           2 class1 bit(16) init((16)"0"b),
155           2 class2 bit(4) init((4)"0"b),
156           2 class3 bit(1) init("0"b),
157           2 class4 bit(5) init((5)"0"b),
158           2 jump_index fixed bin init(0);
159 
160 
161 dcl 1 res_wd_spaces internal static,
162       2 size fixed bin init(  28    ),
163       2 line fixed bin,
164       2 column fixed bin init(0),
165       2 type fixed bin init(1),
166       2 key fixed bin init(192),
167       2 class1 bit(16) init("0010000000000000"b),
168       2 class2 bit(4) init("0001"b),
169       2 class3 bit(1) init("0"b),
170       2 class4 bit(5) init("00000"b),
171           2 jump_index fixed bin init(2);
172 
173 dcl 1 res_wd_zeroes internal static,
174       2 size fixed bin init(  28    ),
175       2 line fixed bin,
176       2 column fixed bin init(0),
177       2 type fixed bin init(1),
178       2 key fixed bin init(180),
179       2 class1 bit(16) init("0010000000000000"b),
180       2 class2 bit(4) init("0001"b),
181       2 class3 bit(1) init("0"b),
182       2 class4 bit(5) init("00000"b),
183           2 jump_index fixed bin init(1);
184 
185 
186 dcl 1 gen_item_t1 internal static,
187       2 size fixed bin init(  117    ),
188       2 line fixed bin,
189       2 column fixed bin init(0),
190       2 type fixed bin init(9),
191       2 string_pointer ptr,
192       2 prev_rec ptr,
193           2 info8 bit(8) init((8)"0"b),
194       2 def_line fixed bin init(0),
195       2 level fixed bin init(77),
196       2 linkage fixed bin init(0),
197       2 file_num fixed bin init(0),
198       2 size_rtn fixed bin init(0),
199       2 length fixed bin(24) init(1),
200       2 places_left fixed bin init(1),
201       2 places_right fixed bin init(0),
202       2 descr_bit bit(72) init("010000100100000001000000000100000000000000000000000010000000000000000000"b),
203 
204       2 seg_num fixed bin init(0),
205       2 offset fixed bin(24) init(-1),  /*to tell fix-up this is generated item*/
206       2 init_ptr fixed bin init(0),
207       2 edit_ptr fixed bin init(0),
208       2 occurs_ptr fixed bin init(0),
209       2 do_rec  char(5) init("00000"),
210       2 do_bit  bit(8) init((8)"0"b),
211       2 max_red_size fixed bin(24) init(0),
212       2 name_size fixed bin init(5),
213       2 name char(5) init("INT_1");
214 
215 dcl 1 gen_num_lit_mindim internal static,
216           2 size fixed bin,
217           2 line fixed bin,
218           2 column fixed bin init(0),
219           2 type fixed bin init(2),
220           2 info bit(8) init("10000000"b), /*integer was 11000000 second bit is floating */
221           2 sign char(1) init(" "),
222           2 exp_sign char(1) init(" "),
223           2 exp_places fixed bin init(0),
224           2 places_left fixed bin init(1),
225           2 places_right fixed bin init(0),
226           2 places fixed bin init(0),
227           2 literal char(10);
228 
229 dcl 1 res_wd_perform internal static,
230       2 size fixed bin init(  28    ),
231       2 line fixed bin,
232       2 column fixed bin init(0),
233       2 type fixed bin init(1),
234       2 key fixed bin init(20),
235       2 class1 bit(16) init("1001001000000000"b),
236       2 class2 bit(4) init("1000"b),
237       2 class3 bit(1) init("0"b),
238       2 class4 bit(5) init("00000"b),
239           2 jump_index fixed bin init(0);
240 
241 dcl 1 res_wd_varying internal static,
242       2 size fixed bin init(  28    ),
243       2 line fixed bin,
244       2 column fixed bin init(0),
245       2 type fixed bin init(1),
246       2 key fixed bin init(177),
247       2 class1 bit(16) init((16)"0"b),
248       2 class2 bit(4) init("0011"b),
249       2 class3 bit(1) init("0"b),
250       2 class4 bit(5) init("00000"b),
251           2 jump_index fixed bin init(0);
252 
253 dcl 1 res_wd_by internal static,
254       2 size fixed bin init(  28    ),
255       2 line fixed bin,
256       2 column fixed bin init(0),
257       2 type fixed bin init(1),
258       2 key fixed bin init(82),
259       2 class1 bit(16) init((16)"0"b),
260       2 class2 bit(4) init("0001"b),
261       2 class3 bit(1) init("0"b),
262       2 class4 bit(5) init("00000"b),
263           2 jump_index fixed bin init(0);
264 
265 dcl 1 res_wd_until internal static,
266       2 size fixed bin init(  28    ),
267       2 line fixed bin,
268       2 column fixed bin init(0),
269       2 type fixed bin init(1),
270       2 key fixed bin init(173),
271       2 class1 bit(16) init((16)"0"b),
272       2 class2 bit(4) init("0011"b),
273       2 class3 bit(1) init("0"b),
274       2 class4 bit(5) init("00000"b),
275           2 jump_index fixed bin init(0);
276 
277 dcl 1 res_wd_go internal static,
278       2 size fixed bin init(  28    ),
279       2 line fixed bin,
280       2 column fixed bin init(0),
281       2 type fixed bin init(1),
282       2 key fixed bin init(14),
283       2 class1 bit(16) init("1001001000000000"b),
284       2 class2 bit(4) init("0010"b),
285       2 class3 bit(1) init("0"b),
286       2 class4 bit(5) init("00000"b),
287           2 jump_index fixed bin init(0);
288 
289 dcl 1 res_wd_after internal static,
290       2 size fixed bin init(  28    ),
291       2 line fixed bin,
292       2 column fixed bin init(0),
293       2 type fixed bin init(1),
294       2 key fixed bin init(72),
295       2 class1 bit(16) init((16)"0"b),
296       2 class2 bit(4) init("0000"b),
297       2 class3 bit(1) init("0"b),
298       2 class4 bit(5) init("00000"b),
299           2 jump_index fixed bin init(0);
300 
301 dcl 1 gen_item_t2 internal static,
302       2 size fixed bin init(  117    ),
303       2 line fixed bin,
304       2 column fixed bin init(0),
305       2 type fixed bin init(9),
306       2 string_pointer ptr,
307       2 prev_rec ptr,
308           2 info8 bit(8) init((8)"0"b),
309       2 def_line fixed bin init(0),
310       2 level fixed bin init(77),
311       2 linkage fixed bin init(0),
312       2 file_num fixed bin init(0),
313       2 size_rtn fixed bin init(0),
314       2 length fixed bin(24) init(1),
315       2 places_left fixed bin init(1),
316       2 places_right fixed bin init(0),
317       2 descr_bit bit(72) init("010000100100000001000000000100000000000000000000000010000000000000000000"b),
318 
319       2 seg_num fixed bin init(0),
320       2 offset fixed bin(24) init(-1),  /*to tell fix-up this is generated item*/
321       2 init_ptr fixed bin init(0),
322       2 edit_ptr fixed bin init(0),
323       2 occurs_ptr fixed bin init(0),
324       2 do_rec  char(5) init("00000"),
325       2 do_bit  bit(8) init((8)"0"b),
326       2 max_red_size fixed bin(24) init(0),
327       2 name_size fixed bin init(5),
328       2 name char(5) init("INT_2");
329 
330 dcl 1 gen_item_t3 internal static,
331       2 size fixed bin init(  117    ),
332       2 line fixed bin,
333       2 column fixed bin init(0),
334       2 type fixed bin init(9),
335       2 string_pointer ptr,
336       2 prev_rec ptr,
337           2 info8 bit(8) init((8)"0"b),
338       2 def_line fixed bin init(0),
339       2 level fixed bin init(77),
340       2 linkage fixed bin init(0),
341       2 file_num fixed bin init(0),
342       2 size_rtn fixed bin init(0),
343       2 length fixed bin(24) init(1),
344       2 places_left fixed bin init(1),
345       2 places_right fixed bin init(0),
346       2 descr_bit bit(72) init("010000100100000001000000000100000000000000000000000010000000000000000000"b),
347 
348       2 seg_num fixed bin init(0),
349       2 offset fixed bin(24) init(-1),  /*to tell fix-up this is generated item*/
350       2 init_ptr fixed bin init(0),
351       2 edit_ptr fixed bin init(0),
352       2 occurs_ptr fixed bin init(0),
353       2 do_rec  char(5) init("00000"),
354       2 do_bit  bit(8) init((8)"0"b),
355       2 max_red_size fixed bin(24) init(0),
356       2 name_size fixed bin init(5),
357       2 name char(5) init("INT_3");
358 
359 dcl 1 gen_label_def internal static,
360           2 size fixed bin init(  62   ),
361           2 line fixed bin,
362           2 column fixed bin init(0),
363           2 type fixed bin init(7),
364           2 string_ptr ptr,
365           2 prev_rec ptr,
366           2 info bit(8) init("00000000"b),
367           2 priority char(2),
368           2 repl_bit bit(8) init("00000000"b),
369           2 section_num fixed bin,
370           2 proc_num fixed bin,
371           2 def_line fixed bin init(0),
372           2 length fixed bin init(10),
373           2 name char(10) ;
374 
375 dcl 1 gen_label_ref internal static,
376           2 size fixed bin init(  62   ),
377           2 line fixed bin init(0),
378           2 column fixed bin init(0),
379           2 type fixed bin init(18),
380           2 string_ptr ptr,
381           2 prev_rec ptr,
382           2 info bit(8) init("10000000"b),
383           2 priority char(2),
384           2 repl_bit bit(8) init("00000000"b),
385           2 section_num fixed bin,
386           2 proc_num fixed bin,
387           2 def_line fixed bin init(0),
388           2 length fixed bin init(10),
389           2 name char(10) ;
390 
391 
392 
393 dcl 1 res_wd_if internal static,
394           2 size fixed bin init(  28    ),
395           2 line fixed bin init(0),
396           2 column fixed bin init(0),
397           2 type fixed bin init(1),
398           2 key fixed bin init(47),
399           2 class1 bit(16) init("1001000000000000"b),
400           2 class2 bit(4) init("0011"b),
401           2 class3 bit(1) init("0"b),
402           2 class4 bit(5) init("00000"b),
403           2 jump_index fixed bin init(0);
404 
405 dcl 1 res_wd_on internal static,
406       2 size fixed bin init(  28    ),
407       2 line fixed bin init(0),
408       2 column fixed bin init(0),
409       2 type fixed bin init(1),
410       2 key fixed bin init(134),
411           2 class1 bit(16) init((16)"0"b),
412           2 class2 bit(4) init("0001"b),
413           2 class3 bit(1) init("0"b),
414           2 class4 bit(5) init("00000"b),
415       2 jump_index fixed bin init(0);
416 
417 dcl 1 res_wd_size internal static,
418       2 size fixed bin init(  28    ),
419       2 line fixed bin,
420       2 column fixed bin init(0),
421       2 type fixed bin init(1),
422       2 key fixed bin init(161),
423           2 class1 bit(16) init((16)"0"b),
424           2 class2 bit(4) init("0001"b),
425           2 class3 bit(1) init("0"b),
426           2 class4 bit(5) init("00000"b),
427       2 jump_index fixed bin init(0);
428 
429 dcl 1 res_wd_error internal static,
430       2 size fixed bin init(  28    ),
431       2 line fixed bin,
432       2 column fixed bin init(0),
433       2 type fixed bin init(1),
434       2 key fixed bin init(3),
435           2 class1 bit(16) init("0000000000000100"b),
436           2 class2 bit(4) init("0001"b),
437           2 class3 bit(1) init("0"b),
438           2 class4 bit(5) init("00000"b),
439       2 jump_index fixed bin init(0);
440 
441 /******************************************  END  DATA  *********************************************/
442 /* END INCLUDE FILE ...   cobol_common_data.incl.pl1 */
443