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]: