nilopaim
/
tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
tinycobol/tutorials/Firebird/cad01f.lis

2554 lines
162 KiB
Plaintext
Raw Permalink Blame History

1 1 [00]: * ********** Preprocessed module -- do not edit **************
2 2 [00]: * ********** Preprocessed module -- do not edit **************
3 3 [00]: * ********** Preprocessed module -- do not edit **************
4 4 [00]: * ********** Preprocessed module -- do not edit **************
5 5 [00]: * ********** Preprocessed module -- do not edit **************
6 6 [00]: * **************** gpre version WI-V1.5.3.4870 Firebird 1.5 *********************
7 7 [00]: IDENTIFICATION DIVISION.
8 8 [00]: PROGRAM-ID. cad01f.
9 9 [00]: AUTHOR. InfoCont Sistemas Integrados Ltda.
10 10 [00]: * Responsaveis: Danilo Pacheco Martins / Fernando Wuthstrack
11 11 [00]: * Baseado no modelo CAD01 (PostgreSQL) disponibilizado por Carlucio Lopes
12 12 [00]:
13 13 [00]: ENVIRONMENT DIVISION.
14 14 [00]:
15 15 [00]: CONFIGURATION SECTION.
16 16 [00]: SPECIAL-NAMES.
17 17 [00]: DECIMAL-POINT IS COMMA
18 18 [00]: CRT STATUS IS wx-escape.
19 19 [00]:
20 20 [00]: DATA DIVISION.
21 21 [00]:
22 22 [00]: WORKING-STORAGE SECTION.
23 23 [00]:
24 24 [00]: * exec sql
25 25 [00]: * include "sqlca"
26 26 [00]: * end-exec
27 27 [00]:
28 28 [00]: * **** GDS Preprocessor Definitions ****
29 29 [00]:
30 30 [00]: 01 isc_blob_null PIC S9(18) USAGE COMP VALUE IS 0.
31 31 [00]: 01 ISC_SQLCODE PIC S9(9) USAGE COMP EXTERNAL.
32 32 [00]: 01 gds__database IS GLOBAL PIC S9(9) USAGE COMP VALUE IS 0.
33 33 [00]: 01 isc_1db PIC X(9) VALUE IS "teste.gdb".
34 34 [00]: 01 ISC-CONST-CONSULTAN PIC X(10) VALUE IS "CONSULTAN ".
35 35 [00]: 01 ISC-CONST-CONSULTANL PIC S9(4) USAGE COMP-5.
36 36 [00]: 01 ISC-CONST-CONSULTAC PIC X(10) VALUE IS "CONSULTAC ".
37 37 [00]: 01 ISC-CONST-CONSULTACL PIC S9(4) USAGE COMP-5.
38 38 [00]: 01 ISC_TRANS IS GLOBAL PIC S9(9) USAGE COMP VALUE IS 0.
39 39 [00]: 01 ISC_STATUS_VECTOR IS GLOBAL.
40 40 [00]: 03 ISC_STATUS PIC S9(9) USAGE COMP OCCURS 20 TIMES.
41 41 [00]: 01 ISC_STATUS_VECTOR2 IS GLOBAL.
42 42 [00]: 03 ISC_STATUS2 PIC S9(9) USAGE COMP OCCURS 20 TIMES.
43 43 [00]: 01 ISC_ARRAY_LENGTH PIC S9(9) USAGE COMP.
44 44 [00]: 01 SQLCODE IS GLOBAL PIC S9(9) USAGE COMP-5 VALUE IS 0.
45 45 [00]: 01 ISC_1.
46 46 [00]: 03 ISC_1_1 PIC XXXX USAGE COMP-X VALUE IS 101253633.
47 47 [00]: 03 ISC_1_2 PIC XXXX USAGE COMP-X VALUE IS 1279870464.
48 48 [00]: 03 ISC_1_3 PIC XXXX USAGE COMP-X VALUE IS 1162625353.
49 49 [00]: 03 ISC_1_4 PIC XXXX USAGE COMP-X VALUE IS 65538.
50 50 [00]: 03 ISC_1_5 PIC XXXX USAGE COMP-X VALUE IS 1124075018.
51 51 [00]: 03 ISC_1_6 PIC XXXX USAGE COMP-X VALUE IS 1195983951.
52 52 [00]: 03 ISC_1_7 PIC XXXX USAGE COMP-X VALUE IS 149071.
53 53 [00]: 03 ISC_1_8 PIC XXXX USAGE COMP-X VALUE IS 38207496.
54 54 [00]: 03 ISC_1_9 PIC XXXX USAGE COMP-X VALUE IS 1207960576.
55 55 [00]: 03 ISC_1_10 PIC XXXX USAGE COMP-X VALUE IS 2.
56 56 [00]: 03 ISC_1_11 PIC XXXX USAGE COMP-X VALUE IS 598.
57 57 [00]: 03 ISC_1_12 PIC XXXX USAGE COMP-X VALUE IS 149760.
58 58 [00]: 03 ISC_1_13 PIC XXXX USAGE COMP-X VALUE IS 1549074432.
59 59 [00]: 03 ISC_1_14 PIC XXXX USAGE COMP-X VALUE IS 2.
60 60 [00]: 03 ISC_1_15 PIC XXXX USAGE COMP-X VALUE IS 41475.
61 61 [00]: 03 ISC_1_16 PIC XXXX USAGE COMP-X VALUE IS 10617685.
62 62 [00]: 03 ISC_1_17 PIC XXXX USAGE COMP-X VALUE IS 9472.
63 63 [00]: 03 ISC_1_18 PIC XXXX USAGE COMP-X VALUE IS 16777828.
64 64 [00]: 03 ISC_1_19 PIC XXXX USAGE COMP-X VALUE IS 406272.
65 65 [00]: 03 ISC_1_20 PIC XXXX USAGE COMP-X VALUE IS 1229213507.
66 66 [00]: 03 ISC_1_21 PIC XXXX USAGE COMP-X VALUE IS 167989063.
67 67 [00]: 03 ISC_1_22 PIC XXXX USAGE COMP-X VALUE IS 1330511876.
68 68 [00]: 03 ISC_1_23 PIC XXXX USAGE COMP-X VALUE IS 38159693.
69 69 [00]: 03 ISC_1_24 PIC XXXX USAGE COMP-X VALUE IS 1191191808.
70 70 [00]: 03 ISC_1_25 PIC XXXX USAGE COMP-X VALUE IS 3276802.
71 71 [00]: 03 ISC_1_26 PIC XXXX USAGE COMP-X VALUE IS 584.
72 72 [00]: 03 ISC_1_27 PIC XXXX USAGE COMP-X VALUE IS 175104.
73 73 [00]: 03 ISC_1_28 PIC XXXX USAGE COMP-X VALUE IS 39583794.
74 74 [00]: 03 ISC_1_29 PIC XXXX USAGE COMP-X VALUE IS 50331904.
75 75 [00]: 03 ISC_1_30 PIC XXXX USAGE COMP-X VALUE IS 1308626186.
76 76 [00]: 03 ISC_1_31 PIC XXXX USAGE COMP-X VALUE IS 1598377295.
77 77 [00]: 03 ISC_1_32 PIC XXXX USAGE COMP-X VALUE IS 1414414662.
78 78 [00]: 03 ISC_1_33 PIC XXXX USAGE COMP-X VALUE IS 1095324481.
79 79 [00]: 03 ISC_1_34 PIC XXXX USAGE COMP-X VALUE IS 620757574.
80 80 [00]: 03 ISC_1_35 PIC XXXX USAGE COMP-X VALUE IS 149248.
81 81 [00]: 03 ISC_1_36 PIC XXXX USAGE COMP-X VALUE IS 38273064.
82 82 [00]: 03 ISC_1_37 PIC XXXX USAGE COMP-X VALUE IS 2885681152.
83 83 [00]: 03 ISC_1_38 PIC XXXX USAGE COMP-X VALUE IS 2621442.
84 84 [00]: 03 ISC_1_39 PIC XXXX USAGE COMP-X VALUE IS 33555036.
85 85 [00]: 03 ISC_1_40 PIC XXXX USAGE COMP-X VALUE IS 134873856.
86 86 [00]: 03 ISC_1_41 PIC XXXX USAGE COMP-X VALUE IS 1145980160.
87 87 [00]: 03 ISC_1_42 PIC XXXX USAGE COMP-X VALUE IS 1128616517.
88 88 [00]: 03 ISC_1_43 PIC XXXX USAGE COMP-X VALUE IS 149071.
89 89 [00]: 03 ISC_1_44 PIC XXXX USAGE COMP-X VALUE IS 38207525.
90 90 [00]: 03 ISC_1_45 PIC XXXX USAGE COMP-X VALUE IS 1207969792.
91 91 [00]: 03 ISC_1_46 PIC XXXX USAGE COMP-X VALUE IS 2.
92 92 [00]: 03 ISC_1_47 PIC XXXX USAGE COMP-X VALUE IS 671089324.
93 93 [00]: 03 ISC_1_48 PIC XXXX USAGE COMP-X VALUE IS 154624.
94 94 [00]: 03 ISC_1_49 PIC XXXX USAGE COMP-X VALUE IS 167968771.
95 95 [00]: 03 ISC_1_50 PIC XXXX USAGE COMP-X VALUE IS 1431175174.
96 96 [00]: 03 ISC_1_51 PIC XXXX USAGE COMP-X VALUE IS 1330791757.
97 97 [00]: 03 ISC_1_52 PIC XXXX USAGE COMP-X VALUE IS 134218310.
98 98 [00]: 03 ISC_1_53 PIC XXXX USAGE COMP-X VALUE IS 149248.
99 99 [00]: 03 ISC_1_54 PIC XXXX USAGE COMP-X VALUE IS 38273028.
100 100 [00]: 03 ISC_1_55 PIC XXXX USAGE COMP-X VALUE IS 1442840576.
101 101 [00]: 03 ISC_1_56 PIC XXXX USAGE COMP-X VALUE IS 2.
102 102 [00]: 03 ISC_1_57 PIC XXXX USAGE COMP-X VALUE IS 585.
103 103 [00]: 03 ISC_1_58 PIC XXXX USAGE COMP-X VALUE IS 154624.
104 104 [00]: 03 ISC_1_59 PIC XXXX USAGE COMP-X VALUE IS 167968772.
105 105 [00]: 03 ISC_1_60 PIC XXXX USAGE COMP-X VALUE IS 1163067397.
106 106 [00]: 03 ISC_1_61 PIC XXXX USAGE COMP-X VALUE IS 1179799380.
107 107 [00]: 03 ISC_1_62 PIC XXXX USAGE COMP-X VALUE IS 2424834.
108 108 [00]: 03 ISC_1_63 PIC XXXX USAGE COMP-X VALUE IS 419430983.
109 109 [00]: 03 ISC_1_64 PIC XXXX USAGE COMP-X VALUE IS 149504.
110 110 [00]: 03 ISC_1_65 PIC XXXX USAGE COMP-X VALUE IS 44826624.
111 111 [00]: 03 ISC_1_66 PIC XXXX USAGE COMP-X VALUE IS 1543510272.
112 112 [00]: 03 ISC_1_67 PIC XXXX USAGE COMP-X VALUE IS 327682.
113 113 [00]: 03 ISC_1_68 PIC XXXX USAGE COMP-X VALUE IS 395779.
114 114 [00]: 03 ISC_1_69 PIC XXXX USAGE COMP-X VALUE IS 1094994243.
115 115 [00]: 03 ISC_1_70 PIC XXXX USAGE COMP-X VALUE IS 38159684.
116 116 [00]: 03 ISC_1_71 PIC XXXX USAGE COMP-X VALUE IS 1191191808.
117 117 [00]: 03 ISC_1_72 PIC XXXX USAGE COMP-X VALUE IS 1638402.
118 118 [00]: 03 ISC_1_73 PIC XXXX USAGE COMP-X VALUE IS 584.
119 119 [00]: 03 ISC_1_74 PIC XXXX USAGE COMP-X VALUE IS 175104.
120 120 [00]: 03 ISC_1_75 PIC XXXX USAGE COMP-X VALUE IS 39583769.
121 121 [00]: 03 ISC_1_76 PIC XXXX USAGE COMP-X VALUE IS 50333184.
122 122 [00]: 03 ISC_1_77 PIC XXXX USAGE COMP-X VALUE IS 1426063882.
123 123 [00]: 03 ISC_1_78 PIC XXXX USAGE COMP-X VALUE IS 149062.
124 124 [00]: 03 ISC_1_79 PIC XXXX USAGE COMP-X VALUE IS 38207525.
125 125 [00]: 03 ISC_1_80 PIC XXXX USAGE COMP-X VALUE IS 1207960064.
126 126 [00]: 03 ISC_1_81 PIC XXXX USAGE COMP-X VALUE IS 2.
127 127 [00]: 03 ISC_1_82 PIC XXXX USAGE COMP-X VALUE IS 33555116.
128 128 [00]: 03 ISC_1_83 PIC XXXX USAGE COMP-X VALUE IS 154624.
129 129 [00]: 03 ISC_1_84 PIC XXXX USAGE COMP-X VALUE IS 167968775.
130 130 [00]: 03 ISC_1_85 PIC XXXX USAGE COMP-X VALUE IS 1162018819.
131 131 [00]: 03 ISC_1_86 PIC XXXX USAGE COMP-X VALUE IS 149072.
132 132 [00]: 03 ISC_1_87 PIC XXXX USAGE COMP-X VALUE IS 38207525.
133 133 [00]: 03 ISC_1_88 PIC XXXX USAGE COMP-X VALUE IS 1207961600.
134 134 [00]: 03 ISC_1_89 PIC XXXX USAGE COMP-X VALUE IS 2.
135 135 [00]: 03 ISC_1_90 PIC XXXX USAGE COMP-X VALUE IS 134218412.
136 136 [00]: 03 ISC_1_91 PIC XXXX USAGE COMP-X VALUE IS 154624.
137 137 [00]: 03 ISC_1_92 PIC XXXX USAGE COMP-X VALUE IS 167968776.
138 138 [00]: 03 ISC_1_93 PIC XXXX USAGE COMP-X VALUE IS 1329987591.
139 139 [00]: 03 ISC_1_94 PIC XXXX USAGE COMP-X VALUE IS 1145324878.
140 140 [00]: 03 ISC_1_95 PIC XXXX USAGE COMP-X VALUE IS 149060.
141 141 [00]: 03 ISC_1_96 PIC XXXX USAGE COMP-X VALUE IS 38207525.
142 142 [00]: 03 ISC_1_97 PIC XXXX USAGE COMP-X VALUE IS 1207960576.
143 143 [00]: 03 ISC_1_98 PIC XXXX USAGE COMP-X VALUE IS 2.
144 144 [00]: 03 ISC_1_99 PIC XXXX USAGE COMP-X VALUE IS 67109548.
145 145 [00]: 03 ISC_1_100 PIC XXXX USAGE COMP-X VALUE IS 154624.
146 146 [00]: 03 ISC_1_101 PIC XXXX USAGE COMP-X VALUE IS 167968777.
147 147 [00]: 03 ISC_1_102 PIC XXXX USAGE COMP-X VALUE IS 1329987591.
148 148 [00]: 03 ISC_1_103 PIC XXXX USAGE COMP-X VALUE IS 1431192910.
149 149 [00]: 03 ISC_1_104 PIC XXXX USAGE COMP-X VALUE IS 149069.
150 150 [00]: 03 ISC_1_105 PIC XXXX USAGE COMP-X VALUE IS 38207525.
151 151 [00]: 03 ISC_1_106 PIC XXXX USAGE COMP-X VALUE IS 1207961600.
152 152 [00]: 03 ISC_1_107 PIC XXXX USAGE COMP-X VALUE IS 2.
153 153 [00]: 03 ISC_1_108 PIC XXXX USAGE COMP-X VALUE IS 134218412.
154 154 [00]: 03 ISC_1_109 PIC XXXX USAGE COMP-X VALUE IS 154624.
155 155 [00]: 03 ISC_1_110 PIC XXXX USAGE COMP-X VALUE IS 167968778.
156 156 [00]: 03 ISC_1_111 PIC XXXX USAGE COMP-X VALUE IS 1095106566.
157 157 [00]: 03 ISC_1_112 PIC XXXX USAGE COMP-X VALUE IS 1145324632.
158 158 [00]: 03 ISC_1_113 PIC XXXX USAGE COMP-X VALUE IS 620757574.
159 159 [00]: 03 ISC_1_114 PIC XXXX USAGE COMP-X VALUE IS 149248.
160 160 [00]: 03 ISC_1_115 PIC XXXX USAGE COMP-X VALUE IS 38273028.
161 161 [00]: 03 ISC_1_116 PIC XXXX USAGE COMP-X VALUE IS 2885681152.
162 162 [00]: 03 ISC_1_117 PIC XXXX USAGE COMP-X VALUE IS 262146.
163 163 [00]: 03 ISC_1_118 PIC XXXX USAGE COMP-X VALUE IS 184549980.
164 164 [00]: 03 ISC_1_119 PIC XXXX USAGE COMP-X VALUE IS 101319424.
165 165 [00]: 03 ISC_1_120 PIC XXXX USAGE COMP-X VALUE IS 1480672768.
166 166 [00]: 03 ISC_1_121 PIC XXXX USAGE COMP-X VALUE IS 1179473230.
167 167 [00]: 03 ISC_1_122 PIC XXXX USAGE COMP-X VALUE IS 2424834.
168 168 [00]: 03 ISC_1_123 PIC XXXX USAGE COMP-X VALUE IS 134218311.
169 169 [00]: 03 ISC_1_124 PIC XXXX USAGE COMP-X VALUE IS 149504.
170 170 [00]: 03 ISC_1_125 PIC XXXX USAGE COMP-X VALUE IS 44826624.
171 171 [00]: 03 ISC_1_126 PIC XXXX USAGE COMP-X VALUE IS 1543505920.
172 172 [00]: 03 ISC_1_127 PIC XXXX USAGE COMP-X VALUE IS 786434.
173 173 [00]: 03 ISC_1_128 PIC XXXX USAGE COMP-X VALUE IS 199171.
174 174 [00]: 03 ISC_1_129 PIC XXXX USAGE COMP-X VALUE IS 1178814275.
175 175 [00]: 03 ISC_1_130 PIC XXXX USAGE COMP-X VALUE IS 2424834.
176 176 [00]: 03 ISC_1_131 PIC XXXX USAGE COMP-X VALUE IS 301990471.
177 177 [00]: 03 ISC_1_132 PIC XXXX USAGE COMP-X VALUE IS 149504.
178 178 [00]: 03 ISC_1_133 PIC XXXX USAGE COMP-X VALUE IS 44826624.
179 179 [00]: 03 ISC_1_134 PIC XXXX USAGE COMP-X VALUE IS 1543508480.
180 180 [00]: 03 ISC_1_135 PIC XXXX USAGE COMP-X VALUE IS 851970.
181 181 [00]: 03 ISC_1_136 PIC XXXX USAGE COMP-X VALUE IS 395779.
182 182 [00]: 03 ISC_1_137 PIC XXXX USAGE COMP-X VALUE IS 1163087433.
183 183 [00]: 03 ISC_1_138 PIC XXXX USAGE COMP-X VALUE IS 38163539.
184 184 [00]: 03 ISC_1_139 PIC XXXX USAGE COMP-X VALUE IS 1191191808.
185 185 [00]: 03 ISC_1_140 PIC XXXX USAGE COMP-X VALUE IS 1310722.
186 186 [00]: 03 ISC_1_141 PIC XXXX USAGE COMP-X VALUE IS 584.
187 187 [00]: 03 ISC_1_142 PIC XXXX USAGE COMP-X VALUE IS 175104.
188 188 [00]: 03 ISC_1_143 PIC XXXX USAGE COMP-X VALUE IS 39583764.
189 189 [00]: 03 ISC_1_144 PIC XXXX USAGE COMP-X VALUE IS 50335232.
190 190 [00]: 03 ISC_1_145 PIC XXXX USAGE COMP-X VALUE IS 1124075274.
191 191 [00]: 03 ISC_1_146 PIC XXXX USAGE COMP-X VALUE IS 1096044111.
192 192 [00]: 03 ISC_1_147 PIC XXXX USAGE COMP-X VALUE IS 38162260.
193 193 [00]: 03 ISC_1_148 PIC XXXX USAGE COMP-X VALUE IS 1191191808.
194 194 [00]: 03 ISC_1_149 PIC XXXX USAGE COMP-X VALUE IS 2621442.
195 195 [00]: 03 ISC_1_150 PIC XXXX USAGE COMP-X VALUE IS 584.
196 196 [00]: 03 ISC_1_151 PIC XXXX USAGE COMP-X VALUE IS 175104.
197 197 [00]: 03 ISC_1_152 PIC XXXX USAGE COMP-X VALUE IS 39583784.
198 198 [00]: 03 ISC_1_153 PIC XXXX USAGE COMP-X VALUE IS 50335488.
199 199 [00]: 03 ISC_1_154 PIC XXXX USAGE COMP-X VALUE IS 16712451.
200 200 [00]: *
201 201 [00]: * FORMATTED REQUEST BLR FOR ISC_1 =
202 202 [00]: * gds__dyn_version_1,
203 203 [00]: * gds__dyn_begin,
204 204 [00]: * gds__dyn_def_rel, 6,0, 'F','I','L','I','A','L',
205 205 [00]: * gds__dyn_rel_sql_protection, 2,0, 1,0,
206 206 [00]: * gds__dyn_def_sql_fld, 6,0, 'C','O','D','I','G','O',
207 207 [00]: * gds__dyn_fld_type, 2,0, 8,0,
208 208 [00]: * gds__dyn_fld_length, 2,0, 4,0,
209 209 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
210 210 [00]: * gds__dyn_fld_precision, 2,0, 0,0,
211 211 [00]: * gds__dyn_fld_sub_type, 2,0, 0,0,
212 212 [00]: * gds__dyn_fld_not_null,
213 213 [00]: * gds__dyn_fld_position, 2,0, 0,0,
214 214 [00]: * gds__dyn_end,
215 215 [00]: * gds__dyn_rel_constraint, 0,0,
216 216 [00]: * gds__dyn_fld_not_null,
217 217 [00]: * gds__dyn_end,
218 218 [00]: * gds__dyn_rel_constraint, 0,0,
219 219 [00]: * gds__dyn_def_primary_key, 0,0,
220 220 [00]: * gds__dyn_idx_unique, 2,0, 1,0,
221 221 [00]: * gds__dyn_fld_name, 6,0, 'C','O','D','I','G','O',
222 222 [00]: * gds__dyn_end,
223 223 [00]: * gds__dyn_def_sql_fld, 4,0, 'N','O','M','E',
224 224 [00]: * gds__dyn_fld_type, 2,0, 37,0,
225 225 [00]: * gds__dyn_fld_length, 2,0, '2',0,
226 226 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
227 227 [00]: * gds__dyn_fld_char_length, 2,0, '2',0,
228 228 [00]: * gds__dyn_fld_position, 2,0, 1,0,
229 229 [00]: * gds__dyn_end,
230 230 [00]: * gds__dyn_def_sql_fld, 13,0, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
231 231 [00]: * gds__dyn_fld_type, 2,0, 37,0,
232 232 [00]: * gds__dyn_fld_length, 2,0, 40,0,
233 233 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
234 234 [00]: * gds__dyn_fld_char_length, 2,0, 40,0,
235 235 [00]: * gds__dyn_fld_position, 2,0, 2,0,
236 236 [00]: * gds__dyn_end,
237 237 [00]: * gds__dyn_def_sql_fld, 8,0, 'E','N','D','E','R','E','C','O',
238 238 [00]: * gds__dyn_fld_type, 2,0, 37,0,
239 239 [00]: * gds__dyn_fld_length, 2,0, 40,0,
240 240 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
241 241 [00]: * gds__dyn_fld_char_length, 2,0, 40,0,
242 242 [00]: * gds__dyn_fld_position, 2,0, 3,0,
243 243 [00]: * gds__dyn_end,
244 244 [00]: * gds__dyn_def_sql_fld, 6,0, 'N','U','M','E','R','O',
245 245 [00]: * gds__dyn_fld_type, 2,0, 8,0,
246 246 [00]: * gds__dyn_fld_length, 2,0, 4,0,
247 247 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
248 248 [00]: * gds__dyn_fld_precision, 2,0, 0,0,
249 249 [00]: * gds__dyn_fld_sub_type, 2,0, 0,0,
250 250 [00]: * gds__dyn_fld_position, 2,0, 4,0,
251 251 [00]: * gds__dyn_end,
252 252 [00]: * gds__dyn_def_sql_fld, 5,0, 'S','E','T','O','R',
253 253 [00]: * gds__dyn_fld_type, 2,0, 37,0,
254 254 [00]: * gds__dyn_fld_length, 2,0, 25,0,
255 255 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
256 256 [00]: * gds__dyn_fld_char_length, 2,0, 25,0,
257 257 [00]: * gds__dyn_fld_position, 2,0, 5,0,
258 258 [00]: * gds__dyn_end,
259 259 [00]: * gds__dyn_def_sql_fld, 6,0, 'C','I','D','A','D','E',
260 260 [00]: * gds__dyn_fld_type, 2,0, 37,0,
261 261 [00]: * gds__dyn_fld_length, 2,0, 25,0,
262 262 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
263 263 [00]: * gds__dyn_fld_char_length, 2,0, 25,0,
264 264 [00]: * gds__dyn_fld_position, 2,0, 6,0,
265 265 [00]: * gds__dyn_end,
266 266 [00]: * gds__dyn_def_sql_fld, 2,0, 'U','F',
267 267 [00]: * gds__dyn_fld_type, 2,0, 37,0,
268 268 [00]: * gds__dyn_fld_length, 2,0, 2,0,
269 269 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
270 270 [00]: * gds__dyn_fld_char_length, 2,0, 2,0,
271 271 [00]: * gds__dyn_fld_position, 2,0, 7,0,
272 272 [00]: * gds__dyn_end,
273 273 [00]: * gds__dyn_def_sql_fld, 3,0, 'C','E','P',
274 274 [00]: * gds__dyn_fld_type, 2,0, 37,0,
275 275 [00]: * gds__dyn_fld_length, 2,0, 8,0,
276 276 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
277 277 [00]: * gds__dyn_fld_char_length, 2,0, 8,0,
278 278 [00]: * gds__dyn_fld_position, 2,0, 8,0,
279 279 [00]: * gds__dyn_end,
280 280 [00]: * gds__dyn_def_sql_fld, 7,0, 'F','O','N','E','D','D','D',
281 281 [00]: * gds__dyn_fld_type, 2,0, 37,0,
282 282 [00]: * gds__dyn_fld_length, 2,0, 4,0,
283 283 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
284 284 [00]: * gds__dyn_fld_char_length, 2,0, 4,0,
285 285 [00]: * gds__dyn_fld_position, 2,0, 9,0,
286 286 [00]: * gds__dyn_end,
287 287 [00]: * gds__dyn_def_sql_fld, 7,0, 'F','O','N','E','N','U','M',
288 288 [00]: * gds__dyn_fld_type, 2,0, 37,0,
289 289 [00]: * gds__dyn_fld_length, 2,0, 8,0,
290 290 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
291 291 [00]: * gds__dyn_fld_char_length, 2,0, 8,0,
292 292 [00]: * gds__dyn_fld_position, 2,0, 10,0,
293 293 [00]: * gds__dyn_end,
294 294 [00]: * gds__dyn_def_sql_fld, 6,0, 'F','A','X','D','D','D',
295 295 [00]: * gds__dyn_fld_type, 2,0, 37,0,
296 296 [00]: * gds__dyn_fld_length, 2,0, 4,0,
297 297 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
298 298 [00]: * gds__dyn_fld_char_length, 2,0, 4,0,
299 299 [00]: * gds__dyn_fld_position, 2,0, 11,0,
300 300 [00]: * gds__dyn_end,
301 301 [00]: * gds__dyn_def_sql_fld, 6,0, 'F','A','X','N','U','M',
302 302 [00]: * gds__dyn_fld_type, 2,0, 37,0,
303 303 [00]: * gds__dyn_fld_length, 2,0, 8,0,
304 304 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
305 305 [00]: * gds__dyn_fld_char_length, 2,0, 8,0,
306 306 [00]: * gds__dyn_fld_position, 2,0, 12,0,
307 307 [00]: * gds__dyn_end,
308 308 [00]: * gds__dyn_def_sql_fld, 3,0, 'C','G','C',
309 309 [00]: * gds__dyn_fld_type, 2,0, 37,0,
310 310 [00]: * gds__dyn_fld_length, 2,0, 18,0,
311 311 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
312 312 [00]: * gds__dyn_fld_char_length, 2,0, 18,0,
313 313 [00]: * gds__dyn_fld_position, 2,0, 13,0,
314 314 [00]: * gds__dyn_end,
315 315 [00]: * gds__dyn_def_sql_fld, 6,0, 'I','N','S','E','S','T',
316 316 [00]: * gds__dyn_fld_type, 2,0, 37,0,
317 317 [00]: * gds__dyn_fld_length, 2,0, 20,0,
318 318 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
319 319 [00]: * gds__dyn_fld_char_length, 2,0, 20,0,
320 320 [00]: * gds__dyn_fld_position, 2,0, 14,0,
321 321 [00]: * gds__dyn_end,
322 322 [00]: * gds__dyn_def_sql_fld, 7,0, 'C','O','N','T','A','T','O',
323 323 [00]: * gds__dyn_fld_type, 2,0, 37,0,
324 324 [00]: * gds__dyn_fld_length, 2,0, 40,0,
325 325 [00]: * gds__dyn_fld_scale, 2,0, 0,0,
326 326 [00]: * gds__dyn_fld_char_length, 2,0, 40,0,
327 327 [00]: * gds__dyn_fld_position, 2,0, 15,0,
328 328 [00]: * gds__dyn_end,
329 329 [00]: * gds__dyn_end,
330 330 [00]: * gds__dyn_end,
331 331 [00]: * gds__dyn_eoc
332 332 [00]: *
333 333 [00]: * END OF DYN STRING FOR REQUEST ISC_1
334 334 [00]:
335 335 [00]: 01 ISC_3.
336 336 [00]: 03 ISC_3_1 PIC XXXX USAGE COMP-X VALUE IS 79361.
337 337 [00]: 03 ISC_3_2 PIC XXXX USAGE COMP-X VALUE IS 197695.
338 338 [00]: 03 ISC_3_3 PIC XXXX USAGE COMP-X VALUE IS 0.
339 339 [00]: *
340 340 [00]: * FORMATTED REQUEST BLR FOR ISC_3 =
341 341 [00]: * gds__dpb_version1,
342 342 [00]: * isc_dpb_overwrite,1, 0,
343 343 [00]: * isc_dpb_sql_dialect,4, 3,0,0,0,
344 344 [00]: *
345 345 [00]: * END OF DPB STRING FOR REQUEST ISC_3
346 346 [00]:
347 347 [00]: 01 ISC_5.
348 348 [00]: 03 ISC_5_1 PIC XXXX USAGE COMP-X VALUE IS 52888065.
349 349 [00]: 03 ISC_5_2 PIC XXXX USAGE COMP-X VALUE IS 65283.
350 350 [00]: *
351 351 [00]: * FORMATTED REQUEST BLR FOR ISC_5 =
352 352 [00]: * gds__dyn_version_1,
353 353 [00]: * gds__dyn_begin,
354 354 [00]: * gds__dyn_mod_database,
355 355 [00]: * gds__dyn_end,
356 356 [00]: * gds__dyn_end,
357 357 [00]: * gds__dyn_eoc
358 358 [00]: *
359 359 [00]: * END OF DYN STRING FOR REQUEST ISC_5
360 360 [00]:
361 361 [00]: 01 gds__6 PIC S9(9) USAGE COMP VALUE IS 0.
362 362 [00]: 01 ISC_7.
363 363 [00]: 03 ISC_7_1 PIC XXXX USAGE COMP-X VALUE IS 17039877.
364 364 [00]: 03 ISC_7_2 PIC XXXX USAGE COMP-X VALUE IS 672006161.
365 365 [00]: 03 ISC_7_3 PIC XXXX USAGE COMP-X VALUE IS 527872.
366 366 [00]: 03 ISC_7_4 PIC XXXX USAGE COMP-X VALUE IS 234883086.
367 367 [00]: 03 ISC_7_5 PIC XXXX USAGE COMP-X VALUE IS 672006152.
368 368 [00]: 03 ISC_7_6 PIC XXXX USAGE COMP-X VALUE IS 2625024.
369 369 [00]: 03 ISC_7_7 PIC XXXX USAGE COMP-X VALUE IS 234886158.
370 370 [00]: 03 ISC_7_8 PIC XXXX USAGE COMP-X VALUE IS 68026372.
371 371 [00]: 03 ISC_7_9 PIC XXXX USAGE COMP-X VALUE IS 134219776.
372 372 [00]: 03 ISC_7_10 PIC XXXX USAGE COMP-X VALUE IS 234882816.
373 373 [00]: 03 ISC_7_11 PIC XXXX USAGE COMP-X VALUE IS 34471954.
374 374 [00]: 03 ISC_7_12 PIC XXXX USAGE COMP-X VALUE IS 3280384.
375 375 [00]: 03 ISC_7_13 PIC XXXX USAGE COMP-X VALUE IS 234887438.
376 376 [00]: 03 ISC_7_14 PIC XXXX USAGE COMP-X VALUE IS 262169.
377 377 [00]: 03 ISC_7_15 PIC XXXX USAGE COMP-X VALUE IS 524289.
378 378 [00]: 03 ISC_7_16 PIC XXXX USAGE COMP-X VALUE IS 117571596.
379 379 [00]: 03 ISC_7_17 PIC XXXX USAGE COMP-X VALUE IS 1241596799.
380 380 [00]: 03 ISC_7_18 PIC XXXX USAGE COMP-X VALUE IS 1279870470.
381 381 [00]: 03 ISC_7_19 PIC XXXX USAGE COMP-X VALUE IS 4997449.
382 382 [00]: 03 ISC_7_20 PIC XXXX USAGE COMP-X VALUE IS 1519431.
383 383 [00]: 03 ISC_7_21 PIC XXXX USAGE COMP-X VALUE IS 1146045190.
384 384 [00]: 03 ISC_7_22 PIC XXXX USAGE COMP-X VALUE IS 424625993.
385 385 [00]: 03 ISC_7_23 PIC XXXX USAGE COMP-X VALUE IS 4278190080.
386 386 [00]: 03 ISC_7_24 PIC XXXX USAGE COMP-X VALUE IS 16908558.
387 387 [00]: 03 ISC_7_25 PIC XXXX USAGE COMP-X VALUE IS 1124532247.
388 388 [00]: 03 ISC_7_26 PIC XXXX USAGE COMP-X VALUE IS 1096044111.
389 389 [00]: 03 ISC_7_27 PIC XXXX USAGE COMP-X VALUE IS 18435924.
390 390 [00]: 03 ISC_7_28 PIC XXXX USAGE COMP-X VALUE IS 385941504.
391 391 [00]: 03 ISC_7_29 PIC XXXX USAGE COMP-X VALUE IS 1095108096.
392 392 [00]: 03 ISC_7_30 PIC XXXX USAGE COMP-X VALUE IS 1297436248.
393 393 [00]: 03 ISC_7_31 PIC XXXX USAGE COMP-X VALUE IS 65817.
394 394 [00]: 03 ISC_7_32 PIC XXXX USAGE COMP-X VALUE IS 117446401.
395 395 [00]: 03 ISC_7_33 PIC XXXX USAGE COMP-X VALUE IS 1162760006.
396 396 [00]: 03 ISC_7_34 PIC XXXX USAGE COMP-X VALUE IS 424498510.
397 397 [00]: 03 ISC_7_35 PIC XXXX USAGE COMP-X VALUE IS 16777729.
398 398 [00]: 03 ISC_7_36 PIC XXXX USAGE COMP-X VALUE IS 1124270103.
399 399 [00]: 03 ISC_7_37 PIC XXXX USAGE COMP-X VALUE IS 18436165.
400 400 [00]: 03 ISC_7_38 PIC XXXX USAGE COMP-X VALUE IS 385941507.
401 401 [00]: 03 ISC_7_39 PIC XXXX USAGE COMP-X VALUE IS 1313146880.
402 402 [00]: 03 ISC_7_40 PIC XXXX USAGE COMP-X VALUE IS 1163019588.
403 403 [00]: 03 ISC_7_41 PIC XXXX USAGE COMP-X VALUE IS 18435907.
404 404 [00]: 03 ISC_7_42 PIC XXXX USAGE COMP-X VALUE IS 385941508.
405 405 [00]: 03 ISC_7_43 PIC XXXX USAGE COMP-X VALUE IS 1330515200.
406 406 [00]: 03 ISC_7_44 PIC XXXX USAGE COMP-X VALUE IS 1180648781.
407 407 [00]: 03 ISC_7_45 PIC XXXX USAGE COMP-X VALUE IS 1096044097.
408 408 [00]: 03 ISC_7_46 PIC XXXX USAGE COMP-X VALUE IS 423709011.
409 409 [00]: 03 ISC_7_47 PIC XXXX USAGE COMP-X VALUE IS 16778497.
410 410 [00]: 03 ISC_7_48 PIC XXXX USAGE COMP-X VALUE IS 1225130007.
411 411 [00]: 03 ISC_7_49 PIC XXXX USAGE COMP-X VALUE IS 1397052238.
412 412 [00]: 03 ISC_7_50 PIC XXXX USAGE COMP-X VALUE IS 100735316.
413 413 [00]: 03 ISC_7_51 PIC XXXX USAGE COMP-X VALUE IS 1507584.
414 414 [00]: 03 ISC_7_52 PIC XXXX USAGE COMP-X VALUE IS 1480672774.
415 415 [00]: 03 ISC_7_53 PIC XXXX USAGE COMP-X VALUE IS 423904324.
416 416 [00]: 03 ISC_7_54 PIC XXXX USAGE COMP-X VALUE IS 16779009.
417 417 [00]: 03 ISC_7_55 PIC XXXX USAGE COMP-X VALUE IS 1174863895.
418 418 [00]: 03 ISC_7_56 PIC XXXX USAGE COMP-X VALUE IS 1145392719.
419 419 [00]: 03 ISC_7_57 PIC XXXX USAGE COMP-X VALUE IS 18433092.
420 420 [00]: 03 ISC_7_58 PIC XXXX USAGE COMP-X VALUE IS 385941512.
421 421 [00]: 03 ISC_7_59 PIC XXXX USAGE COMP-X VALUE IS 1431176704.
422 422 [00]: 03 ISC_7_60 PIC XXXX USAGE COMP-X VALUE IS 1330791757.
423 423 [00]: 03 ISC_7_61 PIC XXXX USAGE COMP-X VALUE IS 590105.
424 424 [00]: 03 ISC_7_62 PIC XXXX USAGE COMP-X VALUE IS 100669185.
425 425 [00]: 03 ISC_7_63 PIC XXXX USAGE COMP-X VALUE IS 1229213507.
426 426 [00]: 03 ISC_7_64 PIC XXXX USAGE COMP-X VALUE IS 18435911.
427 427 [00]: 03 ISC_7_65 PIC XXXX USAGE COMP-X VALUE IS 352387082.
428 428 [00]: 03 ISC_7_66 PIC XXXX USAGE COMP-X VALUE IS 65544.
429 429 [00]: 03 ISC_7_67 PIC XXXX USAGE COMP-X VALUE IS 18415616.
430 430 [00]: 03 ISC_7_68 PIC XXXX USAGE COMP-X VALUE IS 385941515.
431 431 [00]: 03 ISC_7_69 PIC XXXX USAGE COMP-X VALUE IS 1195574016.
432 432 [00]: 03 ISC_7_70 PIC XXXX USAGE COMP-X VALUE IS 201398595.
433 433 [00]: 03 ISC_7_71 PIC XXXX USAGE COMP-X VALUE IS 1507584.
434 434 [00]: 03 ISC_7_72 PIC XXXX USAGE COMP-X VALUE IS 424039682.
435 435 [00]: 03 ISC_7_73 PIC XXXX USAGE COMP-X VALUE IS 16780545.
436 436 [00]: 03 ISC_7_74 PIC XXXX USAGE COMP-X VALUE IS 1308885015.
437 437 [00]: 03 ISC_7_75 PIC XXXX USAGE COMP-X VALUE IS 423972175.
438 438 [00]: 03 ISC_7_76 PIC XXXX USAGE COMP-X VALUE IS 16780801.
439 439 [00]: 03 ISC_7_77 PIC XXXX USAGE COMP-X VALUE IS 1392836631.
440 440 [00]: 03 ISC_7_78 PIC XXXX USAGE COMP-X VALUE IS 1380930629.
441 441 [00]: 03 ISC_7_79 PIC XXXX USAGE COMP-X VALUE IS 983321.
442 442 [00]: 03 ISC_7_80 PIC XXXX USAGE COMP-X VALUE IS 100669185.
443 443 [00]: 03 ISC_7_81 PIC XXXX USAGE COMP-X VALUE IS 1094994243.
444 444 [00]: 03 ISC_7_82 PIC XXXX USAGE COMP-X VALUE IS 18433348.
445 445 [00]: 03 ISC_7_83 PIC XXXX USAGE COMP-X VALUE IS 251592720.
446 446 [00]: 03 ISC_7_84 PIC XXXX USAGE COMP-X VALUE IS 135594241.
447 447 [00]: 03 ISC_7_85 PIC XXXX USAGE COMP-X VALUE IS 0.
448 448 [00]: 03 ISC_7_86 PIC XXXX USAGE COMP-X VALUE IS 184621312.
449 449 [00]: 03 ISC_7_87 PIC XXXX USAGE COMP-X VALUE IS 1291845376.
450 450 [00]: *
451 451 [00]: * FORMATTED REQUEST BLR FOR ISC_7 =
452 452 [00]: * blr_version5,
453 453 [00]: * blr_begin,
454 454 [00]: * blr_message, 1, 17,0,
455 455 [00]: * blr_text, 40,0,
456 456 [00]: * blr_text, 8,0,
457 457 [00]: * blr_text, 8,0,
458 458 [00]: * blr_text, 8,0,
459 459 [00]: * blr_text, 40,0,
460 460 [00]: * blr_text, 40,0,
461 461 [00]: * blr_text, 20,0,
462 462 [00]: * blr_text, 4,0,
463 463 [00]: * blr_text, 4,0,
464 464 [00]: * blr_long, 0,
465 465 [00]: * blr_long, 0,
466 466 [00]: * blr_short, 0,
467 467 [00]: * blr_text, 18,0,
468 468 [00]: * blr_text, 2,0,
469 469 [00]: * blr_text, 50,0,
470 470 [00]: * blr_text, 25,0,
471 471 [00]: * blr_text, 25,0,
472 472 [00]: * blr_message, 0, 1,0,
473 473 [00]: * blr_long, 0,
474 474 [00]: * blr_receive, 0,
475 475 [00]: * blr_begin,
476 476 [00]: * blr_for,
477 477 [00]: * blr_singular,
478 478 [00]: * blr_rse, 1,
479 479 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
480 480 [00]: * blr_boolean,
481 481 [00]: * blr_eql,
482 482 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
483 483 [00]: * blr_parameter, 0, 0,0,
484 484 [00]: * blr_end,
485 485 [00]: * blr_send, 1,
486 486 [00]: * blr_begin,
487 487 [00]: * blr_assignment,
488 488 [00]: * blr_field, 0, 7, 'C','O','N','T','A','T','O',
489 489 [00]: * blr_parameter, 1, 0,0,
490 490 [00]: * blr_assignment,
491 491 [00]: * blr_field, 0, 6, 'F','A','X','N','U','M',
492 492 [00]: * blr_parameter, 1, 1,0,
493 493 [00]: * blr_assignment,
494 494 [00]: * blr_field, 0, 7, 'F','O','N','E','N','U','M',
495 495 [00]: * blr_parameter, 1, 2,0,
496 496 [00]: * blr_assignment,
497 497 [00]: * blr_field, 0, 3, 'C','E','P',
498 498 [00]: * blr_parameter, 1, 3,0,
499 499 [00]: * blr_assignment,
500 500 [00]: * blr_field, 0, 8, 'E','N','D','E','R','E','C','O',
501 501 [00]: * blr_parameter, 1, 4,0,
502 502 [00]: * blr_assignment,
503 503 [00]: * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
504 504 [00]: * blr_parameter, 1, 5,0,
505 505 [00]: * blr_assignment,
506 506 [00]: * blr_field, 0, 6, 'I','N','S','E','S','T',
507 507 [00]: * blr_parameter, 1, 6,0,
508 508 [00]: * blr_assignment,
509 509 [00]: * blr_field, 0, 6, 'F','A','X','D','D','D',
510 510 [00]: * blr_parameter, 1, 7,0,
511 511 [00]: * blr_assignment,
512 512 [00]: * blr_field, 0, 7, 'F','O','N','E','D','D','D',
513 513 [00]: * blr_parameter, 1, 8,0,
514 514 [00]: * blr_assignment,
515 515 [00]: * blr_field, 0, 6, 'N','U','M','E','R','O',
516 516 [00]: * blr_parameter, 1, 9,0,
517 517 [00]: * blr_assignment,
518 518 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
519 519 [00]: * blr_parameter, 1, 10,0,
520 520 [00]: * blr_assignment,
521 521 [00]: * blr_literal, blr_long, 0, 1,0,0,0,
522 522 [00]: * blr_parameter, 1, 11,0,
523 523 [00]: * blr_assignment,
524 524 [00]: * blr_field, 0, 3, 'C','G','C',
525 525 [00]: * blr_parameter, 1, 12,0,
526 526 [00]: * blr_assignment,
527 527 [00]: * blr_field, 0, 2, 'U','F',
528 528 [00]: * blr_parameter, 1, 13,0,
529 529 [00]: * blr_assignment,
530 530 [00]: * blr_field, 0, 4, 'N','O','M','E',
531 531 [00]: * blr_parameter, 1, 14,0,
532 532 [00]: * blr_assignment,
533 533 [00]: * blr_field, 0, 5, 'S','E','T','O','R',
534 534 [00]: * blr_parameter, 1, 15,0,
535 535 [00]: * blr_assignment,
536 536 [00]: * blr_field, 0, 6, 'C','I','D','A','D','E',
537 537 [00]: * blr_parameter, 1, 16,0,
538 538 [00]: * blr_end,
539 539 [00]: * blr_send, 1,
540 540 [00]: * blr_assignment,
541 541 [00]: * blr_literal, blr_long, 0, 0,0,0,0,
542 542 [00]: * blr_parameter, 1, 11,0,
543 543 [00]: * blr_end,
544 544 [00]: * blr_end,
545 545 [00]: * blr_eoc
546 546 [00]: *
547 547 [00]: * END OF BLR STRING FOR REQUEST ISC_7
548 548 [00]:
549 549 [00]: 01 ISC_10.
550 550 [00]: 03 ISC_11 PIC X(40).
551 551 [00]: 03 ISC_12 PIC X(8).
552 552 [00]: 03 ISC_13 PIC X(8).
553 553 [00]: 03 ISC_14 PIC X(8).
554 554 [00]: 03 ISC_15 PIC X(40).
555 555 [00]: 03 ISC_16 PIC X(40).
556 556 [00]: 03 ISC_17 PIC X(20).
557 557 [00]: 03 ISC_18 PIC X(4).
558 558 [00]: 03 ISC_19 PIC X(4).
559 559 [00]: 03 ISC_20 PIC S9(9) USAGE IS COMP.
560 560 [00]: 03 ISC_21 PIC S9(9) USAGE IS COMP.
561 561 [00]: 03 ISC_22 PIC S9(4) USAGE IS COMP.
562 562 [00]: 03 ISC_23 PIC X(18).
563 563 [00]: 03 ISC_24 PIC X(2).
564 564 [00]: 03 ISC_25 PIC X(50).
565 565 [00]: 03 ISC_26 PIC X(25).
566 566 [00]: 03 ISC_27 PIC X(25).
567 567 [00]:
568 568 [00]: 01 ISC_8.
569 569 [00]: 03 ISC_9 PIC S9(9) USAGE IS COMP.
570 570 [00]:
571 571 [00]: 01 gds__28 PIC S9(9) USAGE COMP VALUE IS 0.
572 572 [00]: 01 ISC_29S PIC S9(9) USAGE COMP VALUE IS 0.
573 573 [00]: 01 ISC_29.
574 574 [00]: 03 ISC_29_1 PIC XXXX USAGE COMP-X VALUE IS 262661.
575 575 [00]: 03 ISC_29_2 PIC XXXX USAGE COMP-X VALUE IS 672006161.
576 576 [00]: 03 ISC_29_3 PIC XXXX USAGE COMP-X VALUE IS 527872.
577 577 [00]: 03 ISC_29_4 PIC XXXX USAGE COMP-X VALUE IS 234883086.
578 578 [00]: 03 ISC_29_5 PIC XXXX USAGE COMP-X VALUE IS 672006152.
579 579 [00]: 03 ISC_29_6 PIC XXXX USAGE COMP-X VALUE IS 2625024.
580 580 [00]: 03 ISC_29_7 PIC XXXX USAGE COMP-X VALUE IS 234886158.
581 581 [00]: 03 ISC_29_8 PIC XXXX USAGE COMP-X VALUE IS 68026372.
582 582 [00]: 03 ISC_29_9 PIC XXXX USAGE COMP-X VALUE IS 134219776.
583 583 [00]: 03 ISC_29_10 PIC XXXX USAGE COMP-X VALUE IS 234882816.
584 584 [00]: 03 ISC_29_11 PIC XXXX USAGE COMP-X VALUE IS 34471954.
585 585 [00]: 03 ISC_29_12 PIC XXXX USAGE COMP-X VALUE IS 3280384.
586 586 [00]: 03 ISC_29_13 PIC XXXX USAGE COMP-X VALUE IS 234887438.
587 587 [00]: 03 ISC_29_14 PIC XXXX USAGE COMP-X VALUE IS 117571609.
588 588 [00]: 03 ISC_29_15 PIC XXXX USAGE COMP-X VALUE IS 105513283.
589 589 [00]: 03 ISC_29_16 PIC XXXX USAGE COMP-X VALUE IS 1229736262.
590 590 [00]: 03 ISC_29_17 PIC XXXX USAGE COMP-X VALUE IS 1174424641.
591 591 [00]: 03 ISC_29_18 PIC XXXX USAGE COMP-X VALUE IS 1525761.
592 592 [00]: 03 ISC_29_19 PIC XXXX USAGE COMP-X VALUE IS 1297042948.
593 593 [00]: 03 ISC_29_20 PIC XXXX USAGE COMP-X VALUE IS 982853.
594 594 [00]: 03 ISC_29_21 PIC XXXX USAGE COMP-X VALUE IS 1507586.
595 595 [00]: 03 ISC_29_22 PIC XXXX USAGE COMP-X VALUE IS 1313817351.
596 596 [00]: 03 ISC_29_23 PIC XXXX USAGE COMP-X VALUE IS 1330921812.
597 597 [00]: 03 ISC_29_24 PIC XXXX USAGE COMP-X VALUE IS 25.
598 598 [00]: 03 ISC_29_25 PIC XXXX USAGE COMP-X VALUE IS 100669185.
599 599 [00]: 03 ISC_29_26 PIC XXXX USAGE COMP-X VALUE IS 1314406726.
600 600 [00]: 03 ISC_29_27 PIC XXXX USAGE COMP-X VALUE IS 1658197.
601 601 [00]: 03 ISC_29_28 PIC XXXX USAGE COMP-X VALUE IS 385941505.
602 602 [00]: 03 ISC_29_29 PIC XXXX USAGE COMP-X VALUE IS 1329989376.
603 603 [00]: 03 ISC_29_30 PIC XXXX USAGE COMP-X VALUE IS 1431192910.
604 604 [00]: 03 ISC_29_31 PIC XXXX USAGE COMP-X VALUE IS 33560909.
605 605 [00]: 03 ISC_29_32 PIC XXXX USAGE COMP-X VALUE IS 1507584.
606 606 [00]: 03 ISC_29_33 PIC XXXX USAGE COMP-X VALUE IS 1346716419.
607 607 [00]: 03 ISC_29_34 PIC XXXX USAGE COMP-X VALUE IS 196633.
608 608 [00]: 03 ISC_29_35 PIC XXXX USAGE COMP-X VALUE IS 134223617.
609 609 [00]: 03 ISC_29_36 PIC XXXX USAGE COMP-X VALUE IS 1162104389.
610 610 [00]: 03 ISC_29_37 PIC XXXX USAGE COMP-X VALUE IS 1329808722.
611 611 [00]: 03 ISC_29_38 PIC XXXX USAGE COMP-X VALUE IS 262169.
612 612 [00]: 03 ISC_29_39 PIC XXXX USAGE COMP-X VALUE IS 218109697.
613 613 [00]: 03 ISC_29_40 PIC XXXX USAGE COMP-X VALUE IS 1162694478.
614 614 [00]: 03 ISC_29_41 PIC XXXX USAGE COMP-X VALUE IS 1312900703.
615 615 [00]: 03 ISC_29_42 PIC XXXX USAGE COMP-X VALUE IS 1230192980.
616 616 [00]: 03 ISC_29_43 PIC XXXX USAGE COMP-X VALUE IS 83892545.
617 617 [00]: 03 ISC_29_44 PIC XXXX USAGE COMP-X VALUE IS 1507584.
618 618 [00]: 03 ISC_29_45 PIC XXXX USAGE COMP-X VALUE IS 1397639430.
619 619 [00]: 03 ISC_29_46 PIC XXXX USAGE COMP-X VALUE IS 424956741.
620 620 [00]: 03 ISC_29_47 PIC XXXX USAGE COMP-X VALUE IS 16778752.
621 621 [00]: 03 ISC_29_48 PIC XXXX USAGE COMP-X VALUE IS 1174798359.
622 622 [00]: 03 ISC_29_49 PIC XXXX USAGE COMP-X VALUE IS 1145329729.
623 623 [00]: 03 ISC_29_50 PIC XXXX USAGE COMP-X VALUE IS 117446980.
624 624 [00]: 03 ISC_29_51 PIC XXXX USAGE COMP-X VALUE IS 1507584.
625 625 [00]: 03 ISC_29_52 PIC XXXX USAGE COMP-X VALUE IS 1313818119.
626 626 [00]: 03 ISC_29_53 PIC XXXX USAGE COMP-X VALUE IS 1145324613.
627 627 [00]: 03 ISC_29_54 PIC XXXX USAGE COMP-X VALUE IS 524313.
628 628 [00]: 03 ISC_29_55 PIC XXXX USAGE COMP-X VALUE IS 100669185.
629 629 [00]: 03 ISC_29_56 PIC XXXX USAGE COMP-X VALUE IS 1162696014.
630 630 [00]: 03 ISC_29_57 PIC XXXX USAGE COMP-X VALUE IS 1658706.
631 631 [00]: 03 ISC_29_58 PIC XXXX USAGE COMP-X VALUE IS 385941513.
632 632 [00]: 03 ISC_29_59 PIC XXXX USAGE COMP-X VALUE IS 1329792512.
633 633 [00]: 03 ISC_29_60 PIC XXXX USAGE COMP-X VALUE IS 1330071876.
634 634 [00]: 03 ISC_29_61 PIC XXXX USAGE COMP-X VALUE IS 655385.
635 635 [00]: 03 ISC_29_62 PIC XXXX USAGE COMP-X VALUE IS 529665.
636 636 [00]: 03 ISC_29_63 PIC XXXX USAGE COMP-X VALUE IS 1.
637 637 [00]: 03 ISC_29_64 PIC XXXX USAGE COMP-X VALUE IS 720921.
638 638 [00]: 03 ISC_29_65 PIC XXXX USAGE COMP-X VALUE IS 50337537.
639 639 [00]: 03 ISC_29_66 PIC XXXX USAGE COMP-X VALUE IS 423839555.
640 640 [00]: 03 ISC_29_67 PIC XXXX USAGE COMP-X VALUE IS 16780288.
641 641 [00]: 03 ISC_29_68 PIC XXXX USAGE COMP-X VALUE IS 1426194455.
642 642 [00]: 03 ISC_29_69 PIC XXXX USAGE COMP-X VALUE IS 218110278.
643 643 [00]: 03 ISC_29_70 PIC XXXX USAGE COMP-X VALUE IS 1507584.
644 644 [00]: 03 ISC_29_71 PIC XXXX USAGE COMP-X VALUE IS 1297042948.
645 645 [00]: 03 ISC_29_72 PIC XXXX USAGE COMP-X VALUE IS 234887493.
646 646 [00]: 03 ISC_29_73 PIC XXXX USAGE COMP-X VALUE IS 1507584.
647 647 [00]: 03 ISC_29_74 PIC XXXX USAGE COMP-X VALUE IS 1413829381.
648 648 [00]: 03 ISC_29_75 PIC XXXX USAGE COMP-X VALUE IS 1659471.
649 649 [00]: 03 ISC_29_76 PIC XXXX USAGE COMP-X VALUE IS 385941519.
650 650 [00]: 03 ISC_29_77 PIC XXXX USAGE COMP-X VALUE IS 1229129216.
651 651 [00]: 03 ISC_29_78 PIC XXXX USAGE COMP-X VALUE IS 1162101060.
652 652 [00]: 03 ISC_29_79 PIC XXXX USAGE COMP-X VALUE IS 1048601.
653 653 [00]: 03 ISC_29_80 PIC XXXX USAGE COMP-X VALUE IS 16781055.
654 654 [00]: 03 ISC_29_81 PIC XXXX USAGE COMP-X VALUE IS 2069.
655 655 [00]: 03 ISC_29_82 PIC XXXX USAGE COMP-X VALUE IS 419430400.
656 656 [00]: 03 ISC_29_83 PIC XXXX USAGE COMP-X VALUE IS 4278192896.
657 657 [00]: 03 ISC_29_84 PIC XXXX USAGE COMP-X VALUE IS 19711.
658 658 [00]: *
659 659 [00]: * FORMATTED REQUEST BLR FOR ISC_29 =
660 660 [00]: * blr_version5,
661 661 [00]: * blr_begin,
662 662 [00]: * blr_message, 0, 17,0,
663 663 [00]: * blr_text, 40,0,
664 664 [00]: * blr_text, 8,0,
665 665 [00]: * blr_text, 8,0,
666 666 [00]: * blr_text, 8,0,
667 667 [00]: * blr_text, 40,0,
668 668 [00]: * blr_text, 40,0,
669 669 [00]: * blr_text, 20,0,
670 670 [00]: * blr_text, 4,0,
671 671 [00]: * blr_text, 4,0,
672 672 [00]: * blr_long, 0,
673 673 [00]: * blr_long, 0,
674 674 [00]: * blr_short, 0,
675 675 [00]: * blr_text, 18,0,
676 676 [00]: * blr_text, 2,0,
677 677 [00]: * blr_text, 50,0,
678 678 [00]: * blr_text, 25,0,
679 679 [00]: * blr_text, 25,0,
680 680 [00]: * blr_begin,
681 681 [00]: * blr_for,
682 682 [00]: * blr_rse, 1,
683 683 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
684 684 [00]: * blr_sort, 1,
685 685 [00]: * blr_ascending,
686 686 [00]: * blr_field, 0, 4, 'N','O','M','E',
687 687 [00]: * blr_end,
688 688 [00]: * blr_send, 0,
689 689 [00]: * blr_begin,
690 690 [00]: * blr_assignment,
691 691 [00]: * blr_field, 0, 7, 'C','O','N','T','A','T','O',
692 692 [00]: * blr_parameter, 0, 0,0,
693 693 [00]: * blr_assignment,
694 694 [00]: * blr_field, 0, 6, 'F','A','X','N','U','M',
695 695 [00]: * blr_parameter, 0, 1,0,
696 696 [00]: * blr_assignment,
697 697 [00]: * blr_field, 0, 7, 'F','O','N','E','N','U','M',
698 698 [00]: * blr_parameter, 0, 2,0,
699 699 [00]: * blr_assignment,
700 700 [00]: * blr_field, 0, 3, 'C','E','P',
701 701 [00]: * blr_parameter, 0, 3,0,
702 702 [00]: * blr_assignment,
703 703 [00]: * blr_field, 0, 8, 'E','N','D','E','R','E','C','O',
704 704 [00]: * blr_parameter, 0, 4,0,
705 705 [00]: * blr_assignment,
706 706 [00]: * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
707 707 [00]: * blr_parameter, 0, 5,0,
708 708 [00]: * blr_assignment,
709 709 [00]: * blr_field, 0, 6, 'I','N','S','E','S','T',
710 710 [00]: * blr_parameter, 0, 6,0,
711 711 [00]: * blr_assignment,
712 712 [00]: * blr_field, 0, 6, 'F','A','X','D','D','D',
713 713 [00]: * blr_parameter, 0, 7,0,
714 714 [00]: * blr_assignment,
715 715 [00]: * blr_field, 0, 7, 'F','O','N','E','D','D','D',
716 716 [00]: * blr_parameter, 0, 8,0,
717 717 [00]: * blr_assignment,
718 718 [00]: * blr_field, 0, 6, 'N','U','M','E','R','O',
719 719 [00]: * blr_parameter, 0, 9,0,
720 720 [00]: * blr_assignment,
721 721 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
722 722 [00]: * blr_parameter, 0, 10,0,
723 723 [00]: * blr_assignment,
724 724 [00]: * blr_literal, blr_long, 0, 1,0,0,0,
725 725 [00]: * blr_parameter, 0, 11,0,
726 726 [00]: * blr_assignment,
727 727 [00]: * blr_field, 0, 3, 'C','G','C',
728 728 [00]: * blr_parameter, 0, 12,0,
729 729 [00]: * blr_assignment,
730 730 [00]: * blr_field, 0, 2, 'U','F',
731 731 [00]: * blr_parameter, 0, 13,0,
732 732 [00]: * blr_assignment,
733 733 [00]: * blr_field, 0, 4, 'N','O','M','E',
734 734 [00]: * blr_parameter, 0, 14,0,
735 735 [00]: * blr_assignment,
736 736 [00]: * blr_field, 0, 5, 'S','E','T','O','R',
737 737 [00]: * blr_parameter, 0, 15,0,
738 738 [00]: * blr_assignment,
739 739 [00]: * blr_field, 0, 6, 'C','I','D','A','D','E',
740 740 [00]: * blr_parameter, 0, 16,0,
741 741 [00]: * blr_end,
742 742 [00]: * blr_send, 0,
743 743 [00]: * blr_assignment,
744 744 [00]: * blr_literal, blr_long, 0, 0,0,0,0,
745 745 [00]: * blr_parameter, 0, 11,0,
746 746 [00]: * blr_end,
747 747 [00]: * blr_end,
748 748 [00]: * blr_eoc
749 749 [00]: *
750 750 [00]: * END OF BLR STRING FOR REQUEST ISC_29
751 751 [00]:
752 752 [00]: 01 ISC_30.
753 753 [00]: 03 ISC_31 PIC X(40).
754 754 [00]: 03 ISC_32 PIC X(8).
755 755 [00]: 03 ISC_33 PIC X(8).
756 756 [00]: 03 ISC_34 PIC X(8).
757 757 [00]: 03 ISC_35 PIC X(40).
758 758 [00]: 03 ISC_36 PIC X(40).
759 759 [00]: 03 ISC_37 PIC X(20).
760 760 [00]: 03 ISC_38 PIC X(4).
761 761 [00]: 03 ISC_39 PIC X(4).
762 762 [00]: 03 ISC_40 PIC S9(9) USAGE IS COMP.
763 763 [00]: 03 ISC_41 PIC S9(9) USAGE IS COMP.
764 764 [00]: 03 ISC_42 PIC S9(4) USAGE IS COMP.
765 765 [00]: 03 ISC_43 PIC X(18).
766 766 [00]: 03 ISC_44 PIC X(2).
767 767 [00]: 03 ISC_45 PIC X(50).
768 768 [00]: 03 ISC_46 PIC X(25).
769 769 [00]: 03 ISC_47 PIC X(25).
770 770 [00]:
771 771 [00]: 01 gds__48 PIC S9(9) USAGE COMP VALUE IS 0.
772 772 [00]: 01 ISC_49S PIC S9(9) USAGE COMP VALUE IS 0.
773 773 [00]: 01 ISC_49.
774 774 [00]: 03 ISC_49_1 PIC XXXX USAGE COMP-X VALUE IS 262661.
775 775 [00]: 03 ISC_49_2 PIC XXXX USAGE COMP-X VALUE IS 672006161.
776 776 [00]: 03 ISC_49_3 PIC XXXX USAGE COMP-X VALUE IS 527872.
777 777 [00]: 03 ISC_49_4 PIC XXXX USAGE COMP-X VALUE IS 234883086.
778 778 [00]: 03 ISC_49_5 PIC XXXX USAGE COMP-X VALUE IS 672006152.
779 779 [00]: 03 ISC_49_6 PIC XXXX USAGE COMP-X VALUE IS 2625024.
780 780 [00]: 03 ISC_49_7 PIC XXXX USAGE COMP-X VALUE IS 234886158.
781 781 [00]: 03 ISC_49_8 PIC XXXX USAGE COMP-X VALUE IS 68026372.
782 782 [00]: 03 ISC_49_9 PIC XXXX USAGE COMP-X VALUE IS 134219776.
783 783 [00]: 03 ISC_49_10 PIC XXXX USAGE COMP-X VALUE IS 234882816.
784 784 [00]: 03 ISC_49_11 PIC XXXX USAGE COMP-X VALUE IS 34471954.
785 785 [00]: 03 ISC_49_12 PIC XXXX USAGE COMP-X VALUE IS 3280384.
786 786 [00]: 03 ISC_49_13 PIC XXXX USAGE COMP-X VALUE IS 234887438.
787 787 [00]: 03 ISC_49_14 PIC XXXX USAGE COMP-X VALUE IS 117571609.
788 788 [00]: 03 ISC_49_15 PIC XXXX USAGE COMP-X VALUE IS 105513283.
789 789 [00]: 03 ISC_49_16 PIC XXXX USAGE COMP-X VALUE IS 1229736262.
790 790 [00]: 03 ISC_49_17 PIC XXXX USAGE COMP-X VALUE IS 1174424641.
791 791 [00]: 03 ISC_49_18 PIC XXXX USAGE COMP-X VALUE IS 1525761.
792 792 [00]: 03 ISC_49_19 PIC XXXX USAGE COMP-X VALUE IS 1146045190.
793 793 [00]: 03 ISC_49_20 PIC XXXX USAGE COMP-X VALUE IS 4283385673.
794 794 [00]: 03 ISC_49_21 PIC XXXX USAGE COMP-X VALUE IS 16908302.
795 795 [00]: 03 ISC_49_22 PIC XXXX USAGE COMP-X VALUE IS 1124532247.
796 796 [00]: 03 ISC_49_23 PIC XXXX USAGE COMP-X VALUE IS 1096044111.
797 797 [00]: 03 ISC_49_24 PIC XXXX USAGE COMP-X VALUE IS 1658708.
798 798 [00]: 03 ISC_49_25 PIC XXXX USAGE COMP-X VALUE IS 385941504.
799 799 [00]: 03 ISC_49_26 PIC XXXX USAGE COMP-X VALUE IS 1095108096.
800 800 [00]: 03 ISC_49_27 PIC XXXX USAGE COMP-X VALUE IS 1297436248.
801 801 [00]: 03 ISC_49_28 PIC XXXX USAGE COMP-X VALUE IS 65561.
802 802 [00]: 03 ISC_49_29 PIC XXXX USAGE COMP-X VALUE IS 117446401.
803 803 [00]: 03 ISC_49_30 PIC XXXX USAGE COMP-X VALUE IS 1162760006.
804 804 [00]: 03 ISC_49_31 PIC XXXX USAGE COMP-X VALUE IS 424498510.
805 805 [00]: 03 ISC_49_32 PIC XXXX USAGE COMP-X VALUE IS 16777728.
806 806 [00]: 03 ISC_49_33 PIC XXXX USAGE COMP-X VALUE IS 1124270103.
807 807 [00]: 03 ISC_49_34 PIC XXXX USAGE COMP-X VALUE IS 1658949.
808 808 [00]: 03 ISC_49_35 PIC XXXX USAGE COMP-X VALUE IS 385941507.
809 809 [00]: 03 ISC_49_36 PIC XXXX USAGE COMP-X VALUE IS 1313146880.
810 810 [00]: 03 ISC_49_37 PIC XXXX USAGE COMP-X VALUE IS 1163019588.
811 811 [00]: 03 ISC_49_38 PIC XXXX USAGE COMP-X VALUE IS 1658691.
812 812 [00]: 03 ISC_49_39 PIC XXXX USAGE COMP-X VALUE IS 385941508.
813 813 [00]: 03 ISC_49_40 PIC XXXX USAGE COMP-X VALUE IS 1330515200.
814 814 [00]: 03 ISC_49_41 PIC XXXX USAGE COMP-X VALUE IS 1180648781.
815 815 [00]: 03 ISC_49_42 PIC XXXX USAGE COMP-X VALUE IS 1096044097.
816 816 [00]: 03 ISC_49_43 PIC XXXX USAGE COMP-X VALUE IS 423709011.
817 817 [00]: 03 ISC_49_44 PIC XXXX USAGE COMP-X VALUE IS 16778496.
818 818 [00]: 03 ISC_49_45 PIC XXXX USAGE COMP-X VALUE IS 1225130007.
819 819 [00]: 03 ISC_49_46 PIC XXXX USAGE COMP-X VALUE IS 1397052238.
820 820 [00]: 03 ISC_49_47 PIC XXXX USAGE COMP-X VALUE IS 100669780.
821 821 [00]: 03 ISC_49_48 PIC XXXX USAGE COMP-X VALUE IS 1507584.
822 822 [00]: 03 ISC_49_49 PIC XXXX USAGE COMP-X VALUE IS 1480672774.
823 823 [00]: 03 ISC_49_50 PIC XXXX USAGE COMP-X VALUE IS 423904324.
824 824 [00]: 03 ISC_49_51 PIC XXXX USAGE COMP-X VALUE IS 16779008.
825 825 [00]: 03 ISC_49_52 PIC XXXX USAGE COMP-X VALUE IS 1174863895.
826 826 [00]: 03 ISC_49_53 PIC XXXX USAGE COMP-X VALUE IS 1145392719.
827 827 [00]: 03 ISC_49_54 PIC XXXX USAGE COMP-X VALUE IS 1655876.
828 828 [00]: 03 ISC_49_55 PIC XXXX USAGE COMP-X VALUE IS 385941512.
829 829 [00]: 03 ISC_49_56 PIC XXXX USAGE COMP-X VALUE IS 1431176704.
830 830 [00]: 03 ISC_49_57 PIC XXXX USAGE COMP-X VALUE IS 1330791757.
831 831 [00]: 03 ISC_49_58 PIC XXXX USAGE COMP-X VALUE IS 589849.
832 832 [00]: 03 ISC_49_59 PIC XXXX USAGE COMP-X VALUE IS 100669185.
833 833 [00]: 03 ISC_49_60 PIC XXXX USAGE COMP-X VALUE IS 1229213507.
834 834 [00]: 03 ISC_49_61 PIC XXXX USAGE COMP-X VALUE IS 1658695.
835 835 [00]: 03 ISC_49_62 PIC XXXX USAGE COMP-X VALUE IS 352387082.
836 836 [00]: 03 ISC_49_63 PIC XXXX USAGE COMP-X VALUE IS 65544.
837 837 [00]: 03 ISC_49_64 PIC XXXX USAGE COMP-X VALUE IS 1638400.
838 838 [00]: 03 ISC_49_65 PIC XXXX USAGE COMP-X VALUE IS 385941515.
839 839 [00]: 03 ISC_49_66 PIC XXXX USAGE COMP-X VALUE IS 1195574016.
840 840 [00]: 03 ISC_49_67 PIC XXXX USAGE COMP-X VALUE IS 201333059.
841 841 [00]: 03 ISC_49_68 PIC XXXX USAGE COMP-X VALUE IS 1507584.
842 842 [00]: 03 ISC_49_69 PIC XXXX USAGE COMP-X VALUE IS 424039682.
843 843 [00]: 03 ISC_49_70 PIC XXXX USAGE COMP-X VALUE IS 16780544.
844 844 [00]: 03 ISC_49_71 PIC XXXX USAGE COMP-X VALUE IS 1308885015.
845 845 [00]: 03 ISC_49_72 PIC XXXX USAGE COMP-X VALUE IS 423972175.
846 846 [00]: 03 ISC_49_73 PIC XXXX USAGE COMP-X VALUE IS 16780800.
847 847 [00]: 03 ISC_49_74 PIC XXXX USAGE COMP-X VALUE IS 1392836631.
848 848 [00]: 03 ISC_49_75 PIC XXXX USAGE COMP-X VALUE IS 1380930629.
849 849 [00]: 03 ISC_49_76 PIC XXXX USAGE COMP-X VALUE IS 983065.
850 850 [00]: 03 ISC_49_77 PIC XXXX USAGE COMP-X VALUE IS 100669185.
851 851 [00]: 03 ISC_49_78 PIC XXXX USAGE COMP-X VALUE IS 1094994243.
852 852 [00]: 03 ISC_49_79 PIC XXXX USAGE COMP-X VALUE IS 1656132.
853 853 [00]: 03 ISC_49_80 PIC XXXX USAGE COMP-X VALUE IS 251592720.
854 854 [00]: 03 ISC_49_81 PIC XXXX USAGE COMP-X VALUE IS 135594240.
855 855 [00]: 03 ISC_49_82 PIC XXXX USAGE COMP-X VALUE IS 0.
856 856 [00]: 03 ISC_49_83 PIC XXXX USAGE COMP-X VALUE IS 184555776.
857 857 [00]: 03 ISC_49_84 PIC XXXX USAGE COMP-X VALUE IS 1291845376.
858 858 [00]: *
859 859 [00]: * FORMATTED REQUEST BLR FOR ISC_49 =
860 860 [00]: * blr_version5,
861 861 [00]: * blr_begin,
862 862 [00]: * blr_message, 0, 17,0,
863 863 [00]: * blr_text, 40,0,
864 864 [00]: * blr_text, 8,0,
865 865 [00]: * blr_text, 8,0,
866 866 [00]: * blr_text, 8,0,
867 867 [00]: * blr_text, 40,0,
868 868 [00]: * blr_text, 40,0,
869 869 [00]: * blr_text, 20,0,
870 870 [00]: * blr_text, 4,0,
871 871 [00]: * blr_text, 4,0,
872 872 [00]: * blr_long, 0,
873 873 [00]: * blr_long, 0,
874 874 [00]: * blr_short, 0,
875 875 [00]: * blr_text, 18,0,
876 876 [00]: * blr_text, 2,0,
877 877 [00]: * blr_text, 50,0,
878 878 [00]: * blr_text, 25,0,
879 879 [00]: * blr_text, 25,0,
880 880 [00]: * blr_begin,
881 881 [00]: * blr_for,
882 882 [00]: * blr_rse, 1,
883 883 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
884 884 [00]: * blr_sort, 1,
885 885 [00]: * blr_ascending,
886 886 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
887 887 [00]: * blr_end,
888 888 [00]: * blr_send, 0,
889 889 [00]: * blr_begin,
890 890 [00]: * blr_assignment,
891 891 [00]: * blr_field, 0, 7, 'C','O','N','T','A','T','O',
892 892 [00]: * blr_parameter, 0, 0,0,
893 893 [00]: * blr_assignment,
894 894 [00]: * blr_field, 0, 6, 'F','A','X','N','U','M',
895 895 [00]: * blr_parameter, 0, 1,0,
896 896 [00]: * blr_assignment,
897 897 [00]: * blr_field, 0, 7, 'F','O','N','E','N','U','M',
898 898 [00]: * blr_parameter, 0, 2,0,
899 899 [00]: * blr_assignment,
900 900 [00]: * blr_field, 0, 3, 'C','E','P',
901 901 [00]: * blr_parameter, 0, 3,0,
902 902 [00]: * blr_assignment,
903 903 [00]: * blr_field, 0, 8, 'E','N','D','E','R','E','C','O',
904 904 [00]: * blr_parameter, 0, 4,0,
905 905 [00]: * blr_assignment,
906 906 [00]: * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
907 907 [00]: * blr_parameter, 0, 5,0,
908 908 [00]: * blr_assignment,
909 909 [00]: * blr_field, 0, 6, 'I','N','S','E','S','T',
910 910 [00]: * blr_parameter, 0, 6,0,
911 911 [00]: * blr_assignment,
912 912 [00]: * blr_field, 0, 6, 'F','A','X','D','D','D',
913 913 [00]: * blr_parameter, 0, 7,0,
914 914 [00]: * blr_assignment,
915 915 [00]: * blr_field, 0, 7, 'F','O','N','E','D','D','D',
916 916 [00]: * blr_parameter, 0, 8,0,
917 917 [00]: * blr_assignment,
918 918 [00]: * blr_field, 0, 6, 'N','U','M','E','R','O',
919 919 [00]: * blr_parameter, 0, 9,0,
920 920 [00]: * blr_assignment,
921 921 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
922 922 [00]: * blr_parameter, 0, 10,0,
923 923 [00]: * blr_assignment,
924 924 [00]: * blr_literal, blr_long, 0, 1,0,0,0,
925 925 [00]: * blr_parameter, 0, 11,0,
926 926 [00]: * blr_assignment,
927 927 [00]: * blr_field, 0, 3, 'C','G','C',
928 928 [00]: * blr_parameter, 0, 12,0,
929 929 [00]: * blr_assignment,
930 930 [00]: * blr_field, 0, 2, 'U','F',
931 931 [00]: * blr_parameter, 0, 13,0,
932 932 [00]: * blr_assignment,
933 933 [00]: * blr_field, 0, 4, 'N','O','M','E',
934 934 [00]: * blr_parameter, 0, 14,0,
935 935 [00]: * blr_assignment,
936 936 [00]: * blr_field, 0, 5, 'S','E','T','O','R',
937 937 [00]: * blr_parameter, 0, 15,0,
938 938 [00]: * blr_assignment,
939 939 [00]: * blr_field, 0, 6, 'C','I','D','A','D','E',
940 940 [00]: * blr_parameter, 0, 16,0,
941 941 [00]: * blr_end,
942 942 [00]: * blr_send, 0,
943 943 [00]: * blr_assignment,
944 944 [00]: * blr_literal, blr_long, 0, 0,0,0,0,
945 945 [00]: * blr_parameter, 0, 11,0,
946 946 [00]: * blr_end,
947 947 [00]: * blr_end,
948 948 [00]: * blr_eoc
949 949 [00]: *
950 950 [00]: * END OF BLR STRING FOR REQUEST ISC_49
951 951 [00]:
952 952 [00]: 01 ISC_50.
953 953 [00]: 03 ISC_51 PIC X(40).
954 954 [00]: 03 ISC_52 PIC X(8).
955 955 [00]: 03 ISC_53 PIC X(8).
956 956 [00]: 03 ISC_54 PIC X(8).
957 957 [00]: 03 ISC_55 PIC X(40).
958 958 [00]: 03 ISC_56 PIC X(40).
959 959 [00]: 03 ISC_57 PIC X(20).
960 960 [00]: 03 ISC_58 PIC X(4).
961 961 [00]: 03 ISC_59 PIC X(4).
962 962 [00]: 03 ISC_60 PIC S9(9) USAGE IS COMP.
963 963 [00]: 03 ISC_61 PIC S9(9) USAGE IS COMP.
964 964 [00]: 03 ISC_62 PIC S9(4) USAGE IS COMP.
965 965 [00]: 03 ISC_63 PIC X(18).
966 966 [00]: 03 ISC_64 PIC X(2).
967 967 [00]: 03 ISC_65 PIC X(50).
968 968 [00]: 03 ISC_66 PIC X(25).
969 969 [00]: 03 ISC_67 PIC X(25).
970 970 [00]:
971 971 [00]: 01 gds__68 PIC S9(9) USAGE COMP VALUE IS 0.
972 972 [00]: 01 ISC_69.
973 973 [00]: 03 ISC_69_1 PIC XXXX USAGE COMP-X VALUE IS 17039877.
974 974 [00]: 03 ISC_69_2 PIC XXXX USAGE COMP-X VALUE IS 524289.
975 975 [00]: 03 ISC_69_3 PIC XXXX USAGE COMP-X VALUE IS 65540.
976 976 [00]: 03 ISC_69_4 PIC XXXX USAGE COMP-X VALUE IS 786440.
977 977 [00]: 03 ISC_69_5 PIC XXXX USAGE COMP-X VALUE IS 16908558.
978 978 [00]: 03 ISC_69_6 PIC XXXX USAGE COMP-X VALUE IS 2069.
979 979 [00]: 03 ISC_69_7 PIC XXXX USAGE COMP-X VALUE IS 419430400.
980 980 [00]: 03 ISC_69_8 PIC XXXX USAGE COMP-X VALUE IS 117440513.
981 981 [00]: 03 ISC_69_9 PIC XXXX USAGE COMP-X VALUE IS 105513283.
982 982 [00]: 03 ISC_69_10 PIC XXXX USAGE COMP-X VALUE IS 1229736262.
983 983 [00]: 03 ISC_69_11 PIC XXXX USAGE COMP-X VALUE IS 1191201857.
984 984 [00]: 03 ISC_69_12 PIC XXXX USAGE COMP-X VALUE IS 100669231.
985 985 [00]: 03 ISC_69_13 PIC XXXX USAGE COMP-X VALUE IS 1229213507.
986 986 [00]: 03 ISC_69_14 PIC XXXX USAGE COMP-X VALUE IS 1658695.
987 987 [00]: 03 ISC_69_15 PIC XXXX USAGE COMP-X VALUE IS 50266112.
988 988 [00]: 03 ISC_69_16 PIC XXXX USAGE COMP-X VALUE IS 570490885.
989 989 [00]: 03 ISC_69_17 PIC XXXX USAGE COMP-X VALUE IS 16779285.
990 990 [00]: 03 ISC_69_18 PIC XXXX USAGE COMP-X VALUE IS 419430400.
991 991 [00]: 03 ISC_69_19 PIC XXXX USAGE COMP-X VALUE IS 419430401.
992 992 [00]: 03 ISC_69_20 PIC XXXX USAGE COMP-X VALUE IS 4278190081.
993 993 [00]: 03 ISC_69_21 PIC XXXX USAGE COMP-X VALUE IS 5046271.
994 994 [00]: *
995 995 [00]: * FORMATTED REQUEST BLR FOR ISC_69 =
996 996 [00]: * blr_version5,
997 997 [00]: * blr_begin,
998 998 [00]: * blr_message, 1, 1,0,
999 999 [00]: * blr_long, 0,
1000 1000 [00]: * blr_message, 0, 1,0,
1001 1001 [00]: * blr_long, 0,
1002 1002 [00]: * blr_receive, 0,
1003 1003 [00]: * blr_send, 1,
1004 1004 [00]: * blr_begin,
1005 1005 [00]: * blr_assignment,
1006 1006 [00]: * blr_literal, blr_long, 0, 0,0,0,0,
1007 1007 [00]: * blr_parameter, 1, 0,0,
1008 1008 [00]: * blr_for,
1009 1009 [00]: * blr_rse, 1,
1010 1010 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
1011 1011 [00]: * blr_boolean,
1012 1012 [00]: * blr_eql,
1013 1013 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
1014 1014 [00]: * blr_parameter, 0, 0,0,
1015 1015 [00]: * blr_end,
1016 1016 [00]: * blr_begin,
1017 1017 [00]: * blr_erase, 0,
1018 1018 [00]: * blr_assignment,
1019 1019 [00]: * blr_add,
1020 1020 [00]: * blr_literal, blr_long, 0, 1,0,0,0,
1021 1021 [00]: * blr_parameter, 1, 0,0,
1022 1022 [00]: * blr_parameter, 1, 0,0,
1023 1023 [00]: * blr_end,
1024 1024 [00]: * blr_end,
1025 1025 [00]: * blr_end,
1026 1026 [00]: * blr_eoc
1027 1027 [00]: *
1028 1028 [00]: * END OF BLR STRING FOR REQUEST ISC_69
1029 1029 [00]:
1030 1030 [00]: 01 ISC_72.
1031 1031 [00]: 03 ISC_73 PIC S9(9) USAGE IS COMP.
1032 1032 [00]:
1033 1033 [00]: 01 ISC_70.
1034 1034 [00]: 03 ISC_71 PIC S9(9) USAGE IS COMP.
1035 1035 [00]:
1036 1036 [00]: 01 gds__74 PIC S9(9) USAGE COMP VALUE IS 0.
1037 1037 [00]: 01 ISC_75.
1038 1038 [00]: 03 ISC_75_1 PIC XXXX USAGE COMP-X VALUE IS 17039877.
1039 1039 [00]: 03 ISC_75_2 PIC XXXX USAGE COMP-X VALUE IS 524289.
1040 1040 [00]: 03 ISC_75_3 PIC XXXX USAGE COMP-X VALUE IS 1048580.
1041 1041 [00]: 03 ISC_75_4 PIC XXXX USAGE COMP-X VALUE IS 234891278.
1042 1042 [00]: 03 ISC_75_5 PIC XXXX USAGE COMP-X VALUE IS 135135240.
1043 1043 [00]: 03 ISC_75_6 PIC XXXX USAGE COMP-X VALUE IS 527872.
1044 1044 [00]: 03 ISC_75_7 PIC XXXX USAGE COMP-X VALUE IS 234891278.
1045 1045 [00]: 03 ISC_75_8 PIC XXXX USAGE COMP-X VALUE IS 524328.
1046 1046 [00]: 03 ISC_75_9 PIC XXXX USAGE COMP-X VALUE IS 234886158.
1047 1047 [00]: 03 ISC_75_10 PIC XXXX USAGE COMP-X VALUE IS 68026372.
1048 1048 [00]: 03 ISC_75_11 PIC XXXX USAGE COMP-X VALUE IS 234883072.
1049 1049 [00]: 03 ISC_75_12 PIC XXXX USAGE COMP-X VALUE IS 34471954.
1050 1050 [00]: 03 ISC_75_13 PIC XXXX USAGE COMP-X VALUE IS 3280384.
1051 1051 [00]: 03 ISC_75_14 PIC XXXX USAGE COMP-X VALUE IS 234887438.
1052 1052 [00]: 03 ISC_75_15 PIC XXXX USAGE COMP-X VALUE IS 786457.
1053 1053 [00]: 03 ISC_75_16 PIC XXXX USAGE COMP-X VALUE IS 16908558.
1054 1054 [00]: 03 ISC_75_17 PIC XXXX USAGE COMP-X VALUE IS 2069.
1055 1055 [00]: 03 ISC_75_18 PIC XXXX USAGE COMP-X VALUE IS 419430400.
1056 1056 [00]: 03 ISC_75_19 PIC XXXX USAGE COMP-X VALUE IS 117440513.
1057 1057 [00]: 03 ISC_75_20 PIC XXXX USAGE COMP-X VALUE IS 105513283.
1058 1058 [00]: 03 ISC_75_21 PIC XXXX USAGE COMP-X VALUE IS 1229736262.
1059 1059 [00]: 03 ISC_75_22 PIC XXXX USAGE COMP-X VALUE IS 1191201857.
1060 1060 [00]: 03 ISC_75_23 PIC XXXX USAGE COMP-X VALUE IS 100669231.
1061 1061 [00]: 03 ISC_75_24 PIC XXXX USAGE COMP-X VALUE IS 1229213507.
1062 1062 [00]: 03 ISC_75_25 PIC XXXX USAGE COMP-X VALUE IS 1658695.
1063 1063 [00]: 03 ISC_75_26 PIC XXXX USAGE COMP-X VALUE IS 50266118.
1064 1064 [00]: 03 ISC_75_27 PIC XXXX USAGE COMP-X VALUE IS 33619978.
1065 1065 [00]: 03 ISC_75_28 PIC XXXX USAGE COMP-X VALUE IS 218110209.
1066 1066 [00]: 03 ISC_75_29 PIC XXXX USAGE COMP-X VALUE IS 67180288.
1067 1067 [00]: 03 ISC_75_30 PIC XXXX USAGE COMP-X VALUE IS 1162694478.
1068 1068 [00]: 03 ISC_75_31 PIC XXXX USAGE COMP-X VALUE IS 83892481.
1069 1069 [00]: 03 ISC_75_32 PIC XXXX USAGE COMP-X VALUE IS 218175232.
1070 1070 [00]: 03 ISC_75_33 PIC XXXX USAGE COMP-X VALUE IS 1162694478.
1071 1071 [00]: 03 ISC_75_34 PIC XXXX USAGE COMP-X VALUE IS 1312900703.
1072 1072 [00]: 03 ISC_75_35 PIC XXXX USAGE COMP-X VALUE IS 1230192980.
1073 1073 [00]: 03 ISC_75_36 PIC XXXX USAGE COMP-X VALUE IS 1638721.
1074 1074 [00]: 03 ISC_75_37 PIC XXXX USAGE COMP-X VALUE IS 18284548.
1075 1075 [00]: 03 ISC_75_38 PIC XXXX USAGE COMP-X VALUE IS 1145980168.
1076 1076 [00]: 03 ISC_75_39 PIC XXXX USAGE COMP-X VALUE IS 1128616517.
1077 1077 [00]: 03 ISC_75_40 PIC XXXX USAGE COMP-X VALUE IS 1638735.
1078 1078 [00]: 03 ISC_75_41 PIC XXXX USAGE COMP-X VALUE IS 18284554.
1079 1079 [00]: 03 ISC_75_42 PIC XXXX USAGE COMP-X VALUE IS 1297436166.
1080 1080 [00]: 03 ISC_75_43 PIC XXXX USAGE COMP-X VALUE IS 21975621.
1081 1081 [00]: 03 ISC_75_44 PIC XXXX USAGE COMP-X VALUE IS 917529.
1082 1082 [00]: 03 ISC_75_45 PIC XXXX USAGE COMP-X VALUE IS 1392836887.
1083 1083 [00]: 03 ISC_75_46 PIC XXXX USAGE COMP-X VALUE IS 1380930629.
1084 1084 [00]: 03 ISC_75_47 PIC XXXX USAGE COMP-X VALUE IS 251664641.
1085 1085 [00]: 03 ISC_75_48 PIC XXXX USAGE COMP-X VALUE IS 100734720.
1086 1086 [00]: 03 ISC_75_49 PIC XXXX USAGE COMP-X VALUE IS 1094994243.
1087 1087 [00]: 03 ISC_75_50 PIC XXXX USAGE COMP-X VALUE IS 419513668.
1088 1088 [00]: 03 ISC_75_51 PIC XXXX USAGE COMP-X VALUE IS 385879040.
1089 1089 [00]: 03 ISC_75_52 PIC XXXX USAGE COMP-X VALUE IS 1179976193.
1090 1090 [00]: 03 ISC_75_53 PIC XXXX USAGE COMP-X VALUE IS 50338049.
1091 1091 [00]: 03 ISC_75_54 PIC XXXX USAGE COMP-X VALUE IS 50403072.
1092 1092 [00]: 03 ISC_75_55 PIC XXXX USAGE COMP-X VALUE IS 22037827.
1093 1093 [00]: 03 ISC_75_56 PIC XXXX USAGE COMP-X VALUE IS 589849.
1094 1094 [00]: 03 ISC_75_57 PIC XXXX USAGE COMP-X VALUE IS 1174864151.
1095 1095 [00]: 03 ISC_75_58 PIC XXXX USAGE COMP-X VALUE IS 1145392719.
1096 1096 [00]: 03 ISC_75_59 PIC XXXX USAGE COMP-X VALUE IS 419513412.
1097 1097 [00]: 03 ISC_75_60 PIC XXXX USAGE COMP-X VALUE IS 385876480.
1098 1098 [00]: 03 ISC_75_61 PIC XXXX USAGE COMP-X VALUE IS 1329989377.
1099 1099 [00]: 03 ISC_75_62 PIC XXXX USAGE COMP-X VALUE IS 1431192910.
1100 1100 [00]: 03 ISC_75_63 PIC XXXX USAGE COMP-X VALUE IS 1638733.
1101 1101 [00]: 03 ISC_75_64 PIC XXXX USAGE COMP-X VALUE IS 18284552.
1102 1102 [00]: 03 ISC_75_65 PIC XXXX USAGE COMP-X VALUE IS 1480672774.
1103 1103 [00]: 03 ISC_75_66 PIC XXXX USAGE COMP-X VALUE IS 21251140.
1104 1104 [00]: 03 ISC_75_67 PIC XXXX USAGE COMP-X VALUE IS 65561.
1105 1105 [00]: 03 ISC_75_68 PIC XXXX USAGE COMP-X VALUE IS 1174798615.
1106 1106 [00]: 03 ISC_75_69 PIC XXXX USAGE COMP-X VALUE IS 1431197761.
1107 1107 [00]: 03 ISC_75_70 PIC XXXX USAGE COMP-X VALUE IS 1638733.
1108 1108 [00]: 03 ISC_75_71 PIC XXXX USAGE COMP-X VALUE IS 18284555.
1109 1109 [00]: 03 ISC_75_72 PIC XXXX USAGE COMP-X VALUE IS 1128743683.
1110 1110 [00]: 03 ISC_75_73 PIC XXXX USAGE COMP-X VALUE IS 117446913.
1111 1111 [00]: 03 ISC_75_74 PIC XXXX USAGE COMP-X VALUE IS 100734720.
1112 1112 [00]: 03 ISC_75_75 PIC XXXX USAGE COMP-X VALUE IS 1163087433.
1113 1113 [00]: 03 ISC_75_76 PIC XXXX USAGE COMP-X VALUE IS 419517523.
1114 1114 [00]: 03 ISC_75_77 PIC XXXX USAGE COMP-X VALUE IS 385875968.
1115 1115 [00]: 03 ISC_75_78 PIC XXXX USAGE COMP-X VALUE IS 1329792769.
1116 1116 [00]: 03 ISC_75_79 PIC XXXX USAGE COMP-X VALUE IS 1413567566.
1117 1117 [00]: 03 ISC_75_80 PIC XXXX USAGE COMP-X VALUE IS 570556239.
1118 1118 [00]: 03 ISC_75_81 PIC XXXX USAGE COMP-X VALUE IS 16779285.
1119 1119 [00]: 03 ISC_75_82 PIC XXXX USAGE COMP-X VALUE IS 419430400.
1120 1120 [00]: 03 ISC_75_83 PIC XXXX USAGE COMP-X VALUE IS 419430401.
1121 1121 [00]: 03 ISC_75_84 PIC XXXX USAGE COMP-X VALUE IS 4278190081.
1122 1122 [00]: 03 ISC_75_85 PIC XXXX USAGE COMP-X VALUE IS 5046271.
1123 1123 [00]: *
1124 1124 [00]: * FORMATTED REQUEST BLR FOR ISC_75 =
1125 1125 [00]: * blr_version5,
1126 1126 [00]: * blr_begin,
1127 1127 [00]: * blr_message, 1, 1,0,
1128 1128 [00]: * blr_long, 0,
1129 1129 [00]: * blr_message, 0, 16,0,
1130 1130 [00]: * blr_text, 40,0,
1131 1131 [00]: * blr_text, 8,0,
1132 1132 [00]: * blr_text, 8,0,
1133 1133 [00]: * blr_text, 8,0,
1134 1134 [00]: * blr_text, 40,0,
1135 1135 [00]: * blr_text, 40,0,
1136 1136 [00]: * blr_long, 0,
1137 1137 [00]: * blr_text, 20,0,
1138 1138 [00]: * blr_text, 4,0,
1139 1139 [00]: * blr_text, 4,0,
1140 1140 [00]: * blr_long, 0,
1141 1141 [00]: * blr_text, 18,0,
1142 1142 [00]: * blr_text, 2,0,
1143 1143 [00]: * blr_text, 50,0,
1144 1144 [00]: * blr_text, 25,0,
1145 1145 [00]: * blr_text, 25,0,
1146 1146 [00]: * blr_receive, 0,
1147 1147 [00]: * blr_send, 1,
1148 1148 [00]: * blr_begin,
1149 1149 [00]: * blr_assignment,
1150 1150 [00]: * blr_literal, blr_long, 0, 0,0,0,0,
1151 1151 [00]: * blr_parameter, 1, 0,0,
1152 1152 [00]: * blr_for,
1153 1153 [00]: * blr_rse, 1,
1154 1154 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
1155 1155 [00]: * blr_boolean,
1156 1156 [00]: * blr_eql,
1157 1157 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
1158 1158 [00]: * blr_parameter, 0, 6,0,
1159 1159 [00]: * blr_end,
1160 1160 [00]: * blr_begin,
1161 1161 [00]: * blr_modify, 0, 1,
1162 1162 [00]: * blr_begin,
1163 1163 [00]: * blr_assignment,
1164 1164 [00]: * blr_parameter, 0, 13,0,
1165 1165 [00]: * blr_field, 1, 4, 'N','O','M','E',
1166 1166 [00]: * blr_assignment,
1167 1167 [00]: * blr_parameter, 0, 5,0,
1168 1168 [00]: * blr_field, 1, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
1169 1169 [00]: * blr_assignment,
1170 1170 [00]: * blr_parameter, 0, 4,0,
1171 1171 [00]: * blr_field, 1, 8, 'E','N','D','E','R','E','C','O',
1172 1172 [00]: * blr_assignment,
1173 1173 [00]: * blr_parameter, 0, 10,0,
1174 1174 [00]: * blr_field, 1, 6, 'N','U','M','E','R','O',
1175 1175 [00]: * blr_assignment,
1176 1176 [00]: * blr_parameter, 0, 14,0,
1177 1177 [00]: * blr_field, 1, 5, 'S','E','T','O','R',
1178 1178 [00]: * blr_assignment,
1179 1179 [00]: * blr_parameter, 0, 15,0,
1180 1180 [00]: * blr_field, 1, 6, 'C','I','D','A','D','E',
1181 1181 [00]: * blr_assignment,
1182 1182 [00]: * blr_parameter, 0, 12,0,
1183 1183 [00]: * blr_field, 1, 2, 'U','F',
1184 1184 [00]: * blr_assignment,
1185 1185 [00]: * blr_parameter, 0, 3,0,
1186 1186 [00]: * blr_field, 1, 3, 'C','E','P',
1187 1187 [00]: * blr_assignment,
1188 1188 [00]: * blr_parameter, 0, 9,0,
1189 1189 [00]: * blr_field, 1, 7, 'F','O','N','E','D','D','D',
1190 1190 [00]: * blr_assignment,
1191 1191 [00]: * blr_parameter, 0, 2,0,
1192 1192 [00]: * blr_field, 1, 7, 'F','O','N','E','N','U','M',
1193 1193 [00]: * blr_assignment,
1194 1194 [00]: * blr_parameter, 0, 8,0,
1195 1195 [00]: * blr_field, 1, 6, 'F','A','X','D','D','D',
1196 1196 [00]: * blr_assignment,
1197 1197 [00]: * blr_parameter, 0, 1,0,
1198 1198 [00]: * blr_field, 1, 6, 'F','A','X','N','U','M',
1199 1199 [00]: * blr_assignment,
1200 1200 [00]: * blr_parameter, 0, 11,0,
1201 1201 [00]: * blr_field, 1, 3, 'C','G','C',
1202 1202 [00]: * blr_assignment,
1203 1203 [00]: * blr_parameter, 0, 7,0,
1204 1204 [00]: * blr_field, 1, 6, 'I','N','S','E','S','T',
1205 1205 [00]: * blr_assignment,
1206 1206 [00]: * blr_parameter, 0, 0,0,
1207 1207 [00]: * blr_field, 1, 7, 'C','O','N','T','A','T','O',
1208 1208 [00]: * blr_end,
1209 1209 [00]: * blr_assignment,
1210 1210 [00]: * blr_add,
1211 1211 [00]: * blr_literal, blr_long, 0, 1,0,0,0,
1212 1212 [00]: * blr_parameter, 1, 0,0,
1213 1213 [00]: * blr_parameter, 1, 0,0,
1214 1214 [00]: * blr_end,
1215 1215 [00]: * blr_end,
1216 1216 [00]: * blr_end,
1217 1217 [00]: * blr_eoc
1218 1218 [00]: *
1219 1219 [00]: * END OF BLR STRING FOR REQUEST ISC_75
1220 1220 [00]:
1221 1221 [00]: 01 ISC_93.
1222 1222 [00]: 03 ISC_94 PIC S9(9) USAGE IS COMP.
1223 1223 [00]:
1224 1224 [00]: 01 ISC_76.
1225 1225 [00]: 03 ISC_77 PIC X(40).
1226 1226 [00]: 03 ISC_78 PIC X(8).
1227 1227 [00]: 03 ISC_79 PIC X(8).
1228 1228 [00]: 03 ISC_80 PIC X(8).
1229 1229 [00]: 03 ISC_81 PIC X(40).
1230 1230 [00]: 03 ISC_82 PIC X(40).
1231 1231 [00]: 03 ISC_83 PIC S9(9) USAGE IS COMP.
1232 1232 [00]: 03 ISC_84 PIC X(20).
1233 1233 [00]: 03 ISC_85 PIC X(4).
1234 1234 [00]: 03 ISC_86 PIC X(4).
1235 1235 [00]: 03 ISC_87 PIC S9(9) USAGE IS COMP.
1236 1236 [00]: 03 ISC_88 PIC X(18).
1237 1237 [00]: 03 ISC_89 PIC X(2).
1238 1238 [00]: 03 ISC_90 PIC X(50).
1239 1239 [00]: 03 ISC_91 PIC X(25).
1240 1240 [00]: 03 ISC_92 PIC X(25).
1241 1241 [00]:
1242 1242 [00]: 01 gds__95 PIC S9(9) USAGE COMP VALUE IS 0.
1243 1243 [00]: 01 ISC_96.
1244 1244 [00]: 03 ISC_96_1 PIC XXXX USAGE COMP-X VALUE IS 262661.
1245 1245 [00]: 03 ISC_96_2 PIC XXXX USAGE COMP-X VALUE IS 672006160.
1246 1246 [00]: 03 ISC_96_3 PIC XXXX USAGE COMP-X VALUE IS 527872.
1247 1247 [00]: 03 ISC_96_4 PIC XXXX USAGE COMP-X VALUE IS 234883086.
1248 1248 [00]: 03 ISC_96_5 PIC XXXX USAGE COMP-X VALUE IS 672006152.
1249 1249 [00]: 03 ISC_96_6 PIC XXXX USAGE COMP-X VALUE IS 2625024.
1250 1250 [00]: 03 ISC_96_7 PIC XXXX USAGE COMP-X VALUE IS 234886158.
1251 1251 [00]: 03 ISC_96_8 PIC XXXX USAGE COMP-X VALUE IS 68026372.
1252 1252 [00]: 03 ISC_96_9 PIC XXXX USAGE COMP-X VALUE IS 134219776.
1253 1253 [00]: 03 ISC_96_10 PIC XXXX USAGE COMP-X VALUE IS 1183232.
1254 1254 [00]: 03 ISC_96_11 PIC XXXX USAGE COMP-X VALUE IS 234881550.
1255 1255 [00]: 03 ISC_96_12 PIC XXXX USAGE COMP-X VALUE IS 420347954.
1256 1256 [00]: 03 ISC_96_13 PIC XXXX USAGE COMP-X VALUE IS 1641984.
1257 1257 [00]: 03 ISC_96_14 PIC XXXX USAGE COMP-X VALUE IS 1242497036.
1258 1258 [00]: 03 ISC_96_15 PIC XXXX USAGE COMP-X VALUE IS 1279870470.
1259 1259 [00]: 03 ISC_96_16 PIC XXXX USAGE COMP-X VALUE IS 4997449.
1260 1260 [00]: 03 ISC_96_17 PIC XXXX USAGE COMP-X VALUE IS 1638658.
1261 1261 [00]: 03 ISC_96_18 PIC XXXX USAGE COMP-X VALUE IS 1507338.
1262 1262 [00]: 03 ISC_96_19 PIC XXXX USAGE COMP-X VALUE IS 1146045190.
1263 1263 [00]: 03 ISC_96_20 PIC XXXX USAGE COMP-X VALUE IS 21972809.
1264 1264 [00]: 03 ISC_96_21 PIC XXXX USAGE COMP-X VALUE IS 218110311.
1265 1265 [00]: 03 ISC_96_22 PIC XXXX USAGE COMP-X VALUE IS 67114752.
1266 1266 [00]: 03 ISC_96_23 PIC XXXX USAGE COMP-X VALUE IS 1162694478.
1267 1267 [00]: 03 ISC_96_24 PIC XXXX USAGE COMP-X VALUE IS 83892481.
1268 1268 [00]: 03 ISC_96_25 PIC XXXX USAGE COMP-X VALUE IS 218109696.
1269 1269 [00]: 03 ISC_96_26 PIC XXXX USAGE COMP-X VALUE IS 1162694478.
1270 1270 [00]: 03 ISC_96_27 PIC XXXX USAGE COMP-X VALUE IS 1312900703.
1271 1271 [00]: 03 ISC_96_28 PIC XXXX USAGE COMP-X VALUE IS 1230192980.
1272 1272 [00]: 03 ISC_96_29 PIC XXXX USAGE COMP-X VALUE IS 1638721.
1273 1273 [00]: 03 ISC_96_30 PIC XXXX USAGE COMP-X VALUE IS 1507332.
1274 1274 [00]: 03 ISC_96_31 PIC XXXX USAGE COMP-X VALUE IS 1145980168.
1275 1275 [00]: 03 ISC_96_32 PIC XXXX USAGE COMP-X VALUE IS 1128616517.
1276 1276 [00]: 03 ISC_96_33 PIC XXXX USAGE COMP-X VALUE IS 1638735.
1277 1277 [00]: 03 ISC_96_34 PIC XXXX USAGE COMP-X VALUE IS 1507337.
1278 1278 [00]: 03 ISC_96_35 PIC XXXX USAGE COMP-X VALUE IS 1297436166.
1279 1279 [00]: 03 ISC_96_36 PIC XXXX USAGE COMP-X VALUE IS 21975621.
1280 1280 [00]: 03 ISC_96_37 PIC XXXX USAGE COMP-X VALUE IS 917529.
1281 1281 [00]: 03 ISC_96_38 PIC XXXX USAGE COMP-X VALUE IS 1392836631.
1282 1282 [00]: 03 ISC_96_39 PIC XXXX USAGE COMP-X VALUE IS 1380930629.
1283 1283 [00]: 03 ISC_96_40 PIC XXXX USAGE COMP-X VALUE IS 251664641.
1284 1284 [00]: 03 ISC_96_41 PIC XXXX USAGE COMP-X VALUE IS 100669184.
1285 1285 [00]: 03 ISC_96_42 PIC XXXX USAGE COMP-X VALUE IS 1094994243.
1286 1286 [00]: 03 ISC_96_43 PIC XXXX USAGE COMP-X VALUE IS 419513668.
1287 1287 [00]: 03 ISC_96_44 PIC XXXX USAGE COMP-X VALUE IS 385879040.
1288 1288 [00]: 03 ISC_96_45 PIC XXXX USAGE COMP-X VALUE IS 1179976192.
1289 1289 [00]: 03 ISC_96_46 PIC XXXX USAGE COMP-X VALUE IS 50338049.
1290 1290 [00]: 03 ISC_96_47 PIC XXXX USAGE COMP-X VALUE IS 50337536.
1291 1291 [00]: 03 ISC_96_48 PIC XXXX USAGE COMP-X VALUE IS 22037827.
1292 1292 [00]: 03 ISC_96_49 PIC XXXX USAGE COMP-X VALUE IS 524313.
1293 1293 [00]: 03 ISC_96_50 PIC XXXX USAGE COMP-X VALUE IS 1174863895.
1294 1294 [00]: 03 ISC_96_51 PIC XXXX USAGE COMP-X VALUE IS 1145392719.
1295 1295 [00]: 03 ISC_96_52 PIC XXXX USAGE COMP-X VALUE IS 419513412.
1296 1296 [00]: 03 ISC_96_53 PIC XXXX USAGE COMP-X VALUE IS 385876480.
1297 1297 [00]: 03 ISC_96_54 PIC XXXX USAGE COMP-X VALUE IS 1329989376.
1298 1298 [00]: 03 ISC_96_55 PIC XXXX USAGE COMP-X VALUE IS 1431192910.
1299 1299 [00]: 03 ISC_96_56 PIC XXXX USAGE COMP-X VALUE IS 1638733.
1300 1300 [00]: 03 ISC_96_57 PIC XXXX USAGE COMP-X VALUE IS 1507335.
1301 1301 [00]: 03 ISC_96_58 PIC XXXX USAGE COMP-X VALUE IS 1480672774.
1302 1302 [00]: 03 ISC_96_59 PIC XXXX USAGE COMP-X VALUE IS 21251140.
1303 1303 [00]: 03 ISC_96_60 PIC XXXX USAGE COMP-X VALUE IS 65561.
1304 1304 [00]: 03 ISC_96_61 PIC XXXX USAGE COMP-X VALUE IS 1174798359.
1305 1305 [00]: 03 ISC_96_62 PIC XXXX USAGE COMP-X VALUE IS 1431197761.
1306 1306 [00]: 03 ISC_96_63 PIC XXXX USAGE COMP-X VALUE IS 1638733.
1307 1307 [00]: 03 ISC_96_64 PIC XXXX USAGE COMP-X VALUE IS 1507339.
1308 1308 [00]: 03 ISC_96_65 PIC XXXX USAGE COMP-X VALUE IS 1128743683.
1309 1309 [00]: 03 ISC_96_66 PIC XXXX USAGE COMP-X VALUE IS 100669697.
1310 1310 [00]: 03 ISC_96_67 PIC XXXX USAGE COMP-X VALUE IS 100669184.
1311 1311 [00]: 03 ISC_96_68 PIC XXXX USAGE COMP-X VALUE IS 1163087433.
1312 1312 [00]: 03 ISC_96_69 PIC XXXX USAGE COMP-X VALUE IS 419517523.
1313 1313 [00]: 03 ISC_96_70 PIC XXXX USAGE COMP-X VALUE IS 385875968.
1314 1314 [00]: 03 ISC_96_71 PIC XXXX USAGE COMP-X VALUE IS 1329792768.
1315 1315 [00]: 03 ISC_96_72 PIC XXXX USAGE COMP-X VALUE IS 1413567566.
1316 1316 [00]: 03 ISC_96_73 PIC XXXX USAGE COMP-X VALUE IS 1291845455.
1317 1317 [00]: *
1318 1318 [00]: * FORMATTED REQUEST BLR FOR ISC_96 =
1319 1319 [00]: * blr_version5,
1320 1320 [00]: * blr_begin,
1321 1321 [00]: * blr_message, 0, 16,0,
1322 1322 [00]: * blr_text, 40,0,
1323 1323 [00]: * blr_text, 8,0,
1324 1324 [00]: * blr_text, 8,0,
1325 1325 [00]: * blr_text, 8,0,
1326 1326 [00]: * blr_text, 40,0,
1327 1327 [00]: * blr_text, 40,0,
1328 1328 [00]: * blr_text, 20,0,
1329 1329 [00]: * blr_text, 4,0,
1330 1330 [00]: * blr_text, 4,0,
1331 1331 [00]: * blr_long, 0,
1332 1332 [00]: * blr_long, 0,
1333 1333 [00]: * blr_text, 18,0,
1334 1334 [00]: * blr_text, 2,0,
1335 1335 [00]: * blr_text, 50,0,
1336 1336 [00]: * blr_text, 25,0,
1337 1337 [00]: * blr_text, 25,0,
1338 1338 [00]: * blr_receive, 0,
1339 1339 [00]: * blr_store,
1340 1340 [00]: * blr_relation, 6, 'F','I','L','I','A','L', 0,
1341 1341 [00]: * blr_begin,
1342 1342 [00]: * blr_assignment,
1343 1343 [00]: * blr_parameter, 0, 10,0,
1344 1344 [00]: * blr_field, 0, 6, 'C','O','D','I','G','O',
1345 1345 [00]: * blr_assignment,
1346 1346 [00]: * blr_upcase,
1347 1347 [00]: * blr_parameter, 0, 13,0,
1348 1348 [00]: * blr_field, 0, 4, 'N','O','M','E',
1349 1349 [00]: * blr_assignment,
1350 1350 [00]: * blr_parameter, 0, 5,0,
1351 1351 [00]: * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A',
1352 1352 [00]: * blr_assignment,
1353 1353 [00]: * blr_parameter, 0, 4,0,
1354 1354 [00]: * blr_field, 0, 8, 'E','N','D','E','R','E','C','O',
1355 1355 [00]: * blr_assignment,
1356 1356 [00]: * blr_parameter, 0, 9,0,
1357 1357 [00]: * blr_field, 0, 6, 'N','U','M','E','R','O',
1358 1358 [00]: * blr_assignment,
1359 1359 [00]: * blr_parameter, 0, 14,0,
1360 1360 [00]: * blr_field, 0, 5, 'S','E','T','O','R',
1361 1361 [00]: * blr_assignment,
1362 1362 [00]: * blr_parameter, 0, 15,0,
1363 1363 [00]: * blr_field, 0, 6, 'C','I','D','A','D','E',
1364 1364 [00]: * blr_assignment,
1365 1365 [00]: * blr_parameter, 0, 12,0,
1366 1366 [00]: * blr_field, 0, 2, 'U','F',
1367 1367 [00]: * blr_assignment,
1368 1368 [00]: * blr_parameter, 0, 3,0,
1369 1369 [00]: * blr_field, 0, 3, 'C','E','P',
1370 1370 [00]: * blr_assignment,
1371 1371 [00]: * blr_parameter, 0, 8,0,
1372 1372 [00]: * blr_field, 0, 7, 'F','O','N','E','D','D','D',
1373 1373 [00]: * blr_assignment,
1374 1374 [00]: * blr_parameter, 0, 2,0,
1375 1375 [00]: * blr_field, 0, 7, 'F','O','N','E','N','U','M',
1376 1376 [00]: * blr_assignment,
1377 1377 [00]: * blr_parameter, 0, 7,0,
1378 1378 [00]: * blr_field, 0, 6, 'F','A','X','D','D','D',
1379 1379 [00]: * blr_assignment,
1380 1380 [00]: * blr_parameter, 0, 1,0,
1381 1381 [00]: * blr_field, 0, 6, 'F','A','X','N','U','M',
1382 1382 [00]: * blr_assignment,
1383 1383 [00]: * blr_parameter, 0, 11,0,
1384 1384 [00]: * blr_field, 0, 3, 'C','G','C',
1385 1385 [00]: * blr_assignment,
1386 1386 [00]: * blr_parameter, 0, 6,0,
1387 1387 [00]: * blr_field, 0, 6, 'I','N','S','E','S','T',
1388 1388 [00]: * blr_assignment,
1389 1389 [00]: * blr_parameter, 0, 0,0,
1390 1390 [00]: * blr_field, 0, 7, 'C','O','N','T','A','T','O',
1391 1391 [00]: * blr_end,
1392 1392 [00]: * blr_end,
1393 1393 [00]: * blr_eoc
1394 1394 [00]: *
1395 1395 [00]: * END OF BLR STRING FOR REQUEST ISC_96
1396 1396 [00]:
1397 1397 [00]: 01 ISC_97.
1398 1398 [00]: 03 ISC_98 PIC X(40).
1399 1399 [00]: 03 ISC_99 PIC X(8).
1400 1400 [00]: 03 ISC_100 PIC X(8).
1401 1401 [00]: 03 ISC_101 PIC X(8).
1402 1402 [00]: 03 ISC_102 PIC X(40).
1403 1403 [00]: 03 ISC_103 PIC X(40).
1404 1404 [00]: 03 ISC_104 PIC X(20).
1405 1405 [00]: 03 ISC_105 PIC X(4).
1406 1406 [00]: 03 ISC_106 PIC X(4).
1407 1407 [00]: 03 ISC_107 PIC S9(9) USAGE IS COMP.
1408 1408 [00]: 03 ISC_108 PIC S9(9) USAGE IS COMP.
1409 1409 [00]: 03 ISC_109 PIC X(18).
1410 1410 [00]: 03 ISC_110 PIC X(2).
1411 1411 [00]: 03 ISC_111 PIC X(50).
1412 1412 [00]: 03 ISC_112 PIC X(25).
1413 1413 [00]: 03 ISC_113 PIC X(25).
1414 1414 [00]:
1415 1415 [00]: * **** end of GPRE definitions ****
1416 1416 [00]:
1417 1417 [00]:
1418 1418 [00]: 77 wx-status01 PIC XX VALUE "00".
1419 1419 [00]: 77 wx-opcao PIC xxx value spaces.
1420 1420 [00]: 77 wx-escape PIC 9999 VALUE 0.
1421 1421 [00]: 77 wx-key-esc PIC 9999 VALUE 27.
1422 1422 [00]: 77 wx-key-f2 PIC 99 VALUE 02.
1423 1423 [00]: 77 wx-key-ac PIC 9999 VALUE 259.
1424 1424 [00]: 77 wx-dec PIC 99 VALUE 0.
1425 1425 [00]: 77 wx-pare PIC X VALUE SPACE.
1426 1426 [00]: 77 wx-mensagem PIC X(61) VALUE SPACE.
1427 1427 [00]: 01 codigo-sql PIC 9(9)- value zeros.
1428 1428 [00]: 01 isc-1db REDEFINES isc_1db PIC X(8).
1429 1429 [00]: 01 w01-cursor.
1430 1430 [00]: 03 w03-linha pic 99 value 1.
1431 1431 [00]: 03 w03-coluna pic 99 value 1.
1432 1432 [00]:
1433 1433 [00]: * exec sql begin declare section end-exec
1434 1434 [00]:
1435 1435 [00]: 01 reg-filial.
1436 1436 [00]: 02 chave-filial.
1437 1437 [00]: 03 fi_codigo pic 9(03).
1438 1438 [00]: 02 fi_nome pic x(50).
1439 1439 [00]: 02 fi_fantasia pic x(40).
1440 1440 [00]: 02 fi_endereco pic x(40).
1441 1441 [00]: 02 fi_end_num pic 9(05).
1442 1442 [00]: 02 fi_end_setor pic x(20).
1443 1443 [00]: 02 fi_cidade pic x(25).
1444 1444 [00]: 02 fi_uf pic x(02).
1445 1445 [00]: 02 fi_cep pic 9(08).
1446 1446 [00]: 02 fi_fone_ddd pic x(04).
1447 1447 [00]: 02 fi_fone_num pic x(08).
1448 1448 [00]: 02 fi_fax_ddd pic x(04).
1449 1449 [00]: 02 fi_fax_num pic x(08).
1450 1450 [00]: 02 fi_cgc pic x(18).
1451 1451 [00]: 02 fi_insest pic x(20).
1452 1452 [00]: 02 fi_contato pic x(40).
1453 1453 [00]: 01 v_nome pic x(50).
1454 1454 [00]: 01 v_fantasia pic x(40).
1455 1455 [00]: 01 v_setor pic x(20).
1456 1456 [00]:
1457 1457 [00]: * exec sql end declare section end-exec
1458 1458 [00]:
1459 1459 [00]: 77 wfi_codigo pic x(05).
1460 1460 [00]: 77 traco pic x(80) value all "-".
1461 1461 [00]: 77 wfi_end_num pic x(05).
1462 1462 [00]: 77 ed_num pic zzzz9.
1463 1463 [00]: 01 lixo pic x.
1464 1464 [00]: 01 tipo pic x.
1465 1465 [00]:
1466 1466 [00]: copy "wkglobal.cpy".
1467 1 [01]: *> Variaveis para acerto do numero em caracter
1468 2 [01]: 01 seq-geral.
1469 3 [01]: 02 seq-77 pic 99 value zeros.
1470 4 [01]: 02 seq-7 pic 99 value zeros.
1471 5 [01]:
1472 6 [01]: 01 numeroch pic x(15) value spaces.
1473 7 [01]: 01 numerord redefines numeroch.
1474 8 [01]: 03 numeropos occurs 15 times pic x.
1475 9 [01]: 01 numeronu pic x(15) value spaces.
1476 10 [01]: 01 numerorn redefines numeronu.
1477 11 [01]: 03 numeronupos occurs 15 times pic x.
1478 12 [01]:
1479 13 [01]:
1480 1467 [00]: screen section.
1481 1468 [00]: 01 tela.
1482 1469 [00]: 03 filler pic x(1920)
1483 1470 [00]: blank screen line 4 column 1
1484 1471 [00]: foreground-color 7 background-color 1 value spaces.
1485 1472 [00]:
1486 1473 [00]: PROCEDURE DIVISION.
1487 1474 [00]: loop-conectar-ao-banco-de-dado.
1488 1475 [00]: perform 080-CONNECT-MYDB.
1489 1476 [00]:
1490 1477 [00]: LOOP-CLEAR.
1491 1478 [00]: display tela.
1492 1479 [00]: PERFORM LOOP-ZERA.
1493 1480 [00]: perform loop-tela
1494 1481 [00]: accept wx-opcao line 2 position 36
1495 1482 [00]: if wx-opcao = "SAI" or "sai"
1496 1483 [00]: stop run.
1497 1484 [00]:
1498 1485 [00]: LOOP-INCLUSAO.
1499 1486 [00]: display tela.
1500 1487 [00]: PERFORM LOOP-ZERA.
1501 1488 [00]: perform loop-tela.
1502 1489 [00]: if wx-opcao = "INC" or "inc"
1503 1490 [00]: display wx-opcao line 2 position 36
1504 1491 [00]: perform loop-accept thru loop-accept-exit
1505 1492 [00]: if fi_codigo = zeros go to LOOP-CLEAR
1506 1493 [00]: else
1507 1494 [00]:
1508 1495 [00]: * exec sql
1509 1496 [00]: * insert into filial
1510 1497 [00]: * (codigo, nome, nome_fantasia, endereco, numero,
1511 1498 [00]: * setor, cidade, uf, cep, foneddd, fonenum, faxddd,
1512 1499 [00]: * faxnum, cgc, insest, contato) values
1513 1500 [00]: * (:fi_codigo, upper(:fi_nome), :fi_fantasia, :fi_endereco,
1514 1501 [00]: * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf,
1515 1502 [00]: * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd,
1516 1503 [00]: * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato)
1517 1504 [00]: * end-exec
1518 1505 [00]: IF gds__database = 0 THEN
1519 1506 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
1520 1507 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
1521 1508 [00]: - BY VALUE 0
1522 1509 [00]: END-IF
1523 1510 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
1524 1511 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
1525 1512 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
1526 1513 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
1527 1514 [00]: END-IF
1528 1515 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1529 1516 [00]: IF gds__95 = 0 THEN
1530 1517 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
1531 1518 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__95, BY VALUE 292,
1532 1519 [00]: - BY REFERENCE ISC_96
1533 1520 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1534 1521 [00]: END-IF
1535 1522 [00]: MOVE fi_contato TO isc_98
1536 1523 [00]: MOVE fi_fax_num TO isc_99
1537 1524 [00]: MOVE fi_fone_num TO isc_100
1538 1525 [00]: MOVE fi_cep TO isc_101
1539 1526 [00]: MOVE fi_endereco TO isc_102
1540 1527 [00]: MOVE fi_fantasia TO isc_103
1541 1528 [00]: MOVE fi_insest TO isc_104
1542 1529 [00]: MOVE fi_fax_ddd TO isc_105
1543 1530 [00]: MOVE fi_fone_ddd TO isc_106
1544 1531 [00]: MOVE fi_end_num TO isc_107
1545 1532 [00]: MOVE fi_codigo TO isc_108
1546 1533 [00]: MOVE fi_cgc TO isc_109
1547 1534 [00]: MOVE fi_uf TO isc_110
1548 1535 [00]: MOVE fi_nome TO isc_111
1549 1536 [00]: MOVE fi_end_setor TO isc_112
1550 1537 [00]: MOVE fi_cidade TO isc_113
1551 1538 [00]: IF ISC_TRANS NOT = 0 AND gds__95 NOT = 0 THEN
1552 1539 [00]: CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__95,
1553 1540 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 300, BY REFERENCE ISC_97,
1554 1541 [00]: - BY VALUE 0
1555 1542 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1556 1543 [00]: END-IF
1557 1544 [00]:
1558 1545 [00]: if sqlcode not equal zeros
1559 1546 [00]: move sqlcode to codigo-sql
1560 1547 [00]: display 'erro ao inserir os dados ' codigo-sql at 3301
1561 1548 [00]: accept lixo
1562 1549 [00]: stop run
1563 1550 [00]: end-if
1564 1551 [00]: display "GRAVA S/N=" line 24 position 1
1565 1552 [00]: accept wx-pare line 24 position 12
1566 1553 [00]: if wx-pare = "S" or "s"
1567 1554 [00]:
1568 1555 [00]: * exec sql
1569 1556 [00]: * commit
1570 1557 [00]: * end-exec
1571 1558 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
1572 1559 [00]: - BY REFERENCE ISC_TRANS
1573 1560 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1574 1561 [00]:
1575 1562 [00]: if sqlcode not equal zeros
1576 1563 [00]: move sqlcode to codigo-sql
1577 1564 [00]: display 'erro ao confirmar a insercao de dados ' codigo-sql at 3301
1578 1565 [00]: accept lixo
1579 1566 [00]: stop run
1580 1567 [00]: end-if
1581 1568 [00]: go to LOOP-INCLUSAO
1582 1569 [00]: else
1583 1570 [00]:
1584 1571 [00]: * exec sql
1585 1572 [00]: * rollback
1586 1573 [00]: * end-exec
1587 1574 [00]: CALL "isc_rollback_transaction" USING ISC_STATUS_VECTOR,
1588 1575 [00]: - BY REFERENCE ISC_TRANS
1589 1576 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1590 1577 [00]:
1591 1578 [00]: if sqlcode not equal zeros
1592 1579 [00]: move sqlcode to codigo-sql
1593 1580 [00]: display 'erro ao cancelar a insercao de dados ' codigo-sql at 3301
1594 1581 [00]: accept lixo
1595 1582 [00]: stop run
1596 1583 [00]: end-if
1597 1584 [00]: go to LOOP-INCLUSAO.
1598 1585 [00]:
1599 1586 [00]: LOOP-CONSULTA.
1600 1587 [00]:
1601 1588 [00]: if wx-opcao = "CON" or "con"
1602 1589 [00]: display tela
1603 1590 [00]: PERFORM LOOP-ZERA
1604 1591 [00]: perform loop-tela
1605 1592 [00]: display wx-opcao line 2 position 36
1606 1593 [00]: accept wfi_codigo line 4 position 15
1607 1594 [00]: move wfi_codigo to numeroch perform num-x-9
1608 1595 [00]: move numeronu to fi_codigo ed_num
1609 1596 [00]: display ed_num line 4 position 15
1610 1597 [00]: if fi_codigo = zeros
1611 1598 [00]: go to LOOP-CLEAR
1612 1599 [00]: else
1613 1600 [00]: perform LOOP-SQL-CON
1614 1601 [00]: if lixo = 'n'
1615 1602 [00]: display "Item nao encontrado Tecle enter" line 24 position 2
1616 1603 [00]: accept wx-pare
1617 1604 [00]: go to LOOP-CONSULTA
1618 1605 [00]: else
1619 1606 [00]: perform LOOP-MOSTRA
1620 1607 [00]: display "Tecle enter para uma nova busca" line 24 position 2
1621 1608 [00]: accept wx-pare
1622 1609 [00]: go to LOOP-CONSULTA.
1623 1610 [00]:
1624 1611 [00]: LOOP-ALTERACAO.
1625 1612 [00]: if wx-opcao = "ALT" or "alt"
1626 1613 [00]: display tela
1627 1614 [00]: PERFORM LOOP-ZERA
1628 1615 [00]: perform loop-tela
1629 1616 [00]: display wx-opcao line 2 position 36
1630 1617 [00]: accept wfi_codigo line 4 position 15
1631 1618 [00]: move wfi_codigo to numeroch perform num-x-9
1632 1619 [00]: move numeronu to fi_codigo ed_num
1633 1620 [00]: display fi_codigo line 4 position 17
1634 1621 [00]: if fi_codigo = zeros go to LOOP-CLEAR
1635 1622 [00]:
1636 1623 [00]: else
1637 1624 [00]:
1638 1625 [00]: perform LOOP-SQL-CON
1639 1626 [00]: if LIXO = 'N'
1640 1627 [00]: display "Item nao encontrado Tecle enter" line 24 position 2
1641 1628 [00]: accept wx-pare
1642 1629 [00]: go to LOOP-ALTERACAO
1643 1630 [00]: else
1644 1631 [00]: perform LOOP-MOSTRA
1645 1632 [00]: perform loop-accept-fi-nome thru loop-accept-exit
1646 1633 [00]:
1647 1634 [00]: * exec sql
1648 1635 [00]: * update filial set
1649 1636 [00]: * nome = :fi_nome,
1650 1637 [00]: * nome_fantasia = :fi_fantasia,
1651 1638 [00]: * endereco = :fi_endereco,
1652 1639 [00]: * numero = :fi_end_num,
1653 1640 [00]: * setor = :fi_end_setor,
1654 1641 [00]: * cidade = :fi_cidade,
1655 1642 [00]: * uf = :fi_uf,
1656 1643 [00]: * cep = :fi_cep,
1657 1644 [00]: * foneddd = :fi_fone_ddd,
1658 1645 [00]: * fonenum = :fi_fone_num,
1659 1646 [00]: * faxddd = :fi_fax_ddd,
1660 1647 [00]: * faxnum = :fi_fax_num,
1661 1648 [00]: * cgc = :fi_cgc,
1662 1649 [00]: * insest = :fi_insest,
1663 1650 [00]: * contato = :fi_contato
1664 1651 [00]: * where codigo = :fi_codigo
1665 1652 [00]: * end-exec
1666 1653 [00]: IF gds__database = 0 THEN
1667 1654 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
1668 1655 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
1669 1656 [00]: - BY VALUE 0
1670 1657 [00]: END-IF
1671 1658 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
1672 1659 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
1673 1660 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
1674 1661 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
1675 1662 [00]: END-IF
1676 1663 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1677 1664 [00]: IF gds__74 = 0 THEN
1678 1665 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
1679 1666 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__74, BY VALUE 339,
1680 1667 [00]: - BY REFERENCE ISC_75
1681 1668 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1682 1669 [00]: END-IF
1683 1670 [00]: MOVE fi_contato TO isc_77
1684 1671 [00]: MOVE fi_fax_num TO isc_78
1685 1672 [00]: MOVE fi_fone_num TO isc_79
1686 1673 [00]: MOVE fi_cep TO isc_80
1687 1674 [00]: MOVE fi_endereco TO isc_81
1688 1675 [00]: MOVE fi_fantasia TO isc_82
1689 1676 [00]: MOVE fi_codigo TO isc_83
1690 1677 [00]: MOVE fi_insest TO isc_84
1691 1678 [00]: MOVE fi_fax_ddd TO isc_85
1692 1679 [00]: MOVE fi_fone_ddd TO isc_86
1693 1680 [00]: MOVE fi_end_num TO isc_87
1694 1681 [00]: MOVE fi_cgc TO isc_88
1695 1682 [00]: MOVE fi_uf TO isc_89
1696 1683 [00]: MOVE fi_nome TO isc_90
1697 1684 [00]: MOVE fi_end_setor TO isc_91
1698 1685 [00]: MOVE fi_cidade TO isc_92
1699 1686 [00]: IF ISC_TRANS NOT = 0 AND gds__74 NOT = 0 THEN
1700 1687 [00]: CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__74,
1701 1688 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 300, BY REFERENCE ISC_76,
1702 1689 [00]: - BY VALUE 0
1703 1690 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1704 1691 [00]: END-IF
1705 1692 [00]: IF SQLCODE = 0 THEN
1706 1693 [00]: CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__74,
1707 1694 [00]: - BY VALUE 1, BY VALUE 4, BY REFERENCE ISC_93, BY VALUE 0
1708 1695 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1709 1696 [00]: IF SQLCODE = 0 AND isc_94 = 0 THEN
1710 1697 [00]: MOVE 100 TO SQLCODE
1711 1698 [00]: END-IF
1712 1699 [00]: END-IF
1713 1700 [00]:
1714 1701 [00]: if sqlcode not equal zeros
1715 1702 [00]: move sqlcode to codigo-sql
1716 1703 [00]: display 'erro ao alterar os dados ' codigo-sql at 3301
1717 1704 [00]: accept lixo
1718 1705 [00]: stop run
1719 1706 [00]: end-if
1720 1707 [00]: display "Altera S/N=" line 24 position 1
1721 1708 [00]: accept wx-pare line 24 position 13
1722 1709 [00]: if wx-pare = "S" or "s"
1723 1710 [00]:
1724 1711 [00]: * exec sql
1725 1712 [00]: * commit
1726 1713 [00]: * end-exec
1727 1714 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
1728 1715 [00]: - BY REFERENCE ISC_TRANS
1729 1716 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1730 1717 [00]:
1731 1718 [00]: if sqlcode not equal zeros
1732 1719 [00]: move sqlcode to codigo-sql
1733 1720 [00]: display 'erro ao confirmar a alteracao ' codigo-sql at 3301
1734 1721 [00]: accept lixo
1735 1722 [00]: stop run
1736 1723 [00]: end-if
1737 1724 [00]:
1738 1725 [00]: go to LOOP-ALTERACAO
1739 1726 [00]: else
1740 1727 [00]:
1741 1728 [00]: * exec sql
1742 1729 [00]: * rollback
1743 1730 [00]: * end-exec
1744 1731 [00]: CALL "isc_rollback_transaction" USING ISC_STATUS_VECTOR,
1745 1732 [00]: - BY REFERENCE ISC_TRANS
1746 1733 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1747 1734 [00]:
1748 1735 [00]: if sqlcode not equal zeros
1749 1736 [00]: move sqlcode to codigo-sql
1750 1737 [00]: display 'erro ao confirmar a alteracao ' codigo-sql at 3301
1751 1738 [00]: accept lixo
1752 1739 [00]: stop run
1753 1740 [00]: end-if
1754 1741 [00]: go to LOOP-ALTERACAO.
1755 1742 [00]:
1756 1743 [00]: LOOP-EXCLUSAO.
1757 1744 [00]: if wx-opcao = "EXC" or "exc"
1758 1745 [00]: display tela
1759 1746 [00]: PERFORM LOOP-ZERA
1760 1747 [00]: perform loop-tela
1761 1748 [00]: display wx-opcao line 2 position 36
1762 1749 [00]: accept wfi_codigo line 4 position 15
1763 1750 [00]: move wfi_codigo to numeroch perform num-x-9
1764 1751 [00]: move numeronu to fi_codigo ed_num
1765 1752 [00]: display fi_codigo line 4 position 15
1766 1753 [00]: if fi_codigo = zeros go to LOOP-CLEAR
1767 1754 [00]:
1768 1755 [00]: else
1769 1756 [00]:
1770 1757 [00]: perform LOOP-SQL-CON
1771 1758 [00]: if lixo = 'n'
1772 1759 [00]: display "Item nao encontrado Tecle enter" line 24 position 2
1773 1760 [00]: accept wx-pare
1774 1761 [00]: go to LOOP-EXCLUSAO
1775 1762 [00]: else
1776 1763 [00]: perform LOOP-MOSTRA
1777 1764 [00]:
1778 1765 [00]: * exec sql
1779 1766 [00]: * delete from filial
1780 1767 [00]: * where codigo = :fi_codigo
1781 1768 [00]: * end-exec
1782 1769 [00]: IF gds__database = 0 THEN
1783 1770 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
1784 1771 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
1785 1772 [00]: - BY VALUE 0
1786 1773 [00]: END-IF
1787 1774 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
1788 1775 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
1789 1776 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
1790 1777 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
1791 1778 [00]: END-IF
1792 1779 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1793 1780 [00]: IF gds__68 = 0 THEN
1794 1781 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
1795 1782 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__68, BY VALUE 83,
1796 1783 [00]: - BY REFERENCE ISC_69
1797 1784 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1798 1785 [00]: END-IF
1799 1786 [00]: MOVE fi_codigo TO isc_71
1800 1787 [00]: IF ISC_TRANS NOT = 0 AND gds__68 NOT = 0 THEN
1801 1788 [00]: CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__68,
1802 1789 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 4, BY REFERENCE ISC_70,
1803 1790 [00]: - BY VALUE 0
1804 1791 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1805 1792 [00]: END-IF
1806 1793 [00]: IF SQLCODE = 0 THEN
1807 1794 [00]: CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__68,
1808 1795 [00]: - BY VALUE 1, BY VALUE 4, BY REFERENCE ISC_72, BY VALUE 0
1809 1796 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1810 1797 [00]: IF SQLCODE = 0 AND isc_73 = 0 THEN
1811 1798 [00]: MOVE 100 TO SQLCODE
1812 1799 [00]: END-IF
1813 1800 [00]: END-IF
1814 1801 [00]:
1815 1802 [00]: if sqlcode not equal zeros
1816 1803 [00]: move sqlcode to codigo-sql
1817 1804 [00]: display 'erro ao deletar os dados ' codigo-sql at 3301
1818 1805 [00]: accept lixo
1819 1806 [00]: stop run
1820 1807 [00]: end-if
1821 1808 [00]: display "Delete S/N=" line 24 position 1
1822 1809 [00]: accept wx-pare line 24 position 13
1823 1810 [00]: if wx-pare = "S" or "s"
1824 1811 [00]:
1825 1812 [00]: * exec sql
1826 1813 [00]: * commit
1827 1814 [00]: * end-exec
1828 1815 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
1829 1816 [00]: - BY REFERENCE ISC_TRANS
1830 1817 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1831 1818 [00]:
1832 1819 [00]: if sqlcode not equal zeros
1833 1820 [00]: move sqlcode to codigo-sql
1834 1821 [00]: display 'erro ao confirmar a exclusao ' codigo-sql at 3301
1835 1822 [00]: accept lixo
1836 1823 [00]: stop run
1837 1824 [00]: end-if
1838 1825 [00]:
1839 1826 [00]: go to LOOP-EXCLUSAO
1840 1827 [00]: else
1841 1828 [00]: go to LOOP-EXCLUSAO
1842 1829 [00]: end-if
1843 1830 [00]:
1844 1831 [00]: GO TO LOOP-CLEAR.
1845 1832 [00]:
1846 1833 [00]: LOOP-PERSONALIZADA.
1847 1834 [00]: if wx-opcao equal "pes" or "PES"
1848 1835 [00]: display wx-opcao at 0236
1849 1836 [00]: go to LOOP-CONSULTA-PERSONALIZADA.
1850 1837 [00]:
1851 1838 [00]:
1852 1839 [00]: LOOP-OPCAO-ERRADA.
1853 1840 [00]: GO TO LOOP-CLEAR.
1854 1841 [00]:
1855 1842 [00]: LOOP-CONSULTA-PERSONALIZADA.
1856 1843 [00]: perform ZERA-TELA.
1857 1844 [00]: LOOP-CONSULTA-NOME.
1858 1845 [00]: move spaces to tipo.
1859 1846 [00]: initialize fi_codigo, fi_nome, fi_fantasia, fi_endereco,
1860 1847 [00]: fi_end_num, fi_end_setor, fi_cidade, fi_uf,
1861 1848 [00]: fi_cep, fi_fone_ddd, fi_fone_num, fi_fax_ddd,
1862 1849 [00]: fi_fax_num, fi_cgc, fi_insest, fi_contato.
1863 1850 [00]: display 'Por ordem de (N)ome ou (C)odigo? ' at 0502
1864 1851 [00]: accept tipo at 0535
1865 1852 [00]: display ' ' at 0502
1866 1853 [00]: if tipo equal 'C' or tipo equal 'c'
1867 1854 [00]: go to DECLARA-CONSULTAC.
1868 1855 [00]: if tipo equal 'N' or tipo equal 'n'
1869 1856 [00]: go to DECLARA-CONSULTAN.
1870 1857 [00]:
1871 1858 [00]: DECLARA-CONSULTAC.
1872 1859 [00]:
1873 1860 [00]: * exec sql
1874 1861 [00]: * declare consultac cursor for
1875 1862 [00]: * select codigo, nome, nome_fantasia, endereco, numero,
1876 1863 [00]: * setor, cidade, uf, cep, foneddd, fonenum,
1877 1864 [00]: * faxddd, faxnum, cgc, insest, contato
1878 1865 [00]: * from filial
1879 1866 [00]: * order by codigo
1880 1867 [00]: * end-exec
1881 1868 [00]:
1882 1869 [00]: if sqlcode not equal zeros
1883 1870 [00]: move sqlcode to codigo-sql
1884 1871 [00]: display 'erro ao criar consultac' at 3302
1885 1872 [00]: accept lixo
1886 1873 [00]: stop run.
1887 1874 [00]: go to LOOP-ABRIR-CODIGO.
1888 1875 [00]:
1889 1876 [00]: DECLARA-CONSULTAN.
1890 1877 [00]:
1891 1878 [00]: * exec sql
1892 1879 [00]: * declare consultan cursor for
1893 1880 [00]: * select codigo, nome, nome_fantasia, endereco, numero,
1894 1881 [00]: * setor, cidade, uf, cep, foneddd, fonenum,
1895 1882 [00]: * faxddd, faxnum, cgc, insest, contato
1896 1883 [00]: * from filial
1897 1884 [00]: * order by nome
1898 1885 [00]: * end-exec
1899 1886 [00]:
1900 1887 [00]: if sqlcode not equal zeros
1901 1888 [00]: move sqlcode to codigo-sql
1902 1889 [00]: display 'erro ao criar lista de consultan ' codigo-sql at 2901
1903 1890 [00]: accept lixo
1904 1891 [00]: stop run.
1905 1892 [00]: go to LOOP-ABRIR-NOME.
1906 1893 [00]:
1907 1894 [00]: LOOP-ABRIR-NOME.
1908 1895 [00]:
1909 1896 [00]: * exec sql
1910 1897 [00]: * open consultan
1911 1898 [00]: * end-exec
1912 1899 [00]: IF gds__database = 0 THEN
1913 1900 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
1914 1901 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
1915 1902 [00]: - BY VALUE 0
1916 1903 [00]: END-IF
1917 1904 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
1918 1905 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
1919 1906 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
1920 1907 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
1921 1908 [00]: END-IF
1922 1909 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1923 1910 [00]: IF gds__28 = 0 THEN
1924 1911 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
1925 1912 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__28, BY VALUE 334,
1926 1913 [00]: - BY REFERENCE ISC_29
1927 1914 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1928 1915 [00]: END-IF
1929 1916 [00]: IF (ISC_29S = 0) AND gds__28 NOT = 0 THEN
1930 1917 [00]: IF gds__database NOT = 0 THEN
1931 1918 [00]: CALL "isc_dsql_alloc_statement2" USING ISC_STATUS_VECTOR,
1932 1919 [00]: - BY REFERENCE gds__database, BY REFERENCE ISC_29S
1933 1920 [00]: END-IF
1934 1921 [00]: END-IF
1935 1922 [00]: IF ISC_29S NOT = 0 THEN
1936 1923 [00]: IF ISC_TRANS NOT = 0 THEN
1937 1924 [00]: CALL "isc_dsql_set_cursor_name" USING ISC_STATUS_VECTOR,
1938 1925 [00]: - BY REFERENCE ISC_29S, BY REFERENCE ISC-CONST-CONSULTAN, BY VALUE 0
1939 1926 [00]: IF ISC_STATUS(2) = 0 THEN
1940 1927 [00]: CALL "isc_dsql_execute_m" USING ISC_STATUS_VECTOR, BY REFERENCE ISC_TRANS,
1941 1928 [00]: - BY REFERENCE ISC_29S, BY VALUE 0, BY VALUE 0, BY VALUE -1, BY VALUE 0,
1942 1929 [00]: - BY VALUE 0
1943 1930 [00]: IF ISC_STATUS(2) = 0 THEN
1944 1931 [00]: IF ISC_TRANS NOT = 0 AND gds__28 NOT = 0 THEN
1945 1932 [00]: CALL "isc_start_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28,
1946 1933 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0
1947 1934 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1948 1935 [00]: END-IF
1949 1936 [00]: END-IF
1950 1937 [00]: END-IF
1951 1938 [00]: END-IF
1952 1939 [00]: END-IF
1953 1940 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1954 1941 [00]:
1955 1942 [00]: if sqlcode not equal zeros
1956 1943 [00]: move sqlcode to codigo-sql
1957 1944 [00]: display 'erro ao abrir lista de consultan ' codigo-sql at 3301
1958 1945 [00]: accept lixo
1959 1946 [00]: stop run.
1960 1947 [00]: go to LOOP-PROXIMO-NOME.
1961 1948 [00]:
1962 1949 [00]: LOOP-ABRIR-CODIGO.
1963 1950 [00]:
1964 1951 [00]: * exec sql
1965 1952 [00]: * open consultac
1966 1953 [00]: * end-exec
1967 1954 [00]: IF gds__database = 0 THEN
1968 1955 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
1969 1956 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
1970 1957 [00]: - BY VALUE 0
1971 1958 [00]: END-IF
1972 1959 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
1973 1960 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
1974 1961 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
1975 1962 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
1976 1963 [00]: END-IF
1977 1964 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1978 1965 [00]: IF gds__48 = 0 THEN
1979 1966 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
1980 1967 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__48, BY VALUE 336,
1981 1968 [00]: - BY REFERENCE ISC_49
1982 1969 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
1983 1970 [00]: END-IF
1984 1971 [00]: IF (ISC_49S = 0) AND gds__48 NOT = 0 THEN
1985 1972 [00]: IF gds__database NOT = 0 THEN
1986 1973 [00]: CALL "isc_dsql_alloc_statement2" USING ISC_STATUS_VECTOR,
1987 1974 [00]: - BY REFERENCE gds__database, BY REFERENCE ISC_49S
1988 1975 [00]: END-IF
1989 1976 [00]: END-IF
1990 1977 [00]: IF ISC_49S NOT = 0 THEN
1991 1978 [00]: IF ISC_TRANS NOT = 0 THEN
1992 1979 [00]: CALL "isc_dsql_set_cursor_name" USING ISC_STATUS_VECTOR,
1993 1980 [00]: - BY REFERENCE ISC_49S, BY REFERENCE ISC-CONST-CONSULTAC, BY VALUE 0
1994 1981 [00]: IF ISC_STATUS(2) = 0 THEN
1995 1982 [00]: CALL "isc_dsql_execute_m" USING ISC_STATUS_VECTOR, BY REFERENCE ISC_TRANS,
1996 1983 [00]: - BY REFERENCE ISC_49S, BY VALUE 0, BY VALUE 0, BY VALUE -1, BY VALUE 0,
1997 1984 [00]: - BY VALUE 0
1998 1985 [00]: IF ISC_STATUS(2) = 0 THEN
1999 1986 [00]: IF ISC_TRANS NOT = 0 AND gds__48 NOT = 0 THEN
2000 1987 [00]: CALL "isc_start_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48,
2001 1988 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0
2002 1989 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2003 1990 [00]: END-IF
2004 1991 [00]: END-IF
2005 1992 [00]: END-IF
2006 1993 [00]: END-IF
2007 1994 [00]: END-IF
2008 1995 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2009 1996 [00]:
2010 1997 [00]: if sqlcode not equal zeros
2011 1998 [00]: move sqlcode to codigo-sql
2012 1999 [00]: display 'erro ao abrir lista de consultac ' codigo-sql at 3301
2013 2000 [00]: accept lixo
2014 2001 [00]: stop run.
2015 2002 [00]: go to LOOP-PROXIMO-CODIGO.
2016 2003 [00]:
2017 2004 [00]:
2018 2005 [00]: LOOP-PROXIMO-NOME.
2019 2006 [00]: move 4 to w03-linha
2020 2007 [00]: move 2 to w03-coluna
2021 2008 [00]: perform until sqlcode not equal zeros
2022 2009 [00]:
2023 2010 [00]: * exec sql
2024 2011 [00]: * fetch consultan into
2025 2012 [00]: * :fi_codigo, :fi_nome, :fi_fantasia,:fi_endereco,
2026 2013 [00]: * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf,
2027 2014 [00]: * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd,
2028 2015 [00]: * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato
2029 2016 [00]: * end-exec
2030 2017 [00]: CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28,
2031 2018 [00]: - BY VALUE 0, BY VALUE 302, BY REFERENCE ISC_30, BY VALUE 0
2032 2019 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2033 2020 [00]: IF isc_42 NOT = 0 THEN
2034 2021 [00]: MOVE 0 TO SQLCODE
2035 2022 [00]: MOVE isc_41 TO fi_codigo
2036 2023 [00]: MOVE isc_45 TO fi_nome
2037 2024 [00]: MOVE isc_36 TO fi_fantasia
2038 2025 [00]: MOVE isc_35 TO fi_endereco
2039 2026 [00]: MOVE isc_40 TO fi_end_num
2040 2027 [00]: MOVE isc_46 TO fi_end_setor
2041 2028 [00]: MOVE isc_47 TO fi_cidade
2042 2029 [00]: MOVE isc_44 TO fi_uf
2043 2030 [00]: MOVE isc_34 TO fi_cep
2044 2031 [00]: MOVE isc_39 TO fi_fone_ddd
2045 2032 [00]: MOVE isc_33 TO fi_fone_num
2046 2033 [00]: MOVE isc_38 TO fi_fax_ddd
2047 2034 [00]: MOVE isc_32 TO fi_fax_num
2048 2035 [00]: MOVE isc_43 TO fi_cgc
2049 2036 [00]: MOVE isc_37 TO fi_insest
2050 2037 [00]: MOVE isc_31 TO fi_contato
2051 2038 [00]: ELSE
2052 2039 [00]: MOVE 100 TO SQLCODE
2053 2040 [00]: END-IF
2054 2041 [00]:
2055 2042 [00]: if sqlcode equal 100
2056 2043 [00]: display 'Fim de consultan, tecle ENTER ' at 2402
2057 2044 [00]: accept lixo at 2432
2058 2045 [00]: display ' ' at 2402
2059 2046 [00]: end-if
2060 2047 [00]: if sqlcode not equal zeros and 100
2061 2048 [00]: move sqlcode to codigo-sql
2062 2049 [00]: display 'erro ao fazer a consulta ' codigo-sql at 3301
2063 2050 [00]: else
2064 2051 [00]: move 2 to w03-coluna
2065 2052 [00]: display fi_codigo at w01-cursor
2066 2053 [00]: move 6 to w03-coluna
2067 2054 [00]: display fi_nome at w01-cursor
2068 2055 [00]: add 1 to w03-linha
2069 2056 [00]: if w03-linha = 24
2070 2057 [00]: display 'Tecle ENTER para mais registros ' at 2402
2071 2058 [00]: accept lixo at 2434
2072 2059 [00]: perform ZERA-TELA
2073 2060 [00]: move 4 to w03-linha
2074 2061 [00]: move 2 to w03-coluna
2075 2062 [00]: end-if
2076 2063 [00]: end-if
2077 2064 [00]: end-perform
2078 2065 [00]:
2079 2066 [00]: * exec sql
2080 2067 [00]: * close consultan
2081 2068 [00]: * end-exec
2082 2069 [00]: IF ISC_29S NOT = 0 THEN
2083 2070 [00]: CALL "isc_dsql_free_statement" USING ISC_STATUS_VECTOR,
2084 2071 [00]: - BY REFERENCE ISC_29S, BY VALUE 1
2085 2072 [00]: IF ISC_STATUS(2) = 0 THEN
2086 2073 [00]: CALL "isc_unwind_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28,
2087 2074 [00]: - BY VALUE 0
2088 2075 [00]: END-IF
2089 2076 [00]: END-IF
2090 2077 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2091 2078 [00]:
2092 2079 [00]: go to LOOP-CLEAR.
2093 2080 [00]:
2094 2081 [00]: LOOP-PROXIMO-CODIGO.
2095 2082 [00]: move 4 to w03-linha
2096 2083 [00]: move 2 to w03-coluna
2097 2084 [00]: perform until sqlcode not equal zeros
2098 2085 [00]:
2099 2086 [00]: * exec sql
2100 2087 [00]: * fetch consultac into
2101 2088 [00]: * :fi_codigo, :fi_nome, :fi_fantasia,:fi_endereco,
2102 2089 [00]: * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf,
2103 2090 [00]: * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd,
2104 2091 [00]: * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato
2105 2092 [00]: * end-exec
2106 2093 [00]: CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48,
2107 2094 [00]: - BY VALUE 0, BY VALUE 302, BY REFERENCE ISC_50, BY VALUE 0
2108 2095 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2109 2096 [00]: IF isc_62 NOT = 0 THEN
2110 2097 [00]: MOVE 0 TO SQLCODE
2111 2098 [00]: MOVE isc_61 TO fi_codigo
2112 2099 [00]: MOVE isc_65 TO fi_nome
2113 2100 [00]: MOVE isc_56 TO fi_fantasia
2114 2101 [00]: MOVE isc_55 TO fi_endereco
2115 2102 [00]: MOVE isc_60 TO fi_end_num
2116 2103 [00]: MOVE isc_66 TO fi_end_setor
2117 2104 [00]: MOVE isc_67 TO fi_cidade
2118 2105 [00]: MOVE isc_64 TO fi_uf
2119 2106 [00]: MOVE isc_54 TO fi_cep
2120 2107 [00]: MOVE isc_59 TO fi_fone_ddd
2121 2108 [00]: MOVE isc_53 TO fi_fone_num
2122 2109 [00]: MOVE isc_58 TO fi_fax_ddd
2123 2110 [00]: MOVE isc_52 TO fi_fax_num
2124 2111 [00]: MOVE isc_63 TO fi_cgc
2125 2112 [00]: MOVE isc_57 TO fi_insest
2126 2113 [00]: MOVE isc_51 TO fi_contato
2127 2114 [00]: ELSE
2128 2115 [00]: MOVE 100 TO SQLCODE
2129 2116 [00]: END-IF
2130 2117 [00]:
2131 2118 [00]: if sqlcode equal 100
2132 2119 [00]: display 'Fim de consultac, tecle ENTER ' at 2402
2133 2120 [00]: accept lixo at 2432
2134 2121 [00]: display ' ' at 2402
2135 2122 [00]: end-if
2136 2123 [00]: if sqlcode not equal zeros and 100
2137 2124 [00]: move sqlcode to codigo-sql
2138 2125 [00]: display 'erro ao fazer a consulta ' codigo-sql at 3301
2139 2126 [00]: else
2140 2127 [00]: move 2 to w03-coluna
2141 2128 [00]: display fi_codigo at w01-cursor
2142 2129 [00]: move 6 to w03-coluna
2143 2130 [00]: display fi_nome at w01-cursor
2144 2131 [00]: add 1 to w03-linha
2145 2132 [00]: if w03-linha = 24
2146 2133 [00]: display 'Tecle ENTER para mais registros ' at 2402
2147 2134 [00]: accept lixo at 2434
2148 2135 [00]: perform ZERA-TELA
2149 2136 [00]: move 4 to w03-linha
2150 2137 [00]: move 2 to w03-coluna
2151 2138 [00]: end-if
2152 2139 [00]: end-if
2153 2140 [00]: end-perform
2154 2141 [00]:
2155 2142 [00]: * exec sql
2156 2143 [00]: * close consultac
2157 2144 [00]: * end-exec
2158 2145 [00]: IF ISC_49S NOT = 0 THEN
2159 2146 [00]: CALL "isc_dsql_free_statement" USING ISC_STATUS_VECTOR,
2160 2147 [00]: - BY REFERENCE ISC_49S, BY VALUE 1
2161 2148 [00]: IF ISC_STATUS(2) = 0 THEN
2162 2149 [00]: CALL "isc_unwind_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48,
2163 2150 [00]: - BY VALUE 0
2164 2151 [00]: END-IF
2165 2152 [00]: END-IF
2166 2153 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2167 2154 [00]:
2168 2155 [00]: go to LOOP-CLEAR.
2169 2156 [00]: ZERA-TELA.
2170 2157 [00]: MOVE 4 TO W03-LINHA.
2171 2158 [00]: MOVE 1 TO W03-COLUNA.
2172 2159 [00]: perform until w03-linha >24
2173 2160 [00]: display ' ' at w01-cursor
2174 2161 [00]: add 1 to w03-linha
2175 2162 [00]: end-perform.
2176 2163 [00]: LOOP00.
2177 2164 [00]:
2178 2165 [00]: LOOP-CODIGO.
2179 2166 [00]: LOOP-ZERA.
2180 2167 [00]: MOVE ZEROS TO REG-FILIAL.
2181 2168 [00]: MOVE ZEROS TO fi_codigo.
2182 2169 [00]: MOVE SPACE TO fi_nome.
2183 2170 [00]: MOVE SPACE TO fi_endereco.
2184 2171 [00]: MOVE ZEROS TO fi_end_num.
2185 2172 [00]: MOVE SPACES TO fi_end_setor.
2186 2173 [00]: MOVE SPACES TO fi_cidade.
2187 2174 [00]: MOVE SPACES TO fi_uf.
2188 2175 [00]: MOVE spaces TO fi_cep.
2189 2176 [00]: MOVE SPACES TO fi_fone_ddd.
2190 2177 [00]: MOVE SPACES TO fi_fone_num.
2191 2178 [00]: MOVE SPACES TO fi_fax_ddd.
2192 2179 [00]: MOVE SPACES TO fi_fax_num.
2193 2180 [00]: MOVE SPACES TO fi_cgc.
2194 2181 [00]: MOVE SPACES TO fi_insest.
2195 2182 [00]: move spaces to fi_fantasia.
2196 2183 [00]: move spaces to fi_contato.
2197 2184 [00]: loop-tela.
2198 2185 [00]: display traco line 1 position 1
2199 2186 [00]: display "Opcao PES/INC/ALT/CON/EXC/SAI=>>" line 2 position 2
2200 2187 [00]: display traco line 3 position 1
2201 2188 [00]: display "Codigo....:" line 4 position 2
2202 2189 [00]: display "Nome......:" line 5 position 2
2203 2190 [00]: display "Nome Fant.:" line 6 position 2
2204 2191 [00]: display "Endereco..:" line 7 position 2
2205 2192 [00]: display "Numero....:" line 7 position 60
2206 2193 [00]: display "Setor.....:" line 8 position 2.
2207 2194 [00]: display "Cidade....:" line 9 position 2
2208 2195 [00]: display "Estado....:" line 10 position 2
2209 2196 [00]: display "cep.......:" line 10 position 20
2210 2197 [00]: display "Fone ddd..:" line 11 position 2
2211 2198 [00]: display "Fone num..:" line 11 position 20.
2212 2199 [00]: display "Fax ddd...:" line 12 position 2
2213 2200 [00]: display "Fax num...:" line 12 position 20
2214 2201 [00]: display "c.g.c.....:" line 13 position 2
2215 2202 [00]: display "Insc.Est..:" line 14 position 2
2216 2203 [00]: display "Contato...:" line 15 position 2.
2217 2204 [00]:
2218 2205 [00]: loop-accept.
2219 2206 [00]: if wx-opcao = "ALT" or "alt"
2220 2207 [00]: go to loop-accept-exit
2221 2208 [00]: end-if
2222 2209 [00]: accept wfi_codigo line 4 position 15
2223 2210 [00]: if wx-escape = wx-key-ac or wx-key-esc go to LOOP-CLEAR.
2224 2211 [00]: move wfi_codigo to numeroch perform num-x-9
2225 2212 [00]: move numeronu to fi_codigo ed_num
2226 2213 [00]: display ed_num line 4 position 15
2227 2214 [00]: if wfi_codigo = zeros
2228 2215 [00]: go to loop-accept-exit.
2229 2216 [00]: perform LOOP-SQL-CON.
2230 2217 [00]: if lixo not = 'n'
2231 2218 [00]: display "Item ja cadastrado " line 24 position 01
2232 2219 [00]: accept wx-pare
2233 2220 [00]: go to loop-accept.
2234 2221 [00]:
2235 2222 [00]: loop-accept-fi-nome.
2236 2223 [00]: accept fi_nome with update line 5 position 15
2237 2224 [00]: if wx-escape = wx-key-ac or wx-key-esc
2238 2225 [00]: go to loop-accept.
2239 2226 [00]:
2240 2227 [00]: loop-accept-fi-fantasia.
2241 2228 [00]: accept fi_fantasia with update line 6 position 15
2242 2229 [00]: if wx-escape = wx-key-ac or wx-key-esc
2243 2230 [00]: go to loop-accept-fi-nome.
2244 2231 [00]:
2245 2232 [00]: loop-accept-fi-endereco.
2246 2233 [00]: accept fi_endereco with update line 7 position 15
2247 2234 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fantasia.
2248 2235 [00]:
2249 2236 [00]: loop-accept-fi-end-num.
2250 2237 [00]: accept wfi_end_num line 7 position 71
2251 2238 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-endereco.
2252 2239 [00]: move wfi_end_num to numeroch perform num-x-9
2253 2240 [00]: move numeronu to fi_end_num ed_num
2254 2241 [00]: display ed_num line 7 position 71.
2255 2242 [00]:
2256 2243 [00]: loop-accept-fi-end-setor.
2257 2244 [00]: accept fi_end_setor with update line 8 position 15.
2258 2245 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-end-num.
2259 2246 [00]: if fi_end_setor = spaces go to loop-accept-fi-end-num.
2260 2247 [00]:
2261 2248 [00]: loop-accept-fi-cidade.
2262 2249 [00]: accept fi_cidade with update line 9 position 15
2263 2250 [00]: if fi_cidade = spaces go to loop-accept-fi-end-setor.
2264 2251 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-end-setor.
2265 2252 [00]:
2266 2253 [00]: loop-accept-fi-uf.
2267 2254 [00]: accept fi_uf with update line 10 position 15
2268 2255 [00]: if fi_uf = spaces go to loop-accept-fi-cidade.
2269 2256 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cidade.
2270 2257 [00]:
2271 2258 [00]: loop-accept-fi-cep.
2272 2259 [00]: accept fi_cep with update line 10 position 35
2273 2260 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-uf.
2274 2261 [00]:
2275 2262 [00]: loop-accept-fi-fone-ddd.
2276 2263 [00]: accept fi_fone_ddd with update line 11 position 15
2277 2264 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cep.
2278 2265 [00]:
2279 2266 [00]: loop-accept-fi-fone-num.
2280 2267 [00]: accept fi_fone_num with update line 11 position 35
2281 2268 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fone-ddd.
2282 2269 [00]:
2283 2270 [00]: loop-accept-fi-fax-ddd.
2284 2271 [00]: accept fi_fax_ddd with update line 12 position 15
2285 2272 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fone-num.
2286 2273 [00]:
2287 2274 [00]: loop-accept-fi-fax-num.
2288 2275 [00]: accept fi_fax_num with update line 12 position 35
2289 2276 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fax-ddd.
2290 2277 [00]:
2291 2278 [00]: loop-accept-fi-cgc.
2292 2279 [00]: accept fi_cgc with update line 13 position 15
2293 2280 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fax-num.
2294 2281 [00]:
2295 2282 [00]: loop-accept-fi-inscest.
2296 2283 [00]: accept fi_insest with update line 14 position 15
2297 2284 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cgc.
2298 2285 [00]:
2299 2286 [00]: loop-accept-fi-contato.
2300 2287 [00]: accept fi_contato with update line 15 position 15
2301 2288 [00]: if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-inscest.
2302 2289 [00]:
2303 2290 [00]:
2304 2291 [00]: loop-accept-exit. exit.
2305 2292 [00]:
2306 2293 [00]: LOOP-SQL-CON.
2307 2294 [00]:
2308 2295 [00]: * exec sql
2309 2296 [00]: * select codigo, nome, nome_fantasia, endereco, numero, setor, cidade, uf, cep, foneddd, fonenum, faxddd, faxnum, cgc, insest, contato
2310 2297 [00]: * into
2311 2298 [00]: * :fi_codigo, :fi_nome, :fi_fantasia, :fi_endereco, :fi_end_num, :fi_end_setor,
2312 2299 [00]: * :fi_cidade, :fi_uf, :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd, :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato
2313 2300 [00]: * from filial
2314 2301 [00]: * where codigo = :fi_codigo
2315 2302 [00]: * end-exec
2316 2303 [00]: IF gds__database = 0 THEN
2317 2304 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
2318 2305 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
2319 2306 [00]: - BY VALUE 0
2320 2307 [00]: END-IF
2321 2308 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
2322 2309 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
2323 2310 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
2324 2311 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
2325 2312 [00]: END-IF
2326 2313 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2327 2314 [00]: IF gds__6 = 0 THEN
2328 2315 [00]: CALL "isc_compile_request2" USING ISC_STATUS_VECTOR,
2329 2316 [00]: - BY REFERENCE gds__database, BY REFERENCE gds__6, BY VALUE 348,
2330 2317 [00]: - BY REFERENCE ISC_7
2331 2318 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2332 2319 [00]: END-IF
2333 2320 [00]: MOVE fi_codigo TO isc_9
2334 2321 [00]: IF ISC_TRANS NOT = 0 AND gds__6 NOT = 0 THEN
2335 2322 [00]: CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__6,
2336 2323 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 4, BY REFERENCE ISC_8,
2337 2324 [00]: - BY VALUE 0
2338 2325 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2339 2326 [00]: END-IF
2340 2327 [00]: IF SQLCODE = 0 THEN
2341 2328 [00]: CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__6,
2342 2329 [00]: - BY VALUE 1, BY VALUE 302, BY REFERENCE ISC_10, BY VALUE 0
2343 2330 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2344 2331 [00]: IF isc_22 NOT = 0 THEN
2345 2332 [00]: MOVE isc_21 TO fi_codigo
2346 2333 [00]: MOVE isc_25 TO fi_nome
2347 2334 [00]: MOVE isc_16 TO fi_fantasia
2348 2335 [00]: MOVE isc_15 TO fi_endereco
2349 2336 [00]: MOVE isc_20 TO fi_end_num
2350 2337 [00]: MOVE isc_26 TO fi_end_setor
2351 2338 [00]: MOVE isc_27 TO fi_cidade
2352 2339 [00]: MOVE isc_24 TO fi_uf
2353 2340 [00]: MOVE isc_14 TO fi_cep
2354 2341 [00]: MOVE isc_19 TO fi_fone_ddd
2355 2342 [00]: MOVE isc_13 TO fi_fone_num
2356 2343 [00]: MOVE isc_18 TO fi_fax_ddd
2357 2344 [00]: MOVE isc_12 TO fi_fax_num
2358 2345 [00]: MOVE isc_23 TO fi_cgc
2359 2346 [00]: MOVE isc_17 TO fi_insest
2360 2347 [00]: MOVE isc_11 TO fi_contato
2361 2348 [00]: ELSE
2362 2349 [00]: MOVE 100 TO SQLCODE
2363 2350 [00]: END-IF
2364 2351 [00]: END-IF
2365 2352 [00]:
2366 2353 [00]: if sqlcode not equal 0
2367 2354 [00]: display 'ERRO AO PROCURAR O ARQUIVO: ' at 3301
2368 2355 [00]: move sqlcode to codigo-sql
2369 2356 [00]: display codigo-sql at 3329
2370 2357 [00]: move 'n' to lixo
2371 2358 [00]: else
2372 2359 [00]: move 's' to lixo.
2373 2360 [00]:
2374 2361 [00]: LOOP-MOSTRA.
2375 2362 [00]: display fi_codigo line 4 position 17
2376 2363 [00]: display fi_nome line 5 position 15
2377 2364 [00]: display fi_fantasia line 6 position 15
2378 2365 [00]: display fi_endereco line 7 position 15
2379 2366 [00]: display fi_end_num line 7 position 71
2380 2367 [00]: display fi_end_setor line 8 position 15
2381 2368 [00]: display fi_cidade line 9 position 15
2382 2369 [00]: display fi_uf line 10 position 15
2383 2370 [00]: display fi_cep line 10 position 35
2384 2371 [00]: display fi_fone_ddd line 11 position 15
2385 2372 [00]: display fi_fone_num line 11 position 35
2386 2373 [00]: display fi_fax_ddd line 12 position 15
2387 2374 [00]: display fi_fax_num line 12 position 35
2388 2375 [00]: display fi_cgc line 13 position 15
2389 2376 [00]: display fi_insest line 14 position 15
2390 2377 [00]: display fi_contato line 15 position 15.
2391 2378 [00]:
2392 2379 [00]: LOOP-FIM.
2393 2380 [00]: stop run.
2394 2381 [00]:
2395 2382 [00]:
2396 2383 [00]: 050-DISCONECTAR.
2397 2384 [00]:
2398 2385 [00]: * exec sql
2399 2386 [00]: * disconnect all
2400 2387 [00]: * end-exec
2401 2388 [00]: IF ISC_TRANS NOT = 0 THEN
2402 2389 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
2403 2390 [00]: - BY REFERENCE ISC_TRANS
2404 2391 [00]: END-IF
2405 2392 [00]: IF gds__database NOT = 0 THEN
2406 2393 [00]: CALL "isc_detach_database" USING ISC_STATUS_VECTOR,
2407 2394 [00]: - BY REFERENCE gds__database
2408 2395 [00]: END-IF
2409 2396 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2410 2397 [00]:
2411 2398 [00]: if sqlcode not equal zeros
2412 2399 [00]: move sqlcode to codigo-sql
2413 2400 [00]: display 'erro ao disconectar o banco de dados ' codigo-sql at 3301
2414 2401 [00]: accept lixo
2415 2402 [00]: stop run.
2416 2403 [00]:
2417 2404 [00]: 080-CONNECT-MYDB.
2418 2405 [00]:
2419 2406 [00]: * exec sql
2420 2407 [00]: * connect 'teste.gdb'
2421 2408 [00]: * end-exec
2422 2409 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 0,
2423 2410 [00]: - BY REFERENCE "teste.gdb", BY REFERENCE gds__database, BY VALUE 0,
2424 2411 [00]: - BY VALUE 0
2425 2412 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2426 2413 [00]:
2427 2414 [00]: if sqlcode not equal zeros
2428 2415 [00]: move sqlcode to codigo-sql
2429 2416 [00]: display 'erro ao conectar o banco de dados ' codigo-sql at 3301
2430 2417 [00]: accept lixo
2431 2418 [00]: perform 400-create-database-tabela.
2432 2419 [00]:
2433 2420 [00]: 400-create-database-tabela section.
2434 2421 [00]:
2435 2422 [00]: * exec sql
2436 2423 [00]: * create database "teste.gdb"
2437 2424 [00]: * end-exec
2438 2425 [00]: CALL "isc_create_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
2439 2426 [00]: - BY REFERENCE isc-1db, BY REFERENCE gds__database, BY VALUE 10,
2440 2427 [00]: - BY REFERENCE isc_3, BY VALUE 0
2441 2428 [00]: IF ISC_STATUS(2) = 0 THEN
2442 2429 [00]: IF gds__database = 0 THEN
2443 2430 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
2444 2431 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
2445 2432 [00]: - BY VALUE 0
2446 2433 [00]: END-IF
2447 2434 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
2448 2435 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
2449 2436 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
2450 2437 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
2451 2438 [00]: END-IF
2452 2439 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2453 2440 [00]: IF ISC_TRANS NOT = 0 THEN
2454 2441 [00]: CALL "isc_ddl" USING ISC_STATUS_VECTOR, BY REFERENCE gds__database,
2455 2442 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 6, BY REFERENCE ISC_5
2456 2443 [00]: END-IF
2457 2444 [00]: IF ISC_STATUS(2) = 0 THEN
2458 2445 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
2459 2446 [00]: - BY REFERENCE ISC_TRANS
2460 2447 [00]: END-IF
2461 2448 [00]: IF ISC_STATUS(2) NOT = 0 THEN
2462 2449 [00]: CALL "isc_rollback_transaction" USING BY VALUE 0, BY REFERENCE ISC_TRANS
2463 2450 [00]: END-IF
2464 2451 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2465 2452 [00]: END-IF
2466 2453 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2467 2454 [00]:
2468 2455 [00]: if sqlcode not equal zeros
2469 2456 [00]: move sqlcode to codigo-sql
2470 2457 [00]: display 'erro ao criar o banco de dados ' codigo-sql at 3301
2471 2458 [00]: accept lixo
2472 2459 [00]: stop run.
2473 2460 [00]:
2474 2461 [00]: * exec sql
2475 2462 [00]: * create table filial (
2476 2463 [00]: * codigo integer not null primary key,
2477 2464 [00]: * nome varchar(50),
2478 2465 [00]: * nome_fantasia varchar(40),
2479 2466 [00]: * endereco varchar(40),
2480 2467 [00]: * numero integer,
2481 2468 [00]: * setor varchar(25),
2482 2469 [00]: * cidade varchar(25),
2483 2470 [00]: * uf varchar(02),
2484 2471 [00]: * cep varchar(08),
2485 2472 [00]: * foneddd varchar(04),
2486 2473 [00]: * fonenum varchar(08),
2487 2474 [00]: * faxddd varchar(04),
2488 2475 [00]: * faxnum varchar(08),
2489 2476 [00]: * cgc varchar(18),
2490 2477 [00]: * insest varchar(20),
2491 2478 [00]: * contato varchar(40)
2492 2479 [00]: * )
2493 2480 [00]: * end-exec
2494 2481 [00]: IF gds__database = 0 THEN
2495 2482 [00]: CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9,
2496 2483 [00]: - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0,
2497 2484 [00]: - BY VALUE 0
2498 2485 [00]: END-IF
2499 2486 [00]: IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN
2500 2487 [00]: CALL "isc_start_transaction" USING ISC_STATUS_VECTOR,
2501 2488 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 1
2502 2489 [00]: - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0
2503 2490 [00]: END-IF
2504 2491 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2505 2492 [00]: IF ISC_TRANS NOT = 0 THEN
2506 2493 [00]: CALL "isc_ddl" USING ISC_STATUS_VECTOR, BY REFERENCE gds__database,
2507 2494 [00]: - BY REFERENCE ISC_TRANS, BY VALUE 615, BY REFERENCE ISC_1
2508 2495 [00]: END-IF
2509 2496 [00]: IF ISC_STATUS(2) = 0 THEN
2510 2497 [00]: CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR,
2511 2498 [00]: - BY REFERENCE ISC_TRANS
2512 2499 [00]: END-IF
2513 2500 [00]: IF ISC_STATUS(2) NOT = 0 THEN
2514 2501 [00]: CALL "isc_rollback_transaction" USING BY VALUE 0, BY REFERENCE ISC_TRANS
2515 2502 [00]: END-IF
2516 2503 [00]: CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE
2517 2504 [00]:
2518 2505 [00]: if sqlcode not equal zeros
2519 2506 [00]: display 'erro ao criar a tabela ' at 3301
2520 2507 [00]: move sqlcode to codigo-sql
2521 2508 [00]: display codigo-sql at 3324
2522 2509 [00]: accept lixo
2523 2510 [00]: stop run.
2524 2511 [00]: 400-EXIT.
2525 2512 [00]: EXIT.
2526 2513 [00]: accept wx-pare.
2527 2514 [00]:
2528 2515 [00]: copy "pcglobal.cpy".
2529 1 [01]: *> acerto numero em alfanumerico
2530 2 [01]: num-x-9.
2531 3 [01]: perform numero-int thru numero-int3.
2532 4 [01]: numero-int.
2533 5 [01]: move spaces to numeronu.
2534 6 [01]: move 15 to seq-7
2535 7 [01]: move 15 to seq-77.
2536 8 [01]: numero-int1.
2537 9 [01]: if seq-77 = zeros go to numero-int2.
2538 10 [01]: if numeropos (seq-77) not numeric
2539 11 [01]: compute seq-77 = seq-77 - 1
2540 12 [01]: go to numero-int1.
2541 13 [01]: move numeropos (seq-77) to numeronupos (seq-7)
2542 14 [01]: compute seq-7 = seq-7 - 1
2543 15 [01]: compute seq-77 = seq-77 - 1.
2544 16 [01]: go to numero-int1.
2545 17 [01]: numero-int2.
2546 18 [01]: if seq-7 = zeros go to numero-int3.
2547 19 [01]: if numeronupos (seq-7) not numeric
2548 20 [01]: move zeros to numeronupos (seq-7)
2549 21 [01]: compute seq-7 = seq-7 - 1
2550 22 [01]: go to numero-int2.
2551 23 [01]: numero-int3.
2552 24 [01]: exit.
2553 25 [01]:
Reference in New Issue View Git Blame Copy Permalink