GnuCOBOL  2.0
A free COBOL compiler
GCic.c.l3.h
Go to the documentation of this file.
1 /* Generated by cobc 2.0.0 */
2 /* Generated from GCic.cbl */
3 /* Generated at Apr 17 2016 04:46:54 */
4 /* GnuCOBOL build date Apr 17 2016 04:44:31 */
5 /* GnuCOBOL package date Oct 25 2015 21:40:28 UTC */
6 /* Compile command cobc -x -g -v GCic.cbl */
7 
8 /* Program local variables for 'LISTING' */
9 
10 /* Module initialization indicator */
11 static unsigned int initialized = 0;
12 
13 /* Module structure pointer */
14 static cob_module *module = NULL;
15 
16 /* Global variable pointer */
17 cob_global *cob_glob_ptr;
18 
19 /* Decimal structures */
20 cob_decimal *d0;
21 cob_decimal *d1;
22 
23 
24 /* File F-Expanded-Src-FILE */
25 static cob_file *h_F_EXPANDED_SRC_FILE = NULL;
26 static unsigned char h_F_EXPANDED_SRC_FILE_status[4];
27 
28 /* File F-Listing-FILE */
29 static cob_file *h_F_LISTING_FILE = NULL;
30 static unsigned char h_F_LISTING_FILE_status[4];
31 
32 /* File F-Original-Src-FILE */
33 static cob_file *h_F_ORIGINAL_SRC_FILE = NULL;
34 static unsigned char h_F_ORIGINAL_SRC_FILE_status[4];
35 
36 /* File F-Sort-Work-FILE */
37 static cob_file *h_F_SORT_WORK_FILE = NULL;
38 static unsigned char h_F_SORT_WORK_FILE_status[4];
39 
40 /* Subscripts */
41 int i1;
42 
43 /* Loop counters */
44 cob_s64_t n0 = 0;
45 cob_s64_t n1 = 0;
46 cob_s64_t n2 = 0;
47 cob_s64_t n3 = 0;
48 
49 
50 /* Local cob_field items */
51 cob_field f0;
52 
53 
54 /* Call parameters */
55 cob_field *cob_procedure_params[2];
56 
57 /* Perform frame stack */
58 struct cob_frame *frame_overflow;
59 struct cob_frame *frame_ptr;
60 struct cob_frame frame_stack[255];
61 
62 
63 /* Data storage */
64 static int b_377; /* RETURN-CODE */
65 static cob_u8_t b_378[4] __attribute__((aligned)); /* SORT-RETURN */
66 static cob_u8_t b_388[257] __attribute__((aligned)); /* F-Expanded-Src-FILE Record */
67 static cob_u8_t b_392[135] __attribute__((aligned)); /* F-Listing-FILE Record */
68 static cob_u8_t b_400[256] __attribute__((aligned)); /* F-Original-Src-FILE Record */
69 static cob_u8_t b_410[107] __attribute__((aligned)); /* F-Sort-Work-FILE Record */
70 static cob_u8_t b_411[86] __attribute__((aligned)); /* WS-Copyright-TXT */
71 static cob_u8_t b_412[1] __attribute__((aligned)); /* WS-Curr-CHR */
72 static cob_u8_t b_417[1] __attribute__((aligned)); /* WS-Curr-Division-TXT */
73 static cob_u8_t b_422[6] __attribute__((aligned)); /* WS-Curr-Line-NUM */
74 static cob_u8_t b_423[16] __attribute__((aligned)); /* WS-Curr-Prog-ID-TXT */
75 static cob_u8_t b_427[15] __attribute__((aligned)); /* WS-Curr-Section-TXT */
76 static cob_u8_t b_433[12] __attribute__((aligned)); /* WS-Curr-Verb-TXT */
77 static cob_u8_t b_434[2] __attribute__((aligned)); /* WS-Delim-TXT */
78 static cob_u8_t b_435[1] __attribute__((aligned)); /* WS-Dummy-TXT */
79 static cob_u8_t b_436[256] __attribute__((aligned)); /* WS-Expanded-Src-Fn-TXT */
80 static cob_u8_t b_437[256] __attribute__((aligned)); /* WS-Filename-TXT */
81 static cob_u8_t b_438[1] __attribute__((aligned)); /* WS-Flags-TXT */
82 static cob_u8_t b_440[10] __attribute__((aligned)); /* WS-Formatted-DT */
83 static cob_u8_t b_441[47] __attribute__((aligned)); /* WS-Group-Indicators-TXT */
84 static cob_u8_t b_444[100] __attribute__((aligned)); /* WS-Held-Reference-TXT */
85 static cob_u8_t b_445[4] __attribute__((aligned)); /* WS-I-SUB */
86 static cob_u8_t b_446[4] __attribute__((aligned)); /* WS-J-SUB */
87 static cob_u8_t b_447[4] __attribute__((aligned)); /* WS-Lines-Left-NUM */
88 static cob_u8_t b_448[4] __attribute__((aligned)); /* WS-Lines-Per-Page-NUM */
89 static cob_u8_t b_449[256] __attribute__((aligned)); /* WS-Lines-Per-Page-Env-TXT */
90 static cob_u8_t b_450[256] __attribute__((aligned)); /* WS-Main-Module-Name-TXT */
91 static cob_u8_t b_451[1] __attribute__((aligned)); /* WS-Next-CHR */
92 static cob_u8_t b_453[70] __attribute__((aligned)); /* WS-OS-Type-FILLER-TXT */
93 static cob_u8_t b_461[4] __attribute__((aligned)); /* WS-Page-NUM */
94 static cob_u8_t b_462[10] __attribute__((aligned)); /* WS-Page-No-TXT */
95 static cob_u8_t b_465[135] __attribute__((aligned)); /* WS-Program-Path-TXT */
96 static cob_u8_t b_466[24882] __attribute__((aligned)); /* WS-Reserved-Words-TXT */
97 static int b_1223; /* WS-RW-IDX */
98 static cob_u8_t b_1226[6] __attribute__((aligned)); /* WS-Runtime-Switches */
99 static cob_u8_t b_1235[15] __attribute__((aligned)); /* WS-Saved-Section-TXT */
100 static cob_u8_t b_1236[135] __attribute__((aligned)); /* WS-Src-Dashes-TXT */
101 static cob_u8_t b_1239[263] __attribute__((aligned)); /* WS-Src-Detail-Line-TXT */
102 static cob_u8_t b_1243[256] __attribute__((aligned)); /* WS-Src-Hold-TXT */
103 static cob_u8_t b_1244[6] __attribute__((aligned)); /* WS-Src-Line-NUM */
104 static cob_u8_t b_1245[4] __attribute__((aligned)); /* WS-Src-Lines-NUM */
105 static cob_u8_t b_1246[4] __attribute__((aligned)); /* WS-Src-SUB */
106 static cob_u8_t b_1247[4] __attribute__((aligned)); /* WS-Tally-QTY */
107 static cob_u8_t b_1248[10] __attribute__((aligned)); /* WS-Temp-10-Chars-TXT */
108 static cob_u8_t b_1249[32] __attribute__((aligned)); /* WS-Temp-32-Chars-1-TXT */
109 static cob_u8_t b_1250[32] __attribute__((aligned)); /* WS-Temp-32-Chars-2-TXT */
110 static cob_u8_t b_1251[32] __attribute__((aligned)); /* WS-Temp-32-Chars-3-TXT */
111 static cob_u8_t b_1252[65] __attribute__((aligned)); /* WS-Temp-65-Chars-TXT */
112 static cob_u8_t b_1253[256] __attribute__((aligned)); /* WS-Temp-256-Chars-TXT */
113 static cob_u8_t b_1254[8] __attribute__((aligned)); /* WS-Today-DT */
114 static cob_u8_t b_1255[32] __attribute__((aligned)); /* WS-Token-Curr-TXT */
115 static cob_u8_t b_1256[32] __attribute__((aligned)); /* WS-Token-Curr-Uc-TXT */
116 static cob_u8_t b_1257[32] __attribute__((aligned)); /* WS-Token-Prev-TXT */
117 static cob_u8_t b_1258[32] __attribute__((aligned)); /* WS-Token-Search-TXT */
118 static cob_u8_t b_1259[1] __attribute__((aligned)); /* WS-Token-Type-CD */
119 static cob_u8_t b_1269[4] __attribute__((aligned)); /* WS-Usernames-QTY */
120 static cob_u8_t b_1270[23] __attribute__((aligned)); /* WS-Version-TXT */
121 static cob_u8_t b_1271[136] __attribute__((aligned)); /* WS-Xref-Detail-Line-TXT */
122 static cob_u8_t b_1284[1] __attribute__((aligned)); /* WS-Xref-Lines-Per-Rec-NUM */
123 
124 /* End of data storage */
125 
126 
127 /* Fields */
128 static cob_field f_382 = {257, b_388, &a_2}; /* F-Expanded-Src-REC */
129 static cob_field f_384 = {256, b_388 + 1, &a_1}; /* F-ES-2-256-TXT-256 */
130 static cob_field f_388 = {257, b_388, &a_1}; /* F-Expanded-Src-FILE Record */
131 static cob_field f_389 = {96, b_392, &a_1}; /* F-Listing-96-REC */
132 static cob_field f_390 = {135, b_392, &a_1}; /* F-Listing-135-REC */
133 static cob_field f_392 = {135, b_392, &a_1}; /* F-Listing-FILE Record */
134 static cob_field f_397 = {65, b_400 + 7, &a_1}; /* F-OS-8-72-TXT */
135 static cob_field f_400 = {256, b_400, &a_1}; /* F-Original-Src-FILE Record */
136 static cob_field f_401 = {107, b_410, &a_2}; /* F-Sort-Work-REC */
137 static cob_field f_402 = {15, b_410, &a_1}; /* F-SW-Prog-ID-TXT */
138 static cob_field f_403 = {32, b_410 + 15, &a_1}; /* F-SW-Token-Uc-TXT */
139 static cob_field f_406 = {6, b_410 + 94, &a_8}; /* F-SW-Def-Line-NUM */
140 static cob_field f_407 = {7, b_410 + 100, &a_2}; /* F-SW-Reference-TXT */
141 static cob_field f_408 = {6, b_410 + 100, &a_8}; /* F-SW-Ref-Line-NUM */
142 static cob_field f_410 = {107, b_410, &a_1}; /* F-Sort-Work-FILE Record */
143 static cob_field f_411 = {86, b_411, &a_1}; /* WS-Copyright-TXT */
144 static cob_field f_412 = {1, b_412, &a_1}; /* WS-Curr-CHR */
145 static cob_field f_422 = {6, b_422, &a_8}; /* WS-Curr-Line-NUM */
146 static cob_field f_427 = {15, b_427, &a_2}; /* WS-Curr-Section-TXT */
147 static cob_field f_431 = {3, b_427 + 11, &a_1}; /* WS-CS-11-14-TXT */
148 static cob_field f_433 = {12, b_433, &a_1}; /* WS-Curr-Verb-TXT */
149 static cob_field f_434 = {2, b_434, &a_1}; /* WS-Delim-TXT */
150 static cob_field f_435 = {1, b_435, &a_1}; /* WS-Dummy-TXT */
151 static cob_field f_436 = {256, b_436, &a_1}; /* WS-Expanded-Src-Fn-TXT */
152 static cob_field f_437 = {256, b_437, &a_1}; /* WS-Filename-TXT */
153 static cob_field f_440 = {10, b_440, &a_10}; /* WS-Formatted-DT */
154 static cob_field f_444 = {100, b_444, &a_1}; /* WS-Held-Reference-TXT */
155 static cob_field f_445 = {4, b_445, &a_4}; /* WS-I-SUB */
156 static cob_field f_447 = {4, b_447, &a_4}; /* WS-Lines-Left-NUM */
157 static cob_field f_448 = {4, b_448, &a_4}; /* WS-Lines-Per-Page-NUM */
158 static cob_field f_449 = {256, b_449, &a_1}; /* WS-Lines-Per-Page-Env-TXT */
159 static cob_field f_450 = {256, b_450, &a_1}; /* WS-Main-Module-Name-TXT */
160 static cob_field f_451 = {1, b_451, &a_1}; /* WS-Next-CHR */
161 static cob_field f_461 = {4, b_461, &a_4}; /* WS-Page-NUM */
162 static cob_field f_462 = {10, b_462, &a_2}; /* WS-Page-No-TXT */
163 static cob_field f_464 = {4, b_462 + 6, &a_12}; /* WS-PN-Page-NUM */
164 static cob_field f_465 = {135, b_465, &a_1}; /* WS-Program-Path-TXT */
165 static cob_field f_1235 = {15, b_1235, &a_1}; /* WS-Saved-Section-TXT */
166 static cob_field f_1240 = {6, b_1239, &a_11}; /* WS-SDL-Line-NUM */
167 static cob_field f_1242 = {256, b_1239 + 7, &a_1}; /* WS-SDL-Statement-TXT */
168 static cob_field f_1244 = {6, b_1244, &a_8}; /* WS-Src-Line-NUM */
169 static cob_field f_1246 = {4, b_1246, &a_4}; /* WS-Src-SUB */
170 static cob_field f_1247 = {4, b_1247, &a_4}; /* WS-Tally-QTY */
171 static cob_field f_1248 = {10, b_1248, &a_1}; /* WS-Temp-10-Chars-TXT */
172 static cob_field f_1249 = {32, b_1249, &a_1}; /* WS-Temp-32-Chars-1-TXT */
173 static cob_field f_1250 = {32, b_1250, &a_1}; /* WS-Temp-32-Chars-2-TXT */
174 static cob_field f_1251 = {32, b_1251, &a_1}; /* WS-Temp-32-Chars-3-TXT */
175 static cob_field f_1252 = {65, b_1252, &a_1}; /* WS-Temp-65-Chars-TXT */
176 static cob_field f_1253 = {256, b_1253, &a_1}; /* WS-Temp-256-Chars-TXT */
177 static cob_field f_1254 = {8, b_1254, &a_9}; /* WS-Today-DT */
178 static cob_field f_1255 = {32, b_1255, &a_1}; /* WS-Token-Curr-TXT */
179 static cob_field f_1256 = {32, b_1256, &a_1}; /* WS-Token-Curr-Uc-TXT */
180 static cob_field f_1257 = {32, b_1257, &a_1}; /* WS-Token-Prev-TXT */
181 static cob_field f_1258 = {32, b_1258, &a_1}; /* WS-Token-Search-TXT */
182 static cob_field f_1270 = {23, b_1270, &a_1}; /* WS-Version-TXT */
183 static cob_field f_1271 = {136, b_1271, &a_2}; /* WS-Xref-Detail-Line-TXT */
184 static cob_field f_1276 = {6, b_1271 + 49, &a_11}; /* WS-XDL-Def-Line-NUM */
185 static cob_field f_1284 = {1, b_1284, &a_5}; /* WS-Xref-Lines-Per-Rec-NUM */
186 static cob_field f_1285 = {256, NULL, &a_1}; /* L-Listing-Fn-TXT */
187 static cob_field f_1286 = {256, NULL, &a_1}; /* L-Src-Fn-TXT */
188 
189 /* End of fields */
190 
f_461
static cob_field f_461
Definition: GCic.c.l3.h:161
n0
cob_s64_t n0
Definition: GCic.c.l3.h:44
a_2
static const cob_field_attr a_2
Definition: cobxref.c.h:15
f_408
static cob_field f_408
Definition: GCic.c.l3.h:141
f_464
static cob_field f_464
Definition: GCic.c.l3.h:163
h_F_ORIGINAL_SRC_FILE_status
static unsigned char h_F_ORIGINAL_SRC_FILE_status[4]
Definition: GCic.c.l3.h:34
a_9
static const cob_field_attr a_9
Definition: cobxref.c.h:22
i1
int i1
Definition: GCic.c.l3.h:41
module
static cob_module * module
Definition: GCic.c.l3.h:14
cob_frame
Definition: common.h:990
a_11
static const cob_field_attr a_11
Definition: cobxref.c.h:24
f_412
static cob_field f_412
Definition: GCic.c.l3.h:144
f_400
static cob_field f_400
Definition: GCic.c.l3.h:135
b_377
static int b_377
Definition: GCic.c.l3.h:64
cob_procedure_params
cob_field * cob_procedure_params[2]
Definition: GCic.c.l3.h:55
f_1248
static cob_field f_1248
Definition: GCic.c.l3.h:171
f_411
static cob_field f_411
Definition: GCic.c.l3.h:143
f_422
static cob_field f_422
Definition: GCic.c.l3.h:145
f_451
static cob_field f_451
Definition: GCic.c.l3.h:160
f_397
static cob_field f_397
Definition: GCic.c.l3.h:134
f_1258
static cob_field f_1258
Definition: GCic.c.l3.h:181
__cob_module
Definition: common.h:1046
cob_field
Definition: common.h:950
a_4
static const cob_field_attr a_4
Definition: cobxref.c.h:17
f_465
static cob_field f_465
Definition: GCic.c.l3.h:164
f_1247
static cob_field f_1247
Definition: GCic.c.l3.h:170
f_390
static cob_field f_390
Definition: GCic.c.l3.h:132
f_1251
static cob_field f_1251
Definition: GCic.c.l3.h:174
f_1257
static cob_field f_1257
Definition: GCic.c.l3.h:180
f_1270
static cob_field f_1270
Definition: GCic.c.l3.h:182
cob_s64_t
#define cob_s64_t
Definition: common.h:51
f_1271
static cob_field f_1271
Definition: GCic.c.l3.h:183
f_388
static cob_field f_388
Definition: GCic.c.l3.h:130
cob_glob_ptr
cob_global * cob_glob_ptr
Definition: GCic.c.l3.h:17
cob_u8_t
#define cob_u8_t
Definition: common.h:27
b_1223
static int b_1223
Definition: GCic.c.l3.h:97
a_12
static const cob_field_attr a_12
Definition: GCic.c.h:25
f_406
static cob_field f_406
Definition: GCic.c.l3.h:139
h_F_EXPANDED_SRC_FILE_status
static unsigned char h_F_EXPANDED_SRC_FILE_status[4]
Definition: GCic.c.l3.h:26
f_1252
static cob_field f_1252
Definition: GCic.c.l3.h:175
__cob_global
Definition: common.h:1186
f_403
static cob_field f_403
Definition: GCic.c.l3.h:138
f_448
static cob_field f_448
Definition: GCic.c.l3.h:157
cob_decimal
Definition: common.h:984
n3
cob_s64_t n3
Definition: GCic.c.l3.h:47
frame_stack
struct cob_frame frame_stack[255]
Definition: GCic.c.l3.h:60
n2
cob_s64_t n2
Definition: GCic.c.l3.h:46
h_F_ORIGINAL_SRC_FILE
static cob_file * h_F_ORIGINAL_SRC_FILE
Definition: GCic.c.l3.h:33
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
a_1
static const cob_field_attr a_1
Definition: cobxref.c.h:14
f_431
static cob_field f_431
Definition: GCic.c.l3.h:147
initialized
static unsigned int initialized
Definition: GCic.c.l3.h:11
h_F_SORT_WORK_FILE_status
static unsigned char h_F_SORT_WORK_FILE_status[4]
Definition: GCic.c.l3.h:38
f_1242
static cob_field f_1242
Definition: GCic.c.l3.h:167
f_435
static cob_field f_435
Definition: GCic.c.l3.h:150
f_1240
static cob_field f_1240
Definition: GCic.c.l3.h:166
f_1250
static cob_field f_1250
Definition: GCic.c.l3.h:173
f_444
static cob_field f_444
Definition: GCic.c.l3.h:154
f_434
static cob_field f_434
Definition: GCic.c.l3.h:149
f_436
static cob_field f_436
Definition: GCic.c.l3.h:151
frame_ptr
struct cob_frame * frame_ptr
Definition: GCic.c.l3.h:59
f_392
static cob_field f_392
Definition: GCic.c.l3.h:133
h_F_LISTING_FILE_status
static unsigned char h_F_LISTING_FILE_status[4]
Definition: GCic.c.l3.h:30
f_1246
static cob_field f_1246
Definition: GCic.c.l3.h:169
a_5
static const cob_field_attr a_5
Definition: cobxref.c.h:18
f_1254
static cob_field f_1254
Definition: GCic.c.l3.h:177
d1
cob_decimal * d1
Definition: GCic.c.l3.h:21
f_1249
static cob_field f_1249
Definition: GCic.c.l3.h:172
f_1256
static cob_field f_1256
Definition: GCic.c.l3.h:179
f_407
static cob_field f_407
Definition: GCic.c.l3.h:140
f_427
static cob_field f_427
Definition: GCic.c.l3.h:146
f_1285
static cob_field f_1285
Definition: GCic.c.l3.h:186
f_1276
static cob_field f_1276
Definition: GCic.c.l3.h:184
f_384
static cob_field f_384
Definition: GCic.c.l3.h:129
frame_overflow
struct cob_frame * frame_overflow
Definition: GCic.c.l3.h:58
f_1253
static cob_field f_1253
Definition: GCic.c.l3.h:176
f_389
static cob_field f_389
Definition: GCic.c.l3.h:131
a_10
static const cob_field_attr a_10
Definition: cobxref.c.h:23
__attribute__
static cob_u8_t b_378[4] __attribute__((aligned))
f_402
static cob_field f_402
Definition: GCic.c.l3.h:137
f0
cob_field f0
Definition: GCic.c.l3.h:51
f_382
static cob_field f_382
Definition: GCic.c.l3.h:128
f_410
static cob_field f_410
Definition: GCic.c.l3.h:142
f_1244
static cob_field f_1244
Definition: GCic.c.l3.h:168
h_F_LISTING_FILE
static cob_file * h_F_LISTING_FILE
Definition: GCic.c.l3.h:29
f_462
static cob_field f_462
Definition: GCic.c.l3.h:162
h_F_EXPANDED_SRC_FILE
static cob_file * h_F_EXPANDED_SRC_FILE
Definition: GCic.c.l3.h:25
a_8
static const cob_field_attr a_8
Definition: cobxref.c.h:21
cob_file
Definition: common.h:1111
f_1255
static cob_field f_1255
Definition: GCic.c.l3.h:178
f_447
static cob_field f_447
Definition: GCic.c.l3.h:156
f_1286
static cob_field f_1286
Definition: GCic.c.l3.h:187
f_440
static cob_field f_440
Definition: GCic.c.l3.h:153
f_401
static cob_field f_401
Definition: GCic.c.l3.h:136
f_437
static cob_field f_437
Definition: GCic.c.l3.h:152
f_449
static cob_field f_449
Definition: GCic.c.l3.h:158
h_F_SORT_WORK_FILE
static cob_file * h_F_SORT_WORK_FILE
Definition: GCic.c.l3.h:37
f_1284
static cob_field f_1284
Definition: GCic.c.l3.h:185
n1
cob_s64_t n1
Definition: GCic.c.l3.h:45
d0
cob_decimal * d0
Definition: GCic.c.l3.h:20
f_433
static cob_field f_433
Definition: GCic.c.l3.h:148
f_445
static cob_field f_445
Definition: GCic.c.l3.h:155
f_450
static cob_field f_450
Definition: GCic.c.l3.h:159
f_1235
static cob_field f_1235
Definition: GCic.c.l3.h:165