GnuCOBOL  2.0
A free COBOL compiler
get-reserved-lists.c
Go to the documentation of this file.
1 /* Generated by cobc 2.0.0 */
2 /* Generated from get-reserved-lists.cbl */
3 /* Generated at Apr 17 2016 03:19:00 */
4 /* GnuCOBOL build date Apr 16 2016 12:25:23 */
5 /* GnuCOBOL package date Oct 25 2015 21:40:28 UTC */
6 /* Compile command cobc -x -g cobxref.cbl get-reserved-lists.cbl */
7 
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <stddef.h>
11 #include <string.h>
12 #include <math.h>
13 #define COB_KEYWORD_INLINE __inline
14 #include <libcob.h>
15 
16 #define COB_SOURCE_FILE "get-reserved-lists.cbl"
17 #define COB_PACKAGE_VERSION "2.0"
18 #define COB_PATCH_LEVEL 0
19 #define COB_MODULE_FORMATTED_DATE "Apr 17 2016 03:19:00"
20 #define COB_MODULE_DATE 20160417
21 #define COB_MODULE_TIME 31900
22 
23 /* Global variables */
24 #include "get-reserved-lists.c.h"
25 
26 /* Function prototypes */
27 
28 int get__reserved__lists (cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *);
29 static int get__reserved__lists_ (const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *);
30 
31 /* Functions */
32 
33 /* PROGRAM-ID 'get-reserved-lists' */
34 
35 /* ENTRY 'get__reserved__lists' */
36 
37 int
38 get__reserved__lists (cob_u8_t *b_23, cob_u8_t *b_24, cob_u8_t *b_29, cob_u8_t *b_30, cob_u8_t *b_35)
39 {
40  return get__reserved__lists_ (0, b_23, b_24, b_29, b_30, b_35);
41 }
42 
43 static int
44 get__reserved__lists_ (const int entry, cob_u8_t *b_23, cob_u8_t *b_24,
45  cob_u8_t *b_29, cob_u8_t *b_30,
46  cob_u8_t *b_35)
47 {
48  /* Program local variables */
49  #include "get-reserved-lists.c.l.h"
50 
51  /* Start of function code */
52 
53  /* CANCEL callback */
54  if (unlikely(entry < 0)) {
55  goto P_cancel;
56  }
57 
58  /* Check initialized, check module allocated, */
59  /* set global pointer, */
60  /* push module stack, save call parameter count */
61  cob_module_enter (&module, &cob_glob_ptr, 0);
62 
63  /* Set address of module parameter list */
64  module->cob_procedure_params = cob_procedure_params;
65 
66  /* Set frame stack pointer */
67  frame_ptr = frame_stack;
68  frame_ptr->perform_through = 0;
69  frame_overflow = frame_ptr + 255 - 1;
70 
71  /* Initialize rest of program */
72  if (unlikely(initialized == 0)) {
73  goto P_initialize;
74  }
75  P_ret_initialize:
76 
77  /* Increment module active */
78  module->module_active++;
79 
80  /* Save number of call params */
81  module->module_num_params = cob_glob_ptr->cob_call_params;
82 
83  /* Entry dispatch */
84  goto l_2;
85 
86  /* PROCEDURE DIVISION */
87 
88  /* Line: 138 : Entry get-reserved-lists : get-reserved-lists.cbl */
89  l_2:;
90 
91  /* Line: 138 : Section aa000-startup : get-reserved-lists.cbl */
92 
93  /* Line: 139 : Paragraph aa010-Init : get-reserved-lists.cbl */
94 
95  /* Line: 140 : CALL : get-reserved-lists.cbl */
96  cob_set_location (st_1, 140, st_2, st_3, st_4);
97  cob_procedure_params[0] = (cob_field *)&c_1;
98  cob_glob_ptr->cob_call_params = 1;
99  b_1 = cob_sys_system ((cob_u8_ptr)"cobc --list-intrinsics > int.tmp");
100 
101  /* Line: 141 : CALL : get-reserved-lists.cbl */
102  cob_set_location (st_1, 141, st_2, st_3, st_4);
103  cob_procedure_params[0] = (cob_field *)&c_2;
104  cob_glob_ptr->cob_call_params = 1;
105  b_1 = cob_sys_system ((cob_u8_ptr)"cobc --list-reserved > res.tmp");
106 
107  /* Line: 142 : MOVE : get-reserved-lists.cbl */
108  cob_set_location (st_1, 142, st_2, st_3, st_5);
109  (*(cob_s8_ptr) (b_23)) = 0;
110 
111  /* Line: 143 : PERFORM : get-reserved-lists.cbl */
112  cob_set_location (st_1, 143, st_2, st_3, st_6);
113  /* PERFORM ba000-Get-Intrinsics-Words */
114  frame_ptr++;
115  if (unlikely(frame_ptr == frame_overflow))
116  cob_fatal_error (COB_FERROR_STACK);
117  frame_ptr->perform_through = 5;
118  frame_ptr->return_address_ptr = &&l_14;
119  goto l_5;
120  l_14:
121  frame_ptr--;
122 
123  /* Line: 144 : IF : get-reserved-lists.cbl */
124  cob_set_location (st_1, 144, st_2, st_3, st_7);
125  if (!((int)cob_cmp_s8 (b_23, 0) == 0))
126  {
127 
128  /* Line: 145 : EXIT PROGRAM : get-reserved-lists.cbl */
129  cob_set_location (st_1, 145, st_2, st_3, st_8);
130  if (module->next)
131  goto exit_program;
132  }
133 
134  /* Line: 146 : PERFORM : get-reserved-lists.cbl */
135  cob_set_location (st_1, 146, st_2, st_3, st_6);
136  /* PERFORM ca000-Get-Reserved-Words */
137  frame_ptr++;
138  if (unlikely(frame_ptr == frame_overflow))
139  cob_fatal_error (COB_FERROR_STACK);
140  frame_ptr->perform_through = 9;
141  frame_ptr->return_address_ptr = &&l_15;
142  goto l_9;
143  l_15:
144  frame_ptr--;
145 
146  /* Line: 147 : CALL : get-reserved-lists.cbl */
147  cob_set_location (st_1, 147, st_2, st_3, st_4);
148  cob_procedure_params[0] = (cob_field *)&c_3;
149  cob_glob_ptr->cob_call_params = 1;
150  b_1 = cob_sys_delete_file ((cob_u8_ptr)"res.tmp");
151 
152  /* Line: 148 : CALL : get-reserved-lists.cbl */
153  cob_set_location (st_1, 148, st_2, st_3, st_4);
154  cob_procedure_params[0] = (cob_field *)&c_4;
155  cob_glob_ptr->cob_call_params = 1;
156  b_1 = cob_sys_delete_file ((cob_u8_ptr)"int.tmp");
157 
158  /* Line: 149 : EXIT PROGRAM : get-reserved-lists.cbl */
159  cob_set_location (st_1, 149, st_2, st_3, st_8);
160  if (module->next)
161  goto exit_program;
162 
163  /* Line: 151 : Section ba000-Get-Intrinsics-Words: get-reserved-lists.cbl */
164  l_5:;
165 
166  /* Line: 152 : Paragraph ba010-init : get-reserved-lists.cbl */
167 
168  /* Line: 153 : OPEN : get-reserved-lists.cbl */
169  cob_set_location (st_1, 153, st_9, st_10, st_11);
170  cob_open (h_INTRINSIC_STREAM, 1, 0, &f_15);
171  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
172  {
173  /* PERFORM Default Error Handler */
174  frame_ptr++;
175  if (unlikely(frame_ptr == frame_overflow))
176  cob_fatal_error (COB_FERROR_STACK);
177  frame_ptr->perform_through = 1;
178  frame_ptr->return_address_ptr = &&l_16;
179  goto l_1;
180  l_16:
181  frame_ptr--;
182  }
183 
184  /* Line: 154 : IF : get-reserved-lists.cbl */
185  cob_set_location (st_1, 154, st_9, st_10, st_7);
186  if (((int)cob_cmp_numdisp (b_15, 2, 35LL, 0) == 0))
187  {
188 
189  /* Line: 155 : DISPLAY : get-reserved-lists.cbl */
190  cob_set_location (st_1, 155, st_9, st_10, st_12);
191  cob_display (0, 1, 1, &f_19);
192  }
193 
194  /* Line: 156 : IF : get-reserved-lists.cbl */
195  cob_set_location (st_1, 156, st_9, st_10, st_7);
196  if (((int)cob_cmp_numdisp (b_15, 2, 0, 0) != 0))
197  {
198 
199  /* Line: 157 : MOVE : get-reserved-lists.cbl */
200  cob_set_location (st_1, 157, st_9, st_10, st_5);
201  cob_move (&f_15, COB_SET_DATA (f_23, b_23));
202 
203  /* Line: 158 : EXIT SECTION : get-reserved-lists.cbl */
204  cob_set_location (st_1, 158, st_9, st_10, st_13);
205  goto l_7;
206  }
207 
208  /* Line: 160 : MOVE : get-reserved-lists.cbl */
209  cob_set_location (st_1, 160, st_9, st_10, st_5);
210  memmove (b_13, b_29, 4);
211 
212  /* Line: 161 : MOVE : get-reserved-lists.cbl */
213  cob_set_location (st_1, 161, st_9, st_10, st_5);
214  memset (b_24, 255, 7936);
215 
216  /* Line: 162 : MOVE : get-reserved-lists.cbl */
217  cob_set_location (st_1, 162, st_9, st_10, st_5);
218  memset (b_29, 0, 4);
219 
220  /* Line: 164 : Paragraph ba020-get-thru-base-data: get-reserved-lists.cbl */
221  l_8:;
222 
223  /* Line: 165 : MOVE : get-reserved-lists.cbl */
224  cob_set_location (st_1, 165, st_9, st_14, st_5);
225  memset (b_9, 255, 128);
226 
227  /* Line: 166 : READ : get-reserved-lists.cbl */
228  cob_set_location (st_1, 166, st_9, st_14, st_15);
229  cob_read_next (h_INTRINSIC_STREAM, &f_15, 1);
230  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
231  {
232  if (cob_glob_ptr->cob_exception_code == 0x0501)
233  {
234 
235  /* Line: 167 : MOVE : get-reserved-lists.cbl */
236  cob_set_location (st_1, 167, st_9, st_14, st_5);
237  (*(cob_s8_ptr) (b_23)) = 0;
238 
239  /* Line: 168 : CLOSE : get-reserved-lists.cbl */
240  cob_set_location (st_1, 168, st_9, st_14, st_16);
241  cob_close (h_INTRINSIC_STREAM, &f_15, 0, 0);
242  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
243  {
244  /* PERFORM Default Error Handler */
245  frame_ptr++;
246  if (unlikely(frame_ptr == frame_overflow))
247  cob_fatal_error (COB_FERROR_STACK);
248  frame_ptr->perform_through = 1;
249  frame_ptr->return_address_ptr = &&l_17;
250  goto l_1;
251  l_17:
252  frame_ptr--;
253  }
254 
255  /* Line: 169 : IF : get-reserved-lists.cbl */
256  cob_set_location (st_1, 169, st_9, st_14, st_7);
257  if (((int)cob_cmpswp_s32 (b_29, ((int)COB_BSWAP_32(*(int *)(b_13)))) > 0))
258  {
259 
260  /* Line: 170 : DISPLAY : get-reserved-lists.cbl */
261  cob_set_location (st_1, 170, st_9, st_14, st_12);
262  cob_display (0, 1, 1, &f_21);
263  }
264 
265  /* Line: 172 : EXIT SECTION : get-reserved-lists.cbl */
266  cob_set_location (st_1, 172, st_9, st_14, st_13);
267  goto l_7;
268  }
269  else
270  {
271  /* PERFORM Default Error Handler */
272  frame_ptr++;
273  if (unlikely(frame_ptr == frame_overflow))
274  cob_fatal_error (COB_FERROR_STACK);
275  frame_ptr->perform_through = 1;
276  frame_ptr->return_address_ptr = &&l_18;
277  goto l_1;
278  l_18:
279  frame_ptr--;
280  }
281  }
282 
283  /* Line: 174 : IF : get-reserved-lists.cbl */
284  cob_set_location (st_1, 174, st_9, st_14, st_7);
285  if ((((int)cob_cmp (COB_SET_FLD(f0, 3, b_9 + 0, &a_1), &cob_all_space) == 0) ||
286  ((int)memcmp (b_9 + 0, (cob_u8_ptr)"Intrinsic Function", 18) == 0)))
287  {
288 
289  /* Line: 176 : GO TO : get-reserved-lists.cbl */
290  cob_set_location (st_1, 176, st_9, st_14, st_17);
291  goto l_8;
292  }
293 
294  /* Line: 180 : MOVE : get-reserved-lists.cbl */
295  cob_set_location (st_1, 180, st_9, st_14, st_5);
296  (*(int *)(b_11)) = 1;
297 
298  /* Line: 181 : MOVE : get-reserved-lists.cbl */
299  cob_set_location (st_1, 181, st_9, st_14, st_5);
300  memset (b_16, 32, 30);
301  *(b_17) = 32;
302 
303  /* Line: 182 : UNSTRING : get-reserved-lists.cbl */
304  cob_set_location (st_1, 182, st_9, st_14, st_18);
305  cob_unstring_init (&f_8, &f_11, 2);
306  cob_unstring_delimited ((cob_field *)&c_5, 1);
307  cob_unstring_delimited (&cob_all_space, 1);
308  cob_unstring_into (&f_16, 0, 0);
309  cob_unstring_finish ();
310 
311  /* Line: 183 : UNSTRING : get-reserved-lists.cbl */
312  cob_set_location (st_1, 183, st_9, st_14, st_18);
313  cob_unstring_init (&f_8, &f_11, 2);
314  cob_unstring_delimited ((cob_field *)&c_5, 1);
315  cob_unstring_delimited (&cob_all_space, 1);
316  cob_unstring_into (&f_17, 0, 0);
317  cob_unstring_finish ();
318 
319  /* Line: 184 : ADD : get-reserved-lists.cbl */
320  cob_set_location (st_1, 184, st_9, st_14, st_19);
321  cob_add (COB_SET_DATA (f_29, b_29), (cob_field *)&c_6, 4);
322 
323  /* Line: 185 : MOVE : get-reserved-lists.cbl */
324  cob_set_location (st_1, 185, st_9, st_14, st_5);
325  memmove (b_24 + 1 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1), b_16, 30);
326 
327  /* Line: 186 : IF : get-reserved-lists.cbl */
328  cob_set_location (st_1, 186, st_9, st_14, st_7);
329  if (((int)(int)(*(b_17) - 89) == 0))
330  {
331 
332  /* Line: 187 : MOVE : get-reserved-lists.cbl */
333  cob_set_location (st_1, 187, st_9, st_14, st_5);
334  *(b_24 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1)) = 49;
335  }
336  else
337  {
338  /* ELSE */
339 
340  /* Line: 189 : MOVE : get-reserved-lists.cbl */
341  cob_set_location (st_1, 189, st_9, st_14, st_5);
342  *(b_24 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1)) = 48;
343  }
344 
345  /* Line: 191 : GO TO : get-reserved-lists.cbl */
346  cob_set_location (st_1, 191, st_9, st_14, st_17);
347  goto l_8;
348 
349  /* Implicit EXIT label */
350  l_7:;
351 
352  /* Implicit PERFORM return */
353  if (frame_ptr->perform_through == 5)
354  goto *frame_ptr->return_address_ptr;
355 
356  /* Line: 193 : Section ca000-Get-Reserved-Words: get-reserved-lists.cbl */
357  l_9:;
358 
359  /* Line: 195 : Paragraph ca010-init : get-reserved-lists.cbl */
360 
361  /* Line: 196 : OPEN : get-reserved-lists.cbl */
362  cob_set_location (st_1, 196, st_20, st_21, st_11);
363  cob_open (h_RESERVE_STREAM, 1, 0, &f_15);
364  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
365  {
366  /* PERFORM Default Error Handler */
367  frame_ptr++;
368  if (unlikely(frame_ptr == frame_overflow))
369  cob_fatal_error (COB_FERROR_STACK);
370  frame_ptr->perform_through = 1;
371  frame_ptr->return_address_ptr = &&l_19;
372  goto l_1;
373  l_19:
374  frame_ptr--;
375  }
376 
377  /* Line: 197 : IF : get-reserved-lists.cbl */
378  cob_set_location (st_1, 197, st_20, st_21, st_7);
379  if (((int)cob_cmp_numdisp (b_15, 2, 35LL, 0) == 0))
380  {
381 
382  /* Line: 198 : DISPLAY : get-reserved-lists.cbl */
383  cob_set_location (st_1, 198, st_20, st_21, st_12);
384  cob_display (0, 1, 1, &f_20);
385  }
386 
387  /* Line: 199 : IF : get-reserved-lists.cbl */
388  cob_set_location (st_1, 199, st_20, st_21, st_7);
389  if (((int)cob_cmp_numdisp (b_15, 2, 0, 0) != 0))
390  {
391 
392  /* Line: 200 : MOVE : get-reserved-lists.cbl */
393  cob_set_location (st_1, 200, st_20, st_21, st_5);
394  cob_move (&f_15, COB_SET_DATA (f_23, b_23));
395 
396  /* Line: 201 : EXIT SECTION : get-reserved-lists.cbl */
397  cob_set_location (st_1, 201, st_20, st_21, st_13);
398  goto l_11;
399  }
400 
401  /* Line: 203 : MOVE : get-reserved-lists.cbl */
402  cob_set_location (st_1, 203, st_20, st_21, st_5);
403  memmove (b_14, b_35, 4);
404 
405  /* Line: 204 : MOVE : get-reserved-lists.cbl */
406  cob_set_location (st_1, 204, st_20, st_21, st_5);
407  memset (b_30, 255, 31744);
408 
409  /* Line: 205 : MOVE : get-reserved-lists.cbl */
410  cob_set_location (st_1, 205, st_20, st_21, st_5);
411  memset (b_35, 0, 4);
412 
413  /* Line: 206 : MOVE : get-reserved-lists.cbl */
414  cob_set_location (st_1, 206, st_20, st_21, st_5);
415  (*(cob_s8_ptr) (b_12)) = 0;
416 
417  /* Line: 208 : Paragraph ca020-get-thru-base-data: get-reserved-lists.cbl */
418  l_12:;
419 
420  /* Line: 209 : MOVE : get-reserved-lists.cbl */
421  cob_set_location (st_1, 209, st_20, st_22, st_5);
422  memset (b_7, 255, 128);
423 
424  /* Line: 210 : READ : get-reserved-lists.cbl */
425  cob_set_location (st_1, 210, st_20, st_22, st_15);
426  cob_read_next (h_RESERVE_STREAM, &f_15, 1);
427  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
428  {
429  if (cob_glob_ptr->cob_exception_code == 0x0501)
430  {
431 
432  /* Line: 211 : GO TO : get-reserved-lists.cbl */
433  cob_set_location (st_1, 211, st_20, st_22, st_17);
434  goto l_13;
435  }
436  else
437  {
438  /* PERFORM Default Error Handler */
439  frame_ptr++;
440  if (unlikely(frame_ptr == frame_overflow))
441  cob_fatal_error (COB_FERROR_STACK);
442  frame_ptr->perform_through = 1;
443  frame_ptr->return_address_ptr = &&l_20;
444  goto l_1;
445  l_20:
446  frame_ptr--;
447  }
448  }
449 
450  /* Line: 213 : IF : get-reserved-lists.cbl */
451  cob_set_location (st_1, 213, st_20, st_22, st_7);
452  if ((((int)cob_cmp (COB_SET_FLD(f0, 3, b_7 + 0, &a_1), &cob_all_space) == 0) ||
453  ((int)memcmp (b_7 + 0, (cob_u8_ptr)"Reserved Words", 14) == 0)))
454  {
455 
456  /* Line: 215 : GO TO : get-reserved-lists.cbl */
457  cob_set_location (st_1, 215, st_20, st_22, st_17);
458  goto l_12;
459  }
460 
461  /* Line: 217 : IF : get-reserved-lists.cbl */
462  cob_set_location (st_1, 217, st_20, st_22, st_7);
463  if (((int)memcmp (b_7 + 0, (cob_u8_ptr)"Extra (obsolete)", 16) == 0))
464  {
465 
466  /* Line: 218 : PERFORM : get-reserved-lists.cbl */
467  cob_set_location (st_1, 218, st_20, st_22, st_6);
468  for (;;)
469  {
470 
471  /* Line: 219 : READ : get-reserved-lists.cbl */
472  cob_set_location (st_1, 219, st_20, st_22, st_15);
473  cob_read_next (h_RESERVE_STREAM, &f_15, 1);
474  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
475  {
476  if (cob_glob_ptr->cob_exception_code == 0x0501)
477  {
478 
479  /* Line: 220 : GO TO : get-reserved-lists.cbl */
480  cob_set_location (st_1, 220, st_20, st_22, st_17);
481  goto l_13;
482  }
483  else
484  {
485  /* PERFORM Default Error Handler */
486  frame_ptr++;
487  if (unlikely(frame_ptr == frame_overflow))
488  cob_fatal_error (COB_FERROR_STACK);
489  frame_ptr->perform_through = 1;
490  frame_ptr->return_address_ptr = &&l_21;
491  goto l_1;
492  l_21:
493  frame_ptr--;
494  }
495  }
496 
497  /* Line: 222 : IF : get-reserved-lists.cbl */
498  cob_set_location (st_1, 222, st_20, st_22, st_7);
499  if (((int)memcmp (b_7 + 0, (cob_u8_ptr)"Extra internal", 14) == 0))
500  {
501 
502  /* Line: 223 : MOVE : get-reserved-lists.cbl */
503  cob_set_location (st_1, 223, st_20, st_22, st_5);
504  (*(cob_s8_ptr) (b_12)) = 1;
505 
506  /* Line: 224 : GO TO : get-reserved-lists.cbl */
507  cob_set_location (st_1, 224, st_20, st_22, st_17);
508  goto l_12;
509  }
510  }
511  }
512 
513  /* Line: 231 : MOVE : get-reserved-lists.cbl */
514  cob_set_location (st_1, 231, st_20, st_22, st_5);
515  (*(int *)(b_11)) = 1;
516 
517  /* Line: 232 : MOVE : get-reserved-lists.cbl */
518  cob_set_location (st_1, 232, st_20, st_22, st_5);
519  memset (b_16, 32, 30);
520  *(b_17) = 32;
521 
522  /* Line: 233 : UNSTRING : get-reserved-lists.cbl */
523  cob_set_location (st_1, 233, st_20, st_22, st_18);
524  cob_unstring_init (&f_6, &f_11, 2);
525  cob_unstring_delimited ((cob_field *)&c_5, 1);
526  cob_unstring_delimited (&cob_all_space, 1);
527  cob_unstring_into (&f_16, 0, 0);
528  cob_unstring_finish ();
529 
530  /* Line: 234 : UNSTRING : get-reserved-lists.cbl */
531  cob_set_location (st_1, 234, st_20, st_22, st_18);
532  cob_unstring_init (&f_6, &f_11, 2);
533  cob_unstring_delimited ((cob_field *)&c_5, 1);
534  cob_unstring_delimited (&cob_all_space, 1);
535  cob_unstring_into (&f_17, 0, 0);
536  cob_unstring_finish ();
537 
538  /* Line: 238 : IF : get-reserved-lists.cbl */
539  cob_set_location (st_1, 238, st_20, st_22, st_7);
540  if (((int)cob_cmp (&f_16, (cob_field *)&c_7) == 0))
541  {
542 
543  /* Line: 239 : GO TO : get-reserved-lists.cbl */
544  cob_set_location (st_1, 239, st_20, st_22, st_17);
545  goto l_12;
546  }
547 
548  /* Line: 241 : ADD : get-reserved-lists.cbl */
549  cob_set_location (st_1, 241, st_20, st_22, st_19);
550  cob_add (COB_SET_DATA (f_35, b_35), (cob_field *)&c_6, 4);
551 
552  /* Line: 242 : MOVE : get-reserved-lists.cbl */
553  cob_set_location (st_1, 242, st_20, st_22, st_5);
554  memmove (b_30 + 1 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1), b_16, 30);
555 
556  /* Line: 243 : IF : get-reserved-lists.cbl */
557  cob_set_location (st_1, 243, st_20, st_22, st_7);
558  if (((int)(int)(*(b_17) - 89) == 0))
559  {
560 
561  /* Line: 244 : MOVE : get-reserved-lists.cbl */
562  cob_set_location (st_1, 244, st_20, st_22, st_5);
563  *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 49;
564  }
565  else
566  {
567  /* ELSE */
568 
569  /* Line: 246 : IF : get-reserved-lists.cbl */
570  cob_set_location (st_1, 246, st_20, st_22, st_7);
571  if (((int)(int)(*(b_17) - 78) == 0))
572  {
573 
574  /* Line: 247 : MOVE : get-reserved-lists.cbl */
575  cob_set_location (st_1, 247, st_20, st_22, st_5);
576  *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 48;
577  }
578  else
579  {
580  /* ELSE */
581 
582  /* Line: 249 : IF : get-reserved-lists.cbl */
583  cob_set_location (st_1, 249, st_20, st_22, st_7);
584  if (((int)cob_cmp_s8 (b_12, 1LL) == 0))
585  {
586 
587  /* Line: 250 : MOVE : get-reserved-lists.cbl */
588  cob_set_location (st_1, 250, st_20, st_22, st_5);
589  *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 49;
590  }
591  else
592  {
593  /* ELSE */
594 
595  /* Line: 252 : MOVE : get-reserved-lists.cbl */
596  cob_set_location (st_1, 252, st_20, st_22, st_5);
597  *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 48;
598  }
599  }
600  }
601 
602  /* Line: 257 : GO TO : get-reserved-lists.cbl */
603  cob_set_location (st_1, 257, st_20, st_22, st_17);
604  goto l_12;
605 
606  /* Line: 259 : Paragraph ca030-Clean-Up : get-reserved-lists.cbl */
607  l_13:;
608 
609  /* Line: 260 : MOVE : get-reserved-lists.cbl */
610  cob_set_location (st_1, 260, st_20, st_23, st_5);
611  (*(cob_s8_ptr) (b_23)) = 0;
612 
613  /* Line: 261 : CLOSE : get-reserved-lists.cbl */
614  cob_set_location (st_1, 261, st_20, st_23, st_16);
615  cob_close (h_RESERVE_STREAM, &f_15, 0, 0);
616  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
617  {
618  /* PERFORM Default Error Handler */
619  frame_ptr++;
620  if (unlikely(frame_ptr == frame_overflow))
621  cob_fatal_error (COB_FERROR_STACK);
622  frame_ptr->perform_through = 1;
623  frame_ptr->return_address_ptr = &&l_22;
624  goto l_1;
625  l_22:
626  frame_ptr--;
627  }
628 
629  /* Line: 262 : IF : get-reserved-lists.cbl */
630  cob_set_location (st_1, 262, st_20, st_23, st_7);
631  if (((int)cob_cmpswp_s32 (b_35, ((int)COB_BSWAP_32(*(int *)(b_14)))) > 0))
632  {
633 
634  /* Line: 263 : DISPLAY : get-reserved-lists.cbl */
635  cob_set_location (st_1, 263, st_20, st_23, st_12);
636  cob_display (0, 1, 1, &f_22);
637  }
638 
639  /* Line: 265 : EXIT SECTION : get-reserved-lists.cbl */
640  cob_set_location (st_1, 265, st_20, st_23, st_13);
641  goto l_11;
642 
643  /* Implicit EXIT label */
644  l_11:;
645 
646  /* Implicit PERFORM return */
647  if (frame_ptr->perform_through == 9)
648  goto *frame_ptr->return_address_ptr;
649 
650  /* Program exit */
651 
652  exit_program:
653 
654  /* Decrement module active count */
655  if (module->module_active) {
656  module->module_active--;
657  }
658 
659  /* Pop module stack */
660  cob_module_leave (module);
661 
662  /* Program return */
663  return b_1;
664 
665 
666  /* Paragraph Default Error Handler */
667  l_1:;
668 
669  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
670  cob_fatal_error (COB_FERROR_FILE);
671  }
672 
673  /* Implicit Default Error Handler return */
674  if (frame_ptr->perform_through == 1)
675  goto *frame_ptr->return_address_ptr;
676 
677  /* Fatal error if reached */
678  cob_fatal_error (COB_FERROR_CODEGEN);
679 
680 
681  /* Program initialization */
682  P_initialize:
683 
684  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);
685 
686  /* Initialize module structure */
687  module->module_name = "get-reserved-lists";
688  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
689  module->module_source = COB_SOURCE_FILE;
690  module->module_entry.funcptr = (void *(*)())get__reserved__lists;
691  module->module_cancel.funcptr = (void *(*)())get__reserved__lists_;
692  module->collating_sequence = NULL;
693  module->crt_status = NULL;
694  module->cursor_pos = NULL;
695  module->module_ref_count = NULL;
696  module->module_path = &cob_module_path;
697  module->module_active = 0;
698  module->module_date = COB_MODULE_DATE;
699  module->module_time = COB_MODULE_TIME;
700  module->module_type = 0;
701  module->module_param_cnt = 5;
702  module->module_returning = 0;
703  module->ebcdic_sign = 0;
704  module->decimal_point = '.';
705  module->currency_symbol = '$';
706  module->numeric_separator = ',';
707  module->flag_filename_mapping = 1;
708  module->flag_binary_truncate = 1;
709  module->flag_pretty_display = 1;
710  module->flag_host_sign = 0;
711  module->flag_no_phys_canc = 1;
712  module->flag_main = 0;
713  module->flag_fold_call = 0;
714  module->flag_exit_program = 0;
715 
716  /* Initialize cancel callback */
717  cob_set_cancel (module);
718 
719  /* Initialize WORKING-STORAGE */
720  b_1 = 0;
721  memcpy (b_10, "get-reserved-lists v1.00.01", 27);
722  (*(int *)(b_11)) = 0;
723  (*(cob_s8_ptr) (b_12)) = 0;
724  memset (b_13, 0, 4);
725  memset (b_14, 0, 4);
726  memset (b_15, 48, 2);
727  memset (b_16, 32, 30);
728  *(cob_u8_ptr)(b_17) = 32;
729  memcpy (b_18, "Msg11 Cannot run 'cobc --list-intrinsics', cobc not in path\?", 60);
730  memcpy (b_18 + 60, "Msg12 Cannot run 'cobc --list-reserved', cobc not in path\?", 58);
731  memcpy (b_18 + 118, "Msg13 Intrinsic word table was successfully updated", 51);
732  memcpy (b_18 + 169, "Msg14 Reserve word table was successfully updated", 49);
733  b_26 = 1;
734  b_32 = 1;
735 
736 
737  if (!h_RESERVE_STREAM)
738  {
739  h_RESERVE_STREAM = cob_cache_malloc (sizeof(cob_file));
740  }
741  h_RESERVE_STREAM->select_name = (const char *)"Reserve-Stream";
742  h_RESERVE_STREAM->file_status = h_RESERVE_STREAM_status;
743  memset (h_RESERVE_STREAM_status, '0', 2);
744  h_RESERVE_STREAM->assign = (cob_field *)&c_3;
745  h_RESERVE_STREAM->record = &f_7;
746  h_RESERVE_STREAM->variable_record = NULL;
747  h_RESERVE_STREAM->record_min = 0;
748  h_RESERVE_STREAM->record_max = 128;
749  h_RESERVE_STREAM->nkeys = 0;
750  h_RESERVE_STREAM->keys = NULL;
751  h_RESERVE_STREAM->file = NULL;
752  h_RESERVE_STREAM->fd = -1;
753  h_RESERVE_STREAM->organization = 1;
754  h_RESERVE_STREAM->access_mode = 1;
755  h_RESERVE_STREAM->lock_mode = 0;
756  h_RESERVE_STREAM->open_mode = 0;
757  h_RESERVE_STREAM->flag_optional = 0;
758  h_RESERVE_STREAM->last_open_mode = 0;
759  h_RESERVE_STREAM->flag_operation = 0;
760  h_RESERVE_STREAM->flag_nonexistent = 0;
761  h_RESERVE_STREAM->flag_end_of_file = 0;
762  h_RESERVE_STREAM->flag_begin_of_file = 0;
763  h_RESERVE_STREAM->flag_first_read = 0;
764  h_RESERVE_STREAM->flag_read_done = 0;
765  h_RESERVE_STREAM->flag_select_features = 1;
766  h_RESERVE_STREAM->flag_needs_nl = 0;
767  h_RESERVE_STREAM->flag_needs_top = 0;
768  h_RESERVE_STREAM->file_version = 1;
769  if (!h_INTRINSIC_STREAM)
770  {
771  h_INTRINSIC_STREAM = cob_cache_malloc (sizeof(cob_file));
772  }
773  h_INTRINSIC_STREAM->select_name = (const char *)"Intrinsic-Stream";
774  h_INTRINSIC_STREAM->file_status = h_INTRINSIC_STREAM_status;
775  memset (h_INTRINSIC_STREAM_status, '0', 2);
776  h_INTRINSIC_STREAM->assign = (cob_field *)&c_4;
777  h_INTRINSIC_STREAM->record = &f_9;
778  h_INTRINSIC_STREAM->variable_record = NULL;
779  h_INTRINSIC_STREAM->record_min = 0;
780  h_INTRINSIC_STREAM->record_max = 128;
781  h_INTRINSIC_STREAM->nkeys = 0;
782  h_INTRINSIC_STREAM->keys = NULL;
783  h_INTRINSIC_STREAM->file = NULL;
784  h_INTRINSIC_STREAM->fd = -1;
785  h_INTRINSIC_STREAM->organization = 1;
786  h_INTRINSIC_STREAM->access_mode = 1;
787  h_INTRINSIC_STREAM->lock_mode = 0;
788  h_INTRINSIC_STREAM->open_mode = 0;
789  h_INTRINSIC_STREAM->flag_optional = 0;
790  h_INTRINSIC_STREAM->last_open_mode = 0;
791  h_INTRINSIC_STREAM->flag_operation = 0;
792  h_INTRINSIC_STREAM->flag_nonexistent = 0;
793  h_INTRINSIC_STREAM->flag_end_of_file = 0;
794  h_INTRINSIC_STREAM->flag_begin_of_file = 0;
795  h_INTRINSIC_STREAM->flag_first_read = 0;
796  h_INTRINSIC_STREAM->flag_read_done = 0;
797  h_INTRINSIC_STREAM->flag_select_features = 1;
798  h_INTRINSIC_STREAM->flag_needs_nl = 0;
799  h_INTRINSIC_STREAM->flag_needs_top = 0;
800  h_INTRINSIC_STREAM->file_version = 1;
801 
802  initialized = 1;
803  goto P_ret_initialize;
804 
805  /* CANCEL callback handling */
806  P_cancel:
807 
808  if (!initialized) {
809  return 0;
810  }
811  if (module->module_active) {
812  cob_fatal_error (COB_FERROR_CANCEL);
813  }
814 
815  cob_close (h_RESERVE_STREAM, NULL, COB_CLOSE_NORMAL, 1);
816  cob_cache_free (h_RESERVE_STREAM);
817  h_RESERVE_STREAM = NULL;
818  cob_close (h_INTRINSIC_STREAM, NULL, COB_CLOSE_NORMAL, 1);
819  cob_cache_free (h_INTRINSIC_STREAM);
820  h_INTRINSIC_STREAM = NULL;
821  b_1 = 0;
822  cob_cache_free (module);
823  module = NULL;
824 
825  initialized = 0;
826  return 0;
827 
828 }
829 
830 /* End PROGRAM-ID 'get-reserved-lists' */
831 
832 /* End functions */
833 
cob_file::record
cob_field * record
Definition: common.h:1115
__cob_module::flag_main
unsigned char flag_main
Definition: common.h:1079
st_15
static const char st_15[]
Definition: cobxref.c.h:137
COB_FERROR_CODEGEN
#define COB_FERROR_CODEGEN
Definition: common.h:693
st_3
static const char st_3[]
Definition: cobxref.c.h:125
get__reserved__lists_
static int get__reserved__lists_(const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
Definition: get-reserved-lists.c:44
__cob_global::cob_error_file
cob_file * cob_error_file
Definition: common.h:1187
cob_add
void cob_add(cob_field *, cob_field *, const int)
Definition: numeric.c:1931
cob_glob_ptr
cob_global * cob_glob_ptr
Definition: cobxref.c.l.h:17
cob_check_version
void cob_check_version(const char *prog, const char *packver, const int patchlev)
Definition: common.c:1894
cob_file::organization
unsigned char organization
Definition: common.h:1127
__cob_module::flag_exit_program
unsigned char flag_exit_program
Definition: common.h:1081
__cob_module::module_active
unsigned int module_active
Definition: common.h:1060
cob_sys_system
int cob_sys_system(const void *cmdline)
Definition: common.c:3426
cob_move
void cob_move(cob_field *, cob_field *)
Definition: move.c:1170
cob_file::assign
cob_field * assign
Definition: common.h:1114
module
static cob_module * module
Definition: cobxref.c.l.h:14
__cob_module::flag_fold_call
unsigned char flag_fold_call
Definition: common.h:1080
st_8
static const char st_8[]
Definition: cobxref.c.h:130
st_4
static const char st_4[]
Definition: cobxref.c.h:126
cob_cmpswp_s32
static COB_INLINE COB_A_INLINE int cob_cmpswp_s32(const void *p, const cob_s64_t n)
Definition: get-reserved-lists.c.h:68
COB_FERROR_CANCEL
#define COB_FERROR_CANCEL
Definition: common.h:691
h_INTRINSIC_STREAM_status
static unsigned char h_INTRINSIC_STREAM_status[4]
Definition: get-reserved-lists.c.l.h:26
c_5
static const cob_field c_5
Definition: cobxref.c.h:34
cob_cache_free
void cob_cache_free(void *ptr)
Definition: common.c:1362
cob_call_union::funcptr
void *(* funcptr)()
Definition: common.h:1006
cob_read_next
void cob_read_next(cob_file *, cob_field *, const int)
Definition: fileio.c:4696
__cob_module::numeric_separator
unsigned char numeric_separator
Definition: common.h:1071
__cob_module::module_formatted_date
const char * module_formatted_date
Definition: common.h:1050
st_5
static const char st_5[]
Definition: cobxref.c.h:127
cob_cmp_s8
static COB_INLINE COB_A_INLINE int cob_cmp_s8(const void *p, const cob_s64_t n)
Definition: cobxref.c.h:318
cob_field
Definition: common.h:950
frame_ptr
struct cob_frame * frame_ptr
Definition: cobxref.c.l.h:65
h_RESERVE_STREAM
static cob_file * h_RESERVE_STREAM
Definition: get-reserved-lists.c.l.h:21
f_19
static cob_field f_19
Definition: get-reserved-lists.c.l.h:69
cob_frame::perform_through
unsigned int perform_through
Definition: common.h:992
f_11
static cob_field f_11
Definition: cobxref.c.l.h:199
cob_close
void cob_close(cob_file *, cob_field *, const int, const int)
Definition: fileio.c:4498
__cob_module::module_entry
cob_call_union module_entry
Definition: common.h:1052
cob_sys_delete_file
int cob_sys_delete_file(unsigned char *)
Definition: fileio.c:5165
frame_overflow
struct cob_frame * frame_overflow
Definition: cobxref.c.l.h:64
f_23
static cob_field f_23
Definition: cobxref.c.l.h:201
st_20
static const char st_20[]
Definition: cobxref.c.h:142
COB_SET_DATA
#define COB_SET_DATA(x, z)
Definition: common.h:686
COB_PATCH_LEVEL
#define COB_PATCH_LEVEL
Definition: get-reserved-lists.c:18
st_16
static const char st_16[]
Definition: cobxref.c.h:138
cob_file::flag_operation
unsigned char flag_operation
Definition: common.h:1133
c_6
static const cob_field c_6
Definition: cobxref.c.h:35
COB_MODULE_DATE
#define COB_MODULE_DATE
Definition: get-reserved-lists.c:20
COB_BSWAP_32
#define COB_BSWAP_32(val)
Definition: common.h:257
st_11
static const char st_11[]
Definition: cobxref.c.h:133
cob_file::flag_optional
unsigned char flag_optional
Definition: common.h:1131
f0
cob_field f0
Definition: cobxref.c.l.h:53
cob_file::file_status
unsigned char * file_status
Definition: common.h:1113
st_12
static const char st_12[]
Definition: cobxref.c.h:134
f_29
static cob_field f_29
Definition: cobxref.c.l.h:205
cob_u8_t
#define cob_u8_t
Definition: common.h:27
st_10
static const char st_10[]
Definition: cobxref.c.h:132
__cob_global::cob_call_params
int cob_call_params
Definition: common.h:1204
get__reserved__lists
int get__reserved__lists(cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
Definition: get-reserved-lists.c:38
__cob_module::currency_symbol
unsigned char currency_symbol
Definition: common.h:1070
cob_file::record_min
size_t record_min
Definition: common.h:1122
__cob_module::ebcdic_sign
unsigned char ebcdic_sign
Definition: common.h:1068
cob_file::lock_mode
unsigned char lock_mode
Definition: common.h:1129
f_17
static cob_field f_17
Definition: get-reserved-lists.c.l.h:68
cob_unstring_into
void cob_unstring_into(cob_field *, cob_field *, cob_field *)
Definition: strings.c:524
cob_procedure_params
cob_field * cob_procedure_params[5]
Definition: cobxref.c.l.h:61
cob_all_space
static cob_field cob_all_space
Definition: cobxref.c.h:118
cob_file::record_max
size_t record_max
Definition: common.h:1123
__cob_module::module_ref_count
unsigned int * module_ref_count
Definition: common.h:1057
cob_fatal_error
void cob_fatal_error(const int fatal_error)
Definition: common.c:1601
cob_module_leave
void cob_module_leave(cob_module *module)
Definition: common.c:1827
__cob_module::flag_binary_truncate
unsigned char flag_binary_truncate
Definition: common.h:1074
cob_u8_ptr
#define cob_u8_ptr
Definition: common.h:66
__cob_module::module_time
unsigned int module_time
Definition: common.h:1062
__cob_module::collating_sequence
const unsigned char * collating_sequence
Definition: common.h:1054
cob_set_location
void cob_set_location(const char *sfile, const unsigned int sline, const char *csect, const char *cpara, const char *cstatement)
Definition: common.c:1388
__cob_module::next
struct __cob_module * next
Definition: common.h:1047
unlikely
#define unlikely(x)
Definition: common.h:437
st_17
static const char st_17[]
Definition: cobxref.c.h:139
frame_stack
struct cob_frame frame_stack[255]
Definition: cobxref.c.l.h:66
st_2
static const char st_2[]
Definition: cobxref.c.h:124
st_18
static const char st_18[]
Definition: cobxref.c.h:140
h_RESERVE_STREAM_status
static unsigned char h_RESERVE_STREAM_status[4]
Definition: get-reserved-lists.c.l.h:22
cob_frame::return_address_ptr
void * return_address_ptr
Definition: common.h:991
NULL
EC ARGUMENT EC EC BOUND EC BOUND EC BOUND EC BOUND TABLE EC DATA EC DATA EC DATA PTR NULL
Definition: exception.def:95
__cob_module::module_date
unsigned int module_date
Definition: common.h:1061
a_1
static const cob_field_attr a_1
Definition: cobxref.c.h:14
f_20
static cob_field f_20
Definition: get-reserved-lists.c.l.h:70
cob_s8_ptr
#define cob_s8_ptr
Definition: common.h:67
f_35
static cob_field f_35
Definition: cobxref.c.l.h:208
b_1
static int b_1
Definition: cobxref.c.l.h:70
b_32
static int b_32
Definition: get-reserved-lists.c.l.h:55
__cob_module::module_type
unsigned int module_type
Definition: common.h:1063
__cob_module::flag_filename_mapping
unsigned char flag_filename_mapping
Definition: common.h:1073
c_2
static const cob_field c_2
Definition: cobxref.c.h:31
__cob_module::flag_host_sign
unsigned char flag_host_sign
Definition: common.h:1076
__cob_module::module_param_cnt
unsigned int module_param_cnt
Definition: common.h:1064
cob_file::flag_first_read
unsigned char flag_first_read
Definition: common.h:1138
cob_file::flag_read_done
unsigned char flag_read_done
Definition: common.h:1139
cob_file::keys
cob_file_key * keys
Definition: common.h:1117
cob_unstring_finish
void cob_unstring_finish(void)
Definition: strings.c:620
st_7
static const char st_7[]
Definition: cobxref.c.h:129
__cob_module::module_num_params
int module_num_params
Definition: common.h:1066
st_19
static const char st_19[]
Definition: cobxref.c.h:141
cob_cmp
int cob_cmp(cob_field *f1, cob_field *f2)
Definition: common.c:2318
COB_FERROR_FILE
#define COB_FERROR_FILE
Definition: common.h:701
h_INTRINSIC_STREAM
static cob_file * h_INTRINSIC_STREAM
Definition: get-reserved-lists.c.l.h:25
st_23
static const char st_23[]
Definition: cobxref.c.h:145
cob_unstring_delimited
void cob_unstring_delimited(cob_field *, const unsigned int)
f_22
static cob_field f_22
Definition: get-reserved-lists.c.l.h:72
COB_FERROR_STACK
#define COB_FERROR_STACK
Definition: common.h:695
f_16
static cob_field f_16
Definition: get-reserved-lists.c.l.h:67
__cob_module::module_name
const char * module_name
Definition: common.h:1049
cob_set_cancel
void cob_set_cancel(cob_module *m)
Definition: call.c:885
c_1
static const cob_field c_1
Definition: cobxref.c.h:30
st_13
static const char st_13[]
Definition: cobxref.c.h:135
cob_module_path
static const char * cob_module_path
Definition: cobxref.c.h:10
st_1
static const char st_1[]
Definition: cobxref.c.h:123
COB_SELECT_FILE_STATUS
#define COB_SELECT_FILE_STATUS
Definition: common.h:757
cob_open
void cob_open(cob_file *, const int, const int, cob_field *)
Definition: fileio.c:4438
COB_SET_FLD
#define COB_SET_FLD(v, x, y, z)
Definition: common.h:685
COB_MODULE_FORMATTED_DATE
#define COB_MODULE_FORMATTED_DATE
Definition: get-reserved-lists.c:19
cob_file::flag_needs_top
unsigned char flag_needs_top
Definition: common.h:1142
st_22
static const char st_22[]
Definition: cobxref.c.h:144
f_8
static cob_field f_8
Definition: cobxref.c.l.h:197
__cob_module::decimal_point
unsigned char decimal_point
Definition: common.h:1069
st_9
static const char st_9[]
Definition: cobxref.c.h:131
cob_display
void cob_display(const int, const int, const int,...)
Definition: termio.c:238
cob_file::variable_record
cob_field * variable_record
Definition: common.h:1116
cob_module_enter
void cob_module_enter(cob_module **module, cob_global **mglobal, const int auto_init)
Definition: common.c:1796
c_3
static const cob_field c_3
Definition: cobxref.c.h:32
cob_file::fd
int fd
Definition: common.h:1125
cob_file::flag_select_features
unsigned char flag_select_features
Definition: common.h:1140
f_7
static cob_field f_7
Definition: get-reserved-lists.c.l.h:62
cob_unstring_init
void cob_unstring_init(cob_field *, cob_field *, const size_t)
Definition: strings.c:487
initialized
static size_t initialized
Definition: typeck.c:102
st_21
static const char st_21[]
Definition: cobxref.c.h:143
__cob_module::cursor_pos
cob_field * cursor_pos
Definition: common.h:1056
f_15
static cob_field f_15
Definition: get-reserved-lists.c.l.h:66
__cob_module::module_returning
unsigned int module_returning
Definition: common.h:1065
c_7
static const cob_field c_7
Definition: cobxref.c.h:36
cob_file::last_open_mode
unsigned char last_open_mode
Definition: common.h:1132
f_6
static cob_field f_6
Definition: get-reserved-lists.c.l.h:61
c_4
static const cob_field c_4
Definition: cobxref.c.h:33
COB_PACKAGE_VERSION
#define COB_PACKAGE_VERSION
Definition: get-reserved-lists.c:17
__cob_module::module_path
const char ** module_path
Definition: common.h:1058
__cob_module::module_cancel
cob_call_union module_cancel
Definition: common.h:1053
cob_file
Definition: common.h:1111
__cob_global::cob_exception_code
int cob_exception_code
Definition: common.h:1203
cob_file::flag_begin_of_file
unsigned char flag_begin_of_file
Definition: common.h:1137
cob_file::open_mode
unsigned char open_mode
Definition: common.h:1130
cob_file::nkeys
size_t nkeys
Definition: common.h:1124
COB_CLOSE_NORMAL
#define COB_CLOSE_NORMAL
Definition: common.h:792
cob_file::file
void * file
Definition: common.h:1118
__cob_module::module_source
const char * module_source
Definition: common.h:1051
__cob_module::cob_procedure_params
cob_field ** cob_procedure_params
Definition: common.h:1048
cob_file::access_mode
unsigned char access_mode
Definition: common.h:1128
cob_cmp_numdisp
int cob_cmp_numdisp(const unsigned char *, const size_t, const long long, const unsigned int)
cob_file::flag_nonexistent
unsigned char flag_nonexistent
Definition: common.h:1134
cob_file::flag_end_of_file
unsigned char flag_end_of_file
Definition: common.h:1136
COB_SOURCE_FILE
#define COB_SOURCE_FILE
Definition: get-reserved-lists.c:16
__cob_module::flag_pretty_display
unsigned char flag_pretty_display
Definition: common.h:1075
__cob_module::crt_status
cob_field * crt_status
Definition: common.h:1055
b_26
static int b_26
Definition: get-reserved-lists.c.l.h:54
f_21
static cob_field f_21
Definition: get-reserved-lists.c.l.h:71
cob_file::flag_needs_nl
unsigned char flag_needs_nl
Definition: common.h:1141
cob_file::file_version
unsigned char file_version
Definition: common.h:1143
cob_file::select_name
const char * select_name
Definition: common.h:1112
st_14
static const char st_14[]
Definition: cobxref.c.h:136
__cob_module::flag_no_phys_canc
unsigned char flag_no_phys_canc
Definition: common.h:1078
f_9
static cob_field f_9
Definition: cobxref.c.l.h:198
cob_cache_malloc
void * cob_cache_malloc(const size_t size)
Definition: common.c:1321
COB_MODULE_TIME
#define COB_MODULE_TIME
Definition: get-reserved-lists.c:21
st_6
static const char st_6[]
Definition: cobxref.c.h:128