* ********** Preprocessed module -- do not edit ************** * ********** Preprocessed module -- do not edit ************** * ********** Preprocessed module -- do not edit ************** * ********** Preprocessed module -- do not edit ************** * ********** Preprocessed module -- do not edit ************** * **************** gpre version WI-V1.5.3.4870 Firebird 1.5 ********************* IDENTIFICATION DIVISION. PROGRAM-ID. cad01f. AUTHOR. InfoCont Sistemas Integrados Ltda. * Responsaveis: Danilo Pacheco Martins / Fernando Wuthstrack * Baseado no modelo CAD01 (PostgreSQL) disponibilizado por Carlucio Lopes ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA CRT STATUS IS wx-escape. DATA DIVISION. WORKING-STORAGE SECTION. * exec sql * include "sqlca" * end-exec * **** GDS Preprocessor Definitions **** 01 isc_blob_null PIC S9(18) USAGE COMP VALUE IS 0. 01 ISC_SQLCODE PIC S9(9) USAGE COMP EXTERNAL. 01 gds__database IS GLOBAL PIC S9(9) USAGE COMP VALUE IS 0. 01 isc_1db PIC X(9) VALUE IS "teste.gdb". 01 ISC-CONST-CONSULTAN PIC X(10) VALUE IS "CONSULTAN ". 01 ISC-CONST-CONSULTANL PIC S9(4) USAGE COMP-5. 01 ISC-CONST-CONSULTAC PIC X(10) VALUE IS "CONSULTAC ". 01 ISC-CONST-CONSULTACL PIC S9(4) USAGE COMP-5. 01 ISC_TRANS IS GLOBAL PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_STATUS_VECTOR IS GLOBAL. 03 ISC_STATUS PIC S9(9) USAGE COMP OCCURS 20 TIMES. 01 ISC_STATUS_VECTOR2 IS GLOBAL. 03 ISC_STATUS2 PIC S9(9) USAGE COMP OCCURS 20 TIMES. 01 ISC_ARRAY_LENGTH PIC S9(9) USAGE COMP. 01 SQLCODE IS GLOBAL PIC S9(9) USAGE COMP-5 VALUE IS 0. 01 ISC_1. 03 ISC_1_1 PIC XXXX USAGE COMP-X VALUE IS 101253633. 03 ISC_1_2 PIC XXXX USAGE COMP-X VALUE IS 1279870464. 03 ISC_1_3 PIC XXXX USAGE COMP-X VALUE IS 1162625353. 03 ISC_1_4 PIC XXXX USAGE COMP-X VALUE IS 65538. 03 ISC_1_5 PIC XXXX USAGE COMP-X VALUE IS 1124075018. 03 ISC_1_6 PIC XXXX USAGE COMP-X VALUE IS 1195983951. 03 ISC_1_7 PIC XXXX USAGE COMP-X VALUE IS 149071. 03 ISC_1_8 PIC XXXX USAGE COMP-X VALUE IS 38207496. 03 ISC_1_9 PIC XXXX USAGE COMP-X VALUE IS 1207960576. 03 ISC_1_10 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_11 PIC XXXX USAGE COMP-X VALUE IS 598. 03 ISC_1_12 PIC XXXX USAGE COMP-X VALUE IS 149760. 03 ISC_1_13 PIC XXXX USAGE COMP-X VALUE IS 1549074432. 03 ISC_1_14 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_15 PIC XXXX USAGE COMP-X VALUE IS 41475. 03 ISC_1_16 PIC XXXX USAGE COMP-X VALUE IS 10617685. 03 ISC_1_17 PIC XXXX USAGE COMP-X VALUE IS 9472. 03 ISC_1_18 PIC XXXX USAGE COMP-X VALUE IS 16777828. 03 ISC_1_19 PIC XXXX USAGE COMP-X VALUE IS 406272. 03 ISC_1_20 PIC XXXX USAGE COMP-X VALUE IS 1229213507. 03 ISC_1_21 PIC XXXX USAGE COMP-X VALUE IS 167989063. 03 ISC_1_22 PIC XXXX USAGE COMP-X VALUE IS 1330511876. 03 ISC_1_23 PIC XXXX USAGE COMP-X VALUE IS 38159693. 03 ISC_1_24 PIC XXXX USAGE COMP-X VALUE IS 1191191808. 03 ISC_1_25 PIC XXXX USAGE COMP-X VALUE IS 3276802. 03 ISC_1_26 PIC XXXX USAGE COMP-X VALUE IS 584. 03 ISC_1_27 PIC XXXX USAGE COMP-X VALUE IS 175104. 03 ISC_1_28 PIC XXXX USAGE COMP-X VALUE IS 39583794. 03 ISC_1_29 PIC XXXX USAGE COMP-X VALUE IS 50331904. 03 ISC_1_30 PIC XXXX USAGE COMP-X VALUE IS 1308626186. 03 ISC_1_31 PIC XXXX USAGE COMP-X VALUE IS 1598377295. 03 ISC_1_32 PIC XXXX USAGE COMP-X VALUE IS 1414414662. 03 ISC_1_33 PIC XXXX USAGE COMP-X VALUE IS 1095324481. 03 ISC_1_34 PIC XXXX USAGE COMP-X VALUE IS 620757574. 03 ISC_1_35 PIC XXXX USAGE COMP-X VALUE IS 149248. 03 ISC_1_36 PIC XXXX USAGE COMP-X VALUE IS 38273064. 03 ISC_1_37 PIC XXXX USAGE COMP-X VALUE IS 2885681152. 03 ISC_1_38 PIC XXXX USAGE COMP-X VALUE IS 2621442. 03 ISC_1_39 PIC XXXX USAGE COMP-X VALUE IS 33555036. 03 ISC_1_40 PIC XXXX USAGE COMP-X VALUE IS 134873856. 03 ISC_1_41 PIC XXXX USAGE COMP-X VALUE IS 1145980160. 03 ISC_1_42 PIC XXXX USAGE COMP-X VALUE IS 1128616517. 03 ISC_1_43 PIC XXXX USAGE COMP-X VALUE IS 149071. 03 ISC_1_44 PIC XXXX USAGE COMP-X VALUE IS 38207525. 03 ISC_1_45 PIC XXXX USAGE COMP-X VALUE IS 1207969792. 03 ISC_1_46 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_47 PIC XXXX USAGE COMP-X VALUE IS 671089324. 03 ISC_1_48 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_49 PIC XXXX USAGE COMP-X VALUE IS 167968771. 03 ISC_1_50 PIC XXXX USAGE COMP-X VALUE IS 1431175174. 03 ISC_1_51 PIC XXXX USAGE COMP-X VALUE IS 1330791757. 03 ISC_1_52 PIC XXXX USAGE COMP-X VALUE IS 134218310. 03 ISC_1_53 PIC XXXX USAGE COMP-X VALUE IS 149248. 03 ISC_1_54 PIC XXXX USAGE COMP-X VALUE IS 38273028. 03 ISC_1_55 PIC XXXX USAGE COMP-X VALUE IS 1442840576. 03 ISC_1_56 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_57 PIC XXXX USAGE COMP-X VALUE IS 585. 03 ISC_1_58 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_59 PIC XXXX USAGE COMP-X VALUE IS 167968772. 03 ISC_1_60 PIC XXXX USAGE COMP-X VALUE IS 1163067397. 03 ISC_1_61 PIC XXXX USAGE COMP-X VALUE IS 1179799380. 03 ISC_1_62 PIC XXXX USAGE COMP-X VALUE IS 2424834. 03 ISC_1_63 PIC XXXX USAGE COMP-X VALUE IS 419430983. 03 ISC_1_64 PIC XXXX USAGE COMP-X VALUE IS 149504. 03 ISC_1_65 PIC XXXX USAGE COMP-X VALUE IS 44826624. 03 ISC_1_66 PIC XXXX USAGE COMP-X VALUE IS 1543510272. 03 ISC_1_67 PIC XXXX USAGE COMP-X VALUE IS 327682. 03 ISC_1_68 PIC XXXX USAGE COMP-X VALUE IS 395779. 03 ISC_1_69 PIC XXXX USAGE COMP-X VALUE IS 1094994243. 03 ISC_1_70 PIC XXXX USAGE COMP-X VALUE IS 38159684. 03 ISC_1_71 PIC XXXX USAGE COMP-X VALUE IS 1191191808. 03 ISC_1_72 PIC XXXX USAGE COMP-X VALUE IS 1638402. 03 ISC_1_73 PIC XXXX USAGE COMP-X VALUE IS 584. 03 ISC_1_74 PIC XXXX USAGE COMP-X VALUE IS 175104. 03 ISC_1_75 PIC XXXX USAGE COMP-X VALUE IS 39583769. 03 ISC_1_76 PIC XXXX USAGE COMP-X VALUE IS 50333184. 03 ISC_1_77 PIC XXXX USAGE COMP-X VALUE IS 1426063882. 03 ISC_1_78 PIC XXXX USAGE COMP-X VALUE IS 149062. 03 ISC_1_79 PIC XXXX USAGE COMP-X VALUE IS 38207525. 03 ISC_1_80 PIC XXXX USAGE COMP-X VALUE IS 1207960064. 03 ISC_1_81 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_82 PIC XXXX USAGE COMP-X VALUE IS 33555116. 03 ISC_1_83 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_84 PIC XXXX USAGE COMP-X VALUE IS 167968775. 03 ISC_1_85 PIC XXXX USAGE COMP-X VALUE IS 1162018819. 03 ISC_1_86 PIC XXXX USAGE COMP-X VALUE IS 149072. 03 ISC_1_87 PIC XXXX USAGE COMP-X VALUE IS 38207525. 03 ISC_1_88 PIC XXXX USAGE COMP-X VALUE IS 1207961600. 03 ISC_1_89 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_90 PIC XXXX USAGE COMP-X VALUE IS 134218412. 03 ISC_1_91 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_92 PIC XXXX USAGE COMP-X VALUE IS 167968776. 03 ISC_1_93 PIC XXXX USAGE COMP-X VALUE IS 1329987591. 03 ISC_1_94 PIC XXXX USAGE COMP-X VALUE IS 1145324878. 03 ISC_1_95 PIC XXXX USAGE COMP-X VALUE IS 149060. 03 ISC_1_96 PIC XXXX USAGE COMP-X VALUE IS 38207525. 03 ISC_1_97 PIC XXXX USAGE COMP-X VALUE IS 1207960576. 03 ISC_1_98 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_99 PIC XXXX USAGE COMP-X VALUE IS 67109548. 03 ISC_1_100 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_101 PIC XXXX USAGE COMP-X VALUE IS 167968777. 03 ISC_1_102 PIC XXXX USAGE COMP-X VALUE IS 1329987591. 03 ISC_1_103 PIC XXXX USAGE COMP-X VALUE IS 1431192910. 03 ISC_1_104 PIC XXXX USAGE COMP-X VALUE IS 149069. 03 ISC_1_105 PIC XXXX USAGE COMP-X VALUE IS 38207525. 03 ISC_1_106 PIC XXXX USAGE COMP-X VALUE IS 1207961600. 03 ISC_1_107 PIC XXXX USAGE COMP-X VALUE IS 2. 03 ISC_1_108 PIC XXXX USAGE COMP-X VALUE IS 134218412. 03 ISC_1_109 PIC XXXX USAGE COMP-X VALUE IS 154624. 03 ISC_1_110 PIC XXXX USAGE COMP-X VALUE IS 167968778. 03 ISC_1_111 PIC XXXX USAGE COMP-X VALUE IS 1095106566. 03 ISC_1_112 PIC XXXX USAGE COMP-X VALUE IS 1145324632. 03 ISC_1_113 PIC XXXX USAGE COMP-X VALUE IS 620757574. 03 ISC_1_114 PIC XXXX USAGE COMP-X VALUE IS 149248. 03 ISC_1_115 PIC XXXX USAGE COMP-X VALUE IS 38273028. 03 ISC_1_116 PIC XXXX USAGE COMP-X VALUE IS 2885681152. 03 ISC_1_117 PIC XXXX USAGE COMP-X VALUE IS 262146. 03 ISC_1_118 PIC XXXX USAGE COMP-X VALUE IS 184549980. 03 ISC_1_119 PIC XXXX USAGE COMP-X VALUE IS 101319424. 03 ISC_1_120 PIC XXXX USAGE COMP-X VALUE IS 1480672768. 03 ISC_1_121 PIC XXXX USAGE COMP-X VALUE IS 1179473230. 03 ISC_1_122 PIC XXXX USAGE COMP-X VALUE IS 2424834. 03 ISC_1_123 PIC XXXX USAGE COMP-X VALUE IS 134218311. 03 ISC_1_124 PIC XXXX USAGE COMP-X VALUE IS 149504. 03 ISC_1_125 PIC XXXX USAGE COMP-X VALUE IS 44826624. 03 ISC_1_126 PIC XXXX USAGE COMP-X VALUE IS 1543505920. 03 ISC_1_127 PIC XXXX USAGE COMP-X VALUE IS 786434. 03 ISC_1_128 PIC XXXX USAGE COMP-X VALUE IS 199171. 03 ISC_1_129 PIC XXXX USAGE COMP-X VALUE IS 1178814275. 03 ISC_1_130 PIC XXXX USAGE COMP-X VALUE IS 2424834. 03 ISC_1_131 PIC XXXX USAGE COMP-X VALUE IS 301990471. 03 ISC_1_132 PIC XXXX USAGE COMP-X VALUE IS 149504. 03 ISC_1_133 PIC XXXX USAGE COMP-X VALUE IS 44826624. 03 ISC_1_134 PIC XXXX USAGE COMP-X VALUE IS 1543508480. 03 ISC_1_135 PIC XXXX USAGE COMP-X VALUE IS 851970. 03 ISC_1_136 PIC XXXX USAGE COMP-X VALUE IS 395779. 03 ISC_1_137 PIC XXXX USAGE COMP-X VALUE IS 1163087433. 03 ISC_1_138 PIC XXXX USAGE COMP-X VALUE IS 38163539. 03 ISC_1_139 PIC XXXX USAGE COMP-X VALUE IS 1191191808. 03 ISC_1_140 PIC XXXX USAGE COMP-X VALUE IS 1310722. 03 ISC_1_141 PIC XXXX USAGE COMP-X VALUE IS 584. 03 ISC_1_142 PIC XXXX USAGE COMP-X VALUE IS 175104. 03 ISC_1_143 PIC XXXX USAGE COMP-X VALUE IS 39583764. 03 ISC_1_144 PIC XXXX USAGE COMP-X VALUE IS 50335232. 03 ISC_1_145 PIC XXXX USAGE COMP-X VALUE IS 1124075274. 03 ISC_1_146 PIC XXXX USAGE COMP-X VALUE IS 1096044111. 03 ISC_1_147 PIC XXXX USAGE COMP-X VALUE IS 38162260. 03 ISC_1_148 PIC XXXX USAGE COMP-X VALUE IS 1191191808. 03 ISC_1_149 PIC XXXX USAGE COMP-X VALUE IS 2621442. 03 ISC_1_150 PIC XXXX USAGE COMP-X VALUE IS 584. 03 ISC_1_151 PIC XXXX USAGE COMP-X VALUE IS 175104. 03 ISC_1_152 PIC XXXX USAGE COMP-X VALUE IS 39583784. 03 ISC_1_153 PIC XXXX USAGE COMP-X VALUE IS 50335488. 03 ISC_1_154 PIC XXXX USAGE COMP-X VALUE IS 16712451. * * FORMATTED REQUEST BLR FOR ISC_1 = * gds__dyn_version_1, * gds__dyn_begin, * gds__dyn_def_rel, 6,0, 'F','I','L','I','A','L', * gds__dyn_rel_sql_protection, 2,0, 1,0, * gds__dyn_def_sql_fld, 6,0, 'C','O','D','I','G','O', * gds__dyn_fld_type, 2,0, 8,0, * gds__dyn_fld_length, 2,0, 4,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_precision, 2,0, 0,0, * gds__dyn_fld_sub_type, 2,0, 0,0, * gds__dyn_fld_not_null, * gds__dyn_fld_position, 2,0, 0,0, * gds__dyn_end, * gds__dyn_rel_constraint, 0,0, * gds__dyn_fld_not_null, * gds__dyn_end, * gds__dyn_rel_constraint, 0,0, * gds__dyn_def_primary_key, 0,0, * gds__dyn_idx_unique, 2,0, 1,0, * gds__dyn_fld_name, 6,0, 'C','O','D','I','G','O', * gds__dyn_end, * gds__dyn_def_sql_fld, 4,0, 'N','O','M','E', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, '2',0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, '2',0, * gds__dyn_fld_position, 2,0, 1,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 13,0, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 40,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 40,0, * gds__dyn_fld_position, 2,0, 2,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 8,0, 'E','N','D','E','R','E','C','O', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 40,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 40,0, * gds__dyn_fld_position, 2,0, 3,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 6,0, 'N','U','M','E','R','O', * gds__dyn_fld_type, 2,0, 8,0, * gds__dyn_fld_length, 2,0, 4,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_precision, 2,0, 0,0, * gds__dyn_fld_sub_type, 2,0, 0,0, * gds__dyn_fld_position, 2,0, 4,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 5,0, 'S','E','T','O','R', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 25,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 25,0, * gds__dyn_fld_position, 2,0, 5,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 6,0, 'C','I','D','A','D','E', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 25,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 25,0, * gds__dyn_fld_position, 2,0, 6,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 2,0, 'U','F', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 2,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 2,0, * gds__dyn_fld_position, 2,0, 7,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 3,0, 'C','E','P', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 8,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 8,0, * gds__dyn_fld_position, 2,0, 8,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 7,0, 'F','O','N','E','D','D','D', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 4,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 4,0, * gds__dyn_fld_position, 2,0, 9,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 7,0, 'F','O','N','E','N','U','M', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 8,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 8,0, * gds__dyn_fld_position, 2,0, 10,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 6,0, 'F','A','X','D','D','D', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 4,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 4,0, * gds__dyn_fld_position, 2,0, 11,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 6,0, 'F','A','X','N','U','M', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 8,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 8,0, * gds__dyn_fld_position, 2,0, 12,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 3,0, 'C','G','C', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 18,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 18,0, * gds__dyn_fld_position, 2,0, 13,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 6,0, 'I','N','S','E','S','T', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 20,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 20,0, * gds__dyn_fld_position, 2,0, 14,0, * gds__dyn_end, * gds__dyn_def_sql_fld, 7,0, 'C','O','N','T','A','T','O', * gds__dyn_fld_type, 2,0, 37,0, * gds__dyn_fld_length, 2,0, 40,0, * gds__dyn_fld_scale, 2,0, 0,0, * gds__dyn_fld_char_length, 2,0, 40,0, * gds__dyn_fld_position, 2,0, 15,0, * gds__dyn_end, * gds__dyn_end, * gds__dyn_end, * gds__dyn_eoc * * END OF DYN STRING FOR REQUEST ISC_1 01 ISC_3. 03 ISC_3_1 PIC XXXX USAGE COMP-X VALUE IS 79361. 03 ISC_3_2 PIC XXXX USAGE COMP-X VALUE IS 197695. 03 ISC_3_3 PIC XXXX USAGE COMP-X VALUE IS 0. * * FORMATTED REQUEST BLR FOR ISC_3 = * gds__dpb_version1, * isc_dpb_overwrite,1, 0, * isc_dpb_sql_dialect,4, 3,0,0,0, * * END OF DPB STRING FOR REQUEST ISC_3 01 ISC_5. 03 ISC_5_1 PIC XXXX USAGE COMP-X VALUE IS 52888065. 03 ISC_5_2 PIC XXXX USAGE COMP-X VALUE IS 65283. * * FORMATTED REQUEST BLR FOR ISC_5 = * gds__dyn_version_1, * gds__dyn_begin, * gds__dyn_mod_database, * gds__dyn_end, * gds__dyn_end, * gds__dyn_eoc * * END OF DYN STRING FOR REQUEST ISC_5 01 gds__6 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_7. 03 ISC_7_1 PIC XXXX USAGE COMP-X VALUE IS 17039877. 03 ISC_7_2 PIC XXXX USAGE COMP-X VALUE IS 672006161. 03 ISC_7_3 PIC XXXX USAGE COMP-X VALUE IS 527872. 03 ISC_7_4 PIC XXXX USAGE COMP-X VALUE IS 234883086. 03 ISC_7_5 PIC XXXX USAGE COMP-X VALUE IS 672006152. 03 ISC_7_6 PIC XXXX USAGE COMP-X VALUE IS 2625024. 03 ISC_7_7 PIC XXXX USAGE COMP-X VALUE IS 234886158. 03 ISC_7_8 PIC XXXX USAGE COMP-X VALUE IS 68026372. 03 ISC_7_9 PIC XXXX USAGE COMP-X VALUE IS 134219776. 03 ISC_7_10 PIC XXXX USAGE COMP-X VALUE IS 234882816. 03 ISC_7_11 PIC XXXX USAGE COMP-X VALUE IS 34471954. 03 ISC_7_12 PIC XXXX USAGE COMP-X VALUE IS 3280384. 03 ISC_7_13 PIC XXXX USAGE COMP-X VALUE IS 234887438. 03 ISC_7_14 PIC XXXX USAGE COMP-X VALUE IS 262169. 03 ISC_7_15 PIC XXXX USAGE COMP-X VALUE IS 524289. 03 ISC_7_16 PIC XXXX USAGE COMP-X VALUE IS 117571596. 03 ISC_7_17 PIC XXXX USAGE COMP-X VALUE IS 1241596799. 03 ISC_7_18 PIC XXXX USAGE COMP-X VALUE IS 1279870470. 03 ISC_7_19 PIC XXXX USAGE COMP-X VALUE IS 4997449. 03 ISC_7_20 PIC XXXX USAGE COMP-X VALUE IS 1519431. 03 ISC_7_21 PIC XXXX USAGE COMP-X VALUE IS 1146045190. 03 ISC_7_22 PIC XXXX USAGE COMP-X VALUE IS 424625993. 03 ISC_7_23 PIC XXXX USAGE COMP-X VALUE IS 4278190080. 03 ISC_7_24 PIC XXXX USAGE COMP-X VALUE IS 16908558. 03 ISC_7_25 PIC XXXX USAGE COMP-X VALUE IS 1124532247. 03 ISC_7_26 PIC XXXX USAGE COMP-X VALUE IS 1096044111. 03 ISC_7_27 PIC XXXX USAGE COMP-X VALUE IS 18435924. 03 ISC_7_28 PIC XXXX USAGE COMP-X VALUE IS 385941504. 03 ISC_7_29 PIC XXXX USAGE COMP-X VALUE IS 1095108096. 03 ISC_7_30 PIC XXXX USAGE COMP-X VALUE IS 1297436248. 03 ISC_7_31 PIC XXXX USAGE COMP-X VALUE IS 65817. 03 ISC_7_32 PIC XXXX USAGE COMP-X VALUE IS 117446401. 03 ISC_7_33 PIC XXXX USAGE COMP-X VALUE IS 1162760006. 03 ISC_7_34 PIC XXXX USAGE COMP-X VALUE IS 424498510. 03 ISC_7_35 PIC XXXX USAGE COMP-X VALUE IS 16777729. 03 ISC_7_36 PIC XXXX USAGE COMP-X VALUE IS 1124270103. 03 ISC_7_37 PIC XXXX USAGE COMP-X VALUE IS 18436165. 03 ISC_7_38 PIC XXXX USAGE COMP-X VALUE IS 385941507. 03 ISC_7_39 PIC XXXX USAGE COMP-X VALUE IS 1313146880. 03 ISC_7_40 PIC XXXX USAGE COMP-X VALUE IS 1163019588. 03 ISC_7_41 PIC XXXX USAGE COMP-X VALUE IS 18435907. 03 ISC_7_42 PIC XXXX USAGE COMP-X VALUE IS 385941508. 03 ISC_7_43 PIC XXXX USAGE COMP-X VALUE IS 1330515200. 03 ISC_7_44 PIC XXXX USAGE COMP-X VALUE IS 1180648781. 03 ISC_7_45 PIC XXXX USAGE COMP-X VALUE IS 1096044097. 03 ISC_7_46 PIC XXXX USAGE COMP-X VALUE IS 423709011. 03 ISC_7_47 PIC XXXX USAGE COMP-X VALUE IS 16778497. 03 ISC_7_48 PIC XXXX USAGE COMP-X VALUE IS 1225130007. 03 ISC_7_49 PIC XXXX USAGE COMP-X VALUE IS 1397052238. 03 ISC_7_50 PIC XXXX USAGE COMP-X VALUE IS 100735316. 03 ISC_7_51 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_7_52 PIC XXXX USAGE COMP-X VALUE IS 1480672774. 03 ISC_7_53 PIC XXXX USAGE COMP-X VALUE IS 423904324. 03 ISC_7_54 PIC XXXX USAGE COMP-X VALUE IS 16779009. 03 ISC_7_55 PIC XXXX USAGE COMP-X VALUE IS 1174863895. 03 ISC_7_56 PIC XXXX USAGE COMP-X VALUE IS 1145392719. 03 ISC_7_57 PIC XXXX USAGE COMP-X VALUE IS 18433092. 03 ISC_7_58 PIC XXXX USAGE COMP-X VALUE IS 385941512. 03 ISC_7_59 PIC XXXX USAGE COMP-X VALUE IS 1431176704. 03 ISC_7_60 PIC XXXX USAGE COMP-X VALUE IS 1330791757. 03 ISC_7_61 PIC XXXX USAGE COMP-X VALUE IS 590105. 03 ISC_7_62 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_7_63 PIC XXXX USAGE COMP-X VALUE IS 1229213507. 03 ISC_7_64 PIC XXXX USAGE COMP-X VALUE IS 18435911. 03 ISC_7_65 PIC XXXX USAGE COMP-X VALUE IS 352387082. 03 ISC_7_66 PIC XXXX USAGE COMP-X VALUE IS 65544. 03 ISC_7_67 PIC XXXX USAGE COMP-X VALUE IS 18415616. 03 ISC_7_68 PIC XXXX USAGE COMP-X VALUE IS 385941515. 03 ISC_7_69 PIC XXXX USAGE COMP-X VALUE IS 1195574016. 03 ISC_7_70 PIC XXXX USAGE COMP-X VALUE IS 201398595. 03 ISC_7_71 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_7_72 PIC XXXX USAGE COMP-X VALUE IS 424039682. 03 ISC_7_73 PIC XXXX USAGE COMP-X VALUE IS 16780545. 03 ISC_7_74 PIC XXXX USAGE COMP-X VALUE IS 1308885015. 03 ISC_7_75 PIC XXXX USAGE COMP-X VALUE IS 423972175. 03 ISC_7_76 PIC XXXX USAGE COMP-X VALUE IS 16780801. 03 ISC_7_77 PIC XXXX USAGE COMP-X VALUE IS 1392836631. 03 ISC_7_78 PIC XXXX USAGE COMP-X VALUE IS 1380930629. 03 ISC_7_79 PIC XXXX USAGE COMP-X VALUE IS 983321. 03 ISC_7_80 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_7_81 PIC XXXX USAGE COMP-X VALUE IS 1094994243. 03 ISC_7_82 PIC XXXX USAGE COMP-X VALUE IS 18433348. 03 ISC_7_83 PIC XXXX USAGE COMP-X VALUE IS 251592720. 03 ISC_7_84 PIC XXXX USAGE COMP-X VALUE IS 135594241. 03 ISC_7_85 PIC XXXX USAGE COMP-X VALUE IS 0. 03 ISC_7_86 PIC XXXX USAGE COMP-X VALUE IS 184621312. 03 ISC_7_87 PIC XXXX USAGE COMP-X VALUE IS 1291845376. * * FORMATTED REQUEST BLR FOR ISC_7 = * blr_version5, * blr_begin, * blr_message, 1, 17,0, * blr_text, 40,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 40,0, * blr_text, 40,0, * blr_text, 20,0, * blr_text, 4,0, * blr_text, 4,0, * blr_long, 0, * blr_long, 0, * blr_short, 0, * blr_text, 18,0, * blr_text, 2,0, * blr_text, 50,0, * blr_text, 25,0, * blr_text, 25,0, * blr_message, 0, 1,0, * blr_long, 0, * blr_receive, 0, * blr_begin, * blr_for, * blr_singular, * blr_rse, 1, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_boolean, * blr_eql, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 0, 0,0, * blr_end, * blr_send, 1, * blr_begin, * blr_assignment, * blr_field, 0, 7, 'C','O','N','T','A','T','O', * blr_parameter, 1, 0,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','N','U','M', * blr_parameter, 1, 1,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','N','U','M', * blr_parameter, 1, 2,0, * blr_assignment, * blr_field, 0, 3, 'C','E','P', * blr_parameter, 1, 3,0, * blr_assignment, * blr_field, 0, 8, 'E','N','D','E','R','E','C','O', * blr_parameter, 1, 4,0, * blr_assignment, * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * blr_parameter, 1, 5,0, * blr_assignment, * blr_field, 0, 6, 'I','N','S','E','S','T', * blr_parameter, 1, 6,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','D','D','D', * blr_parameter, 1, 7,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','D','D','D', * blr_parameter, 1, 8,0, * blr_assignment, * blr_field, 0, 6, 'N','U','M','E','R','O', * blr_parameter, 1, 9,0, * blr_assignment, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 1, 10,0, * blr_assignment, * blr_literal, blr_long, 0, 1,0,0,0, * blr_parameter, 1, 11,0, * blr_assignment, * blr_field, 0, 3, 'C','G','C', * blr_parameter, 1, 12,0, * blr_assignment, * blr_field, 0, 2, 'U','F', * blr_parameter, 1, 13,0, * blr_assignment, * blr_field, 0, 4, 'N','O','M','E', * blr_parameter, 1, 14,0, * blr_assignment, * blr_field, 0, 5, 'S','E','T','O','R', * blr_parameter, 1, 15,0, * blr_assignment, * blr_field, 0, 6, 'C','I','D','A','D','E', * blr_parameter, 1, 16,0, * blr_end, * blr_send, 1, * blr_assignment, * blr_literal, blr_long, 0, 0,0,0,0, * blr_parameter, 1, 11,0, * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_7 01 ISC_10. 03 ISC_11 PIC X(40). 03 ISC_12 PIC X(8). 03 ISC_13 PIC X(8). 03 ISC_14 PIC X(8). 03 ISC_15 PIC X(40). 03 ISC_16 PIC X(40). 03 ISC_17 PIC X(20). 03 ISC_18 PIC X(4). 03 ISC_19 PIC X(4). 03 ISC_20 PIC S9(9) USAGE IS COMP. 03 ISC_21 PIC S9(9) USAGE IS COMP. 03 ISC_22 PIC S9(4) USAGE IS COMP. 03 ISC_23 PIC X(18). 03 ISC_24 PIC X(2). 03 ISC_25 PIC X(50). 03 ISC_26 PIC X(25). 03 ISC_27 PIC X(25). 01 ISC_8. 03 ISC_9 PIC S9(9) USAGE IS COMP. 01 gds__28 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_29S PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_29. 03 ISC_29_1 PIC XXXX USAGE COMP-X VALUE IS 262661. 03 ISC_29_2 PIC XXXX USAGE COMP-X VALUE IS 672006161. 03 ISC_29_3 PIC XXXX USAGE COMP-X VALUE IS 527872. 03 ISC_29_4 PIC XXXX USAGE COMP-X VALUE IS 234883086. 03 ISC_29_5 PIC XXXX USAGE COMP-X VALUE IS 672006152. 03 ISC_29_6 PIC XXXX USAGE COMP-X VALUE IS 2625024. 03 ISC_29_7 PIC XXXX USAGE COMP-X VALUE IS 234886158. 03 ISC_29_8 PIC XXXX USAGE COMP-X VALUE IS 68026372. 03 ISC_29_9 PIC XXXX USAGE COMP-X VALUE IS 134219776. 03 ISC_29_10 PIC XXXX USAGE COMP-X VALUE IS 234882816. 03 ISC_29_11 PIC XXXX USAGE COMP-X VALUE IS 34471954. 03 ISC_29_12 PIC XXXX USAGE COMP-X VALUE IS 3280384. 03 ISC_29_13 PIC XXXX USAGE COMP-X VALUE IS 234887438. 03 ISC_29_14 PIC XXXX USAGE COMP-X VALUE IS 117571609. 03 ISC_29_15 PIC XXXX USAGE COMP-X VALUE IS 105513283. 03 ISC_29_16 PIC XXXX USAGE COMP-X VALUE IS 1229736262. 03 ISC_29_17 PIC XXXX USAGE COMP-X VALUE IS 1174424641. 03 ISC_29_18 PIC XXXX USAGE COMP-X VALUE IS 1525761. 03 ISC_29_19 PIC XXXX USAGE COMP-X VALUE IS 1297042948. 03 ISC_29_20 PIC XXXX USAGE COMP-X VALUE IS 982853. 03 ISC_29_21 PIC XXXX USAGE COMP-X VALUE IS 1507586. 03 ISC_29_22 PIC XXXX USAGE COMP-X VALUE IS 1313817351. 03 ISC_29_23 PIC XXXX USAGE COMP-X VALUE IS 1330921812. 03 ISC_29_24 PIC XXXX USAGE COMP-X VALUE IS 25. 03 ISC_29_25 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_29_26 PIC XXXX USAGE COMP-X VALUE IS 1314406726. 03 ISC_29_27 PIC XXXX USAGE COMP-X VALUE IS 1658197. 03 ISC_29_28 PIC XXXX USAGE COMP-X VALUE IS 385941505. 03 ISC_29_29 PIC XXXX USAGE COMP-X VALUE IS 1329989376. 03 ISC_29_30 PIC XXXX USAGE COMP-X VALUE IS 1431192910. 03 ISC_29_31 PIC XXXX USAGE COMP-X VALUE IS 33560909. 03 ISC_29_32 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_29_33 PIC XXXX USAGE COMP-X VALUE IS 1346716419. 03 ISC_29_34 PIC XXXX USAGE COMP-X VALUE IS 196633. 03 ISC_29_35 PIC XXXX USAGE COMP-X VALUE IS 134223617. 03 ISC_29_36 PIC XXXX USAGE COMP-X VALUE IS 1162104389. 03 ISC_29_37 PIC XXXX USAGE COMP-X VALUE IS 1329808722. 03 ISC_29_38 PIC XXXX USAGE COMP-X VALUE IS 262169. 03 ISC_29_39 PIC XXXX USAGE COMP-X VALUE IS 218109697. 03 ISC_29_40 PIC XXXX USAGE COMP-X VALUE IS 1162694478. 03 ISC_29_41 PIC XXXX USAGE COMP-X VALUE IS 1312900703. 03 ISC_29_42 PIC XXXX USAGE COMP-X VALUE IS 1230192980. 03 ISC_29_43 PIC XXXX USAGE COMP-X VALUE IS 83892545. 03 ISC_29_44 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_29_45 PIC XXXX USAGE COMP-X VALUE IS 1397639430. 03 ISC_29_46 PIC XXXX USAGE COMP-X VALUE IS 424956741. 03 ISC_29_47 PIC XXXX USAGE COMP-X VALUE IS 16778752. 03 ISC_29_48 PIC XXXX USAGE COMP-X VALUE IS 1174798359. 03 ISC_29_49 PIC XXXX USAGE COMP-X VALUE IS 1145329729. 03 ISC_29_50 PIC XXXX USAGE COMP-X VALUE IS 117446980. 03 ISC_29_51 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_29_52 PIC XXXX USAGE COMP-X VALUE IS 1313818119. 03 ISC_29_53 PIC XXXX USAGE COMP-X VALUE IS 1145324613. 03 ISC_29_54 PIC XXXX USAGE COMP-X VALUE IS 524313. 03 ISC_29_55 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_29_56 PIC XXXX USAGE COMP-X VALUE IS 1162696014. 03 ISC_29_57 PIC XXXX USAGE COMP-X VALUE IS 1658706. 03 ISC_29_58 PIC XXXX USAGE COMP-X VALUE IS 385941513. 03 ISC_29_59 PIC XXXX USAGE COMP-X VALUE IS 1329792512. 03 ISC_29_60 PIC XXXX USAGE COMP-X VALUE IS 1330071876. 03 ISC_29_61 PIC XXXX USAGE COMP-X VALUE IS 655385. 03 ISC_29_62 PIC XXXX USAGE COMP-X VALUE IS 529665. 03 ISC_29_63 PIC XXXX USAGE COMP-X VALUE IS 1. 03 ISC_29_64 PIC XXXX USAGE COMP-X VALUE IS 720921. 03 ISC_29_65 PIC XXXX USAGE COMP-X VALUE IS 50337537. 03 ISC_29_66 PIC XXXX USAGE COMP-X VALUE IS 423839555. 03 ISC_29_67 PIC XXXX USAGE COMP-X VALUE IS 16780288. 03 ISC_29_68 PIC XXXX USAGE COMP-X VALUE IS 1426194455. 03 ISC_29_69 PIC XXXX USAGE COMP-X VALUE IS 218110278. 03 ISC_29_70 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_29_71 PIC XXXX USAGE COMP-X VALUE IS 1297042948. 03 ISC_29_72 PIC XXXX USAGE COMP-X VALUE IS 234887493. 03 ISC_29_73 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_29_74 PIC XXXX USAGE COMP-X VALUE IS 1413829381. 03 ISC_29_75 PIC XXXX USAGE COMP-X VALUE IS 1659471. 03 ISC_29_76 PIC XXXX USAGE COMP-X VALUE IS 385941519. 03 ISC_29_77 PIC XXXX USAGE COMP-X VALUE IS 1229129216. 03 ISC_29_78 PIC XXXX USAGE COMP-X VALUE IS 1162101060. 03 ISC_29_79 PIC XXXX USAGE COMP-X VALUE IS 1048601. 03 ISC_29_80 PIC XXXX USAGE COMP-X VALUE IS 16781055. 03 ISC_29_81 PIC XXXX USAGE COMP-X VALUE IS 2069. 03 ISC_29_82 PIC XXXX USAGE COMP-X VALUE IS 419430400. 03 ISC_29_83 PIC XXXX USAGE COMP-X VALUE IS 4278192896. 03 ISC_29_84 PIC XXXX USAGE COMP-X VALUE IS 19711. * * FORMATTED REQUEST BLR FOR ISC_29 = * blr_version5, * blr_begin, * blr_message, 0, 17,0, * blr_text, 40,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 40,0, * blr_text, 40,0, * blr_text, 20,0, * blr_text, 4,0, * blr_text, 4,0, * blr_long, 0, * blr_long, 0, * blr_short, 0, * blr_text, 18,0, * blr_text, 2,0, * blr_text, 50,0, * blr_text, 25,0, * blr_text, 25,0, * blr_begin, * blr_for, * blr_rse, 1, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_sort, 1, * blr_ascending, * blr_field, 0, 4, 'N','O','M','E', * blr_end, * blr_send, 0, * blr_begin, * blr_assignment, * blr_field, 0, 7, 'C','O','N','T','A','T','O', * blr_parameter, 0, 0,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','N','U','M', * blr_parameter, 0, 1,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','N','U','M', * blr_parameter, 0, 2,0, * blr_assignment, * blr_field, 0, 3, 'C','E','P', * blr_parameter, 0, 3,0, * blr_assignment, * blr_field, 0, 8, 'E','N','D','E','R','E','C','O', * blr_parameter, 0, 4,0, * blr_assignment, * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * blr_parameter, 0, 5,0, * blr_assignment, * blr_field, 0, 6, 'I','N','S','E','S','T', * blr_parameter, 0, 6,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','D','D','D', * blr_parameter, 0, 7,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','D','D','D', * blr_parameter, 0, 8,0, * blr_assignment, * blr_field, 0, 6, 'N','U','M','E','R','O', * blr_parameter, 0, 9,0, * blr_assignment, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 0, 10,0, * blr_assignment, * blr_literal, blr_long, 0, 1,0,0,0, * blr_parameter, 0, 11,0, * blr_assignment, * blr_field, 0, 3, 'C','G','C', * blr_parameter, 0, 12,0, * blr_assignment, * blr_field, 0, 2, 'U','F', * blr_parameter, 0, 13,0, * blr_assignment, * blr_field, 0, 4, 'N','O','M','E', * blr_parameter, 0, 14,0, * blr_assignment, * blr_field, 0, 5, 'S','E','T','O','R', * blr_parameter, 0, 15,0, * blr_assignment, * blr_field, 0, 6, 'C','I','D','A','D','E', * blr_parameter, 0, 16,0, * blr_end, * blr_send, 0, * blr_assignment, * blr_literal, blr_long, 0, 0,0,0,0, * blr_parameter, 0, 11,0, * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_29 01 ISC_30. 03 ISC_31 PIC X(40). 03 ISC_32 PIC X(8). 03 ISC_33 PIC X(8). 03 ISC_34 PIC X(8). 03 ISC_35 PIC X(40). 03 ISC_36 PIC X(40). 03 ISC_37 PIC X(20). 03 ISC_38 PIC X(4). 03 ISC_39 PIC X(4). 03 ISC_40 PIC S9(9) USAGE IS COMP. 03 ISC_41 PIC S9(9) USAGE IS COMP. 03 ISC_42 PIC S9(4) USAGE IS COMP. 03 ISC_43 PIC X(18). 03 ISC_44 PIC X(2). 03 ISC_45 PIC X(50). 03 ISC_46 PIC X(25). 03 ISC_47 PIC X(25). 01 gds__48 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_49S PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_49. 03 ISC_49_1 PIC XXXX USAGE COMP-X VALUE IS 262661. 03 ISC_49_2 PIC XXXX USAGE COMP-X VALUE IS 672006161. 03 ISC_49_3 PIC XXXX USAGE COMP-X VALUE IS 527872. 03 ISC_49_4 PIC XXXX USAGE COMP-X VALUE IS 234883086. 03 ISC_49_5 PIC XXXX USAGE COMP-X VALUE IS 672006152. 03 ISC_49_6 PIC XXXX USAGE COMP-X VALUE IS 2625024. 03 ISC_49_7 PIC XXXX USAGE COMP-X VALUE IS 234886158. 03 ISC_49_8 PIC XXXX USAGE COMP-X VALUE IS 68026372. 03 ISC_49_9 PIC XXXX USAGE COMP-X VALUE IS 134219776. 03 ISC_49_10 PIC XXXX USAGE COMP-X VALUE IS 234882816. 03 ISC_49_11 PIC XXXX USAGE COMP-X VALUE IS 34471954. 03 ISC_49_12 PIC XXXX USAGE COMP-X VALUE IS 3280384. 03 ISC_49_13 PIC XXXX USAGE COMP-X VALUE IS 234887438. 03 ISC_49_14 PIC XXXX USAGE COMP-X VALUE IS 117571609. 03 ISC_49_15 PIC XXXX USAGE COMP-X VALUE IS 105513283. 03 ISC_49_16 PIC XXXX USAGE COMP-X VALUE IS 1229736262. 03 ISC_49_17 PIC XXXX USAGE COMP-X VALUE IS 1174424641. 03 ISC_49_18 PIC XXXX USAGE COMP-X VALUE IS 1525761. 03 ISC_49_19 PIC XXXX USAGE COMP-X VALUE IS 1146045190. 03 ISC_49_20 PIC XXXX USAGE COMP-X VALUE IS 4283385673. 03 ISC_49_21 PIC XXXX USAGE COMP-X VALUE IS 16908302. 03 ISC_49_22 PIC XXXX USAGE COMP-X VALUE IS 1124532247. 03 ISC_49_23 PIC XXXX USAGE COMP-X VALUE IS 1096044111. 03 ISC_49_24 PIC XXXX USAGE COMP-X VALUE IS 1658708. 03 ISC_49_25 PIC XXXX USAGE COMP-X VALUE IS 385941504. 03 ISC_49_26 PIC XXXX USAGE COMP-X VALUE IS 1095108096. 03 ISC_49_27 PIC XXXX USAGE COMP-X VALUE IS 1297436248. 03 ISC_49_28 PIC XXXX USAGE COMP-X VALUE IS 65561. 03 ISC_49_29 PIC XXXX USAGE COMP-X VALUE IS 117446401. 03 ISC_49_30 PIC XXXX USAGE COMP-X VALUE IS 1162760006. 03 ISC_49_31 PIC XXXX USAGE COMP-X VALUE IS 424498510. 03 ISC_49_32 PIC XXXX USAGE COMP-X VALUE IS 16777728. 03 ISC_49_33 PIC XXXX USAGE COMP-X VALUE IS 1124270103. 03 ISC_49_34 PIC XXXX USAGE COMP-X VALUE IS 1658949. 03 ISC_49_35 PIC XXXX USAGE COMP-X VALUE IS 385941507. 03 ISC_49_36 PIC XXXX USAGE COMP-X VALUE IS 1313146880. 03 ISC_49_37 PIC XXXX USAGE COMP-X VALUE IS 1163019588. 03 ISC_49_38 PIC XXXX USAGE COMP-X VALUE IS 1658691. 03 ISC_49_39 PIC XXXX USAGE COMP-X VALUE IS 385941508. 03 ISC_49_40 PIC XXXX USAGE COMP-X VALUE IS 1330515200. 03 ISC_49_41 PIC XXXX USAGE COMP-X VALUE IS 1180648781. 03 ISC_49_42 PIC XXXX USAGE COMP-X VALUE IS 1096044097. 03 ISC_49_43 PIC XXXX USAGE COMP-X VALUE IS 423709011. 03 ISC_49_44 PIC XXXX USAGE COMP-X VALUE IS 16778496. 03 ISC_49_45 PIC XXXX USAGE COMP-X VALUE IS 1225130007. 03 ISC_49_46 PIC XXXX USAGE COMP-X VALUE IS 1397052238. 03 ISC_49_47 PIC XXXX USAGE COMP-X VALUE IS 100669780. 03 ISC_49_48 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_49_49 PIC XXXX USAGE COMP-X VALUE IS 1480672774. 03 ISC_49_50 PIC XXXX USAGE COMP-X VALUE IS 423904324. 03 ISC_49_51 PIC XXXX USAGE COMP-X VALUE IS 16779008. 03 ISC_49_52 PIC XXXX USAGE COMP-X VALUE IS 1174863895. 03 ISC_49_53 PIC XXXX USAGE COMP-X VALUE IS 1145392719. 03 ISC_49_54 PIC XXXX USAGE COMP-X VALUE IS 1655876. 03 ISC_49_55 PIC XXXX USAGE COMP-X VALUE IS 385941512. 03 ISC_49_56 PIC XXXX USAGE COMP-X VALUE IS 1431176704. 03 ISC_49_57 PIC XXXX USAGE COMP-X VALUE IS 1330791757. 03 ISC_49_58 PIC XXXX USAGE COMP-X VALUE IS 589849. 03 ISC_49_59 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_49_60 PIC XXXX USAGE COMP-X VALUE IS 1229213507. 03 ISC_49_61 PIC XXXX USAGE COMP-X VALUE IS 1658695. 03 ISC_49_62 PIC XXXX USAGE COMP-X VALUE IS 352387082. 03 ISC_49_63 PIC XXXX USAGE COMP-X VALUE IS 65544. 03 ISC_49_64 PIC XXXX USAGE COMP-X VALUE IS 1638400. 03 ISC_49_65 PIC XXXX USAGE COMP-X VALUE IS 385941515. 03 ISC_49_66 PIC XXXX USAGE COMP-X VALUE IS 1195574016. 03 ISC_49_67 PIC XXXX USAGE COMP-X VALUE IS 201333059. 03 ISC_49_68 PIC XXXX USAGE COMP-X VALUE IS 1507584. 03 ISC_49_69 PIC XXXX USAGE COMP-X VALUE IS 424039682. 03 ISC_49_70 PIC XXXX USAGE COMP-X VALUE IS 16780544. 03 ISC_49_71 PIC XXXX USAGE COMP-X VALUE IS 1308885015. 03 ISC_49_72 PIC XXXX USAGE COMP-X VALUE IS 423972175. 03 ISC_49_73 PIC XXXX USAGE COMP-X VALUE IS 16780800. 03 ISC_49_74 PIC XXXX USAGE COMP-X VALUE IS 1392836631. 03 ISC_49_75 PIC XXXX USAGE COMP-X VALUE IS 1380930629. 03 ISC_49_76 PIC XXXX USAGE COMP-X VALUE IS 983065. 03 ISC_49_77 PIC XXXX USAGE COMP-X VALUE IS 100669185. 03 ISC_49_78 PIC XXXX USAGE COMP-X VALUE IS 1094994243. 03 ISC_49_79 PIC XXXX USAGE COMP-X VALUE IS 1656132. 03 ISC_49_80 PIC XXXX USAGE COMP-X VALUE IS 251592720. 03 ISC_49_81 PIC XXXX USAGE COMP-X VALUE IS 135594240. 03 ISC_49_82 PIC XXXX USAGE COMP-X VALUE IS 0. 03 ISC_49_83 PIC XXXX USAGE COMP-X VALUE IS 184555776. 03 ISC_49_84 PIC XXXX USAGE COMP-X VALUE IS 1291845376. * * FORMATTED REQUEST BLR FOR ISC_49 = * blr_version5, * blr_begin, * blr_message, 0, 17,0, * blr_text, 40,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 40,0, * blr_text, 40,0, * blr_text, 20,0, * blr_text, 4,0, * blr_text, 4,0, * blr_long, 0, * blr_long, 0, * blr_short, 0, * blr_text, 18,0, * blr_text, 2,0, * blr_text, 50,0, * blr_text, 25,0, * blr_text, 25,0, * blr_begin, * blr_for, * blr_rse, 1, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_sort, 1, * blr_ascending, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_end, * blr_send, 0, * blr_begin, * blr_assignment, * blr_field, 0, 7, 'C','O','N','T','A','T','O', * blr_parameter, 0, 0,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','N','U','M', * blr_parameter, 0, 1,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','N','U','M', * blr_parameter, 0, 2,0, * blr_assignment, * blr_field, 0, 3, 'C','E','P', * blr_parameter, 0, 3,0, * blr_assignment, * blr_field, 0, 8, 'E','N','D','E','R','E','C','O', * blr_parameter, 0, 4,0, * blr_assignment, * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * blr_parameter, 0, 5,0, * blr_assignment, * blr_field, 0, 6, 'I','N','S','E','S','T', * blr_parameter, 0, 6,0, * blr_assignment, * blr_field, 0, 6, 'F','A','X','D','D','D', * blr_parameter, 0, 7,0, * blr_assignment, * blr_field, 0, 7, 'F','O','N','E','D','D','D', * blr_parameter, 0, 8,0, * blr_assignment, * blr_field, 0, 6, 'N','U','M','E','R','O', * blr_parameter, 0, 9,0, * blr_assignment, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 0, 10,0, * blr_assignment, * blr_literal, blr_long, 0, 1,0,0,0, * blr_parameter, 0, 11,0, * blr_assignment, * blr_field, 0, 3, 'C','G','C', * blr_parameter, 0, 12,0, * blr_assignment, * blr_field, 0, 2, 'U','F', * blr_parameter, 0, 13,0, * blr_assignment, * blr_field, 0, 4, 'N','O','M','E', * blr_parameter, 0, 14,0, * blr_assignment, * blr_field, 0, 5, 'S','E','T','O','R', * blr_parameter, 0, 15,0, * blr_assignment, * blr_field, 0, 6, 'C','I','D','A','D','E', * blr_parameter, 0, 16,0, * blr_end, * blr_send, 0, * blr_assignment, * blr_literal, blr_long, 0, 0,0,0,0, * blr_parameter, 0, 11,0, * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_49 01 ISC_50. 03 ISC_51 PIC X(40). 03 ISC_52 PIC X(8). 03 ISC_53 PIC X(8). 03 ISC_54 PIC X(8). 03 ISC_55 PIC X(40). 03 ISC_56 PIC X(40). 03 ISC_57 PIC X(20). 03 ISC_58 PIC X(4). 03 ISC_59 PIC X(4). 03 ISC_60 PIC S9(9) USAGE IS COMP. 03 ISC_61 PIC S9(9) USAGE IS COMP. 03 ISC_62 PIC S9(4) USAGE IS COMP. 03 ISC_63 PIC X(18). 03 ISC_64 PIC X(2). 03 ISC_65 PIC X(50). 03 ISC_66 PIC X(25). 03 ISC_67 PIC X(25). 01 gds__68 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_69. 03 ISC_69_1 PIC XXXX USAGE COMP-X VALUE IS 17039877. 03 ISC_69_2 PIC XXXX USAGE COMP-X VALUE IS 524289. 03 ISC_69_3 PIC XXXX USAGE COMP-X VALUE IS 65540. 03 ISC_69_4 PIC XXXX USAGE COMP-X VALUE IS 786440. 03 ISC_69_5 PIC XXXX USAGE COMP-X VALUE IS 16908558. 03 ISC_69_6 PIC XXXX USAGE COMP-X VALUE IS 2069. 03 ISC_69_7 PIC XXXX USAGE COMP-X VALUE IS 419430400. 03 ISC_69_8 PIC XXXX USAGE COMP-X VALUE IS 117440513. 03 ISC_69_9 PIC XXXX USAGE COMP-X VALUE IS 105513283. 03 ISC_69_10 PIC XXXX USAGE COMP-X VALUE IS 1229736262. 03 ISC_69_11 PIC XXXX USAGE COMP-X VALUE IS 1191201857. 03 ISC_69_12 PIC XXXX USAGE COMP-X VALUE IS 100669231. 03 ISC_69_13 PIC XXXX USAGE COMP-X VALUE IS 1229213507. 03 ISC_69_14 PIC XXXX USAGE COMP-X VALUE IS 1658695. 03 ISC_69_15 PIC XXXX USAGE COMP-X VALUE IS 50266112. 03 ISC_69_16 PIC XXXX USAGE COMP-X VALUE IS 570490885. 03 ISC_69_17 PIC XXXX USAGE COMP-X VALUE IS 16779285. 03 ISC_69_18 PIC XXXX USAGE COMP-X VALUE IS 419430400. 03 ISC_69_19 PIC XXXX USAGE COMP-X VALUE IS 419430401. 03 ISC_69_20 PIC XXXX USAGE COMP-X VALUE IS 4278190081. 03 ISC_69_21 PIC XXXX USAGE COMP-X VALUE IS 5046271. * * FORMATTED REQUEST BLR FOR ISC_69 = * blr_version5, * blr_begin, * blr_message, 1, 1,0, * blr_long, 0, * blr_message, 0, 1,0, * blr_long, 0, * blr_receive, 0, * blr_send, 1, * blr_begin, * blr_assignment, * blr_literal, blr_long, 0, 0,0,0,0, * blr_parameter, 1, 0,0, * blr_for, * blr_rse, 1, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_boolean, * blr_eql, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 0, 0,0, * blr_end, * blr_begin, * blr_erase, 0, * blr_assignment, * blr_add, * blr_literal, blr_long, 0, 1,0,0,0, * blr_parameter, 1, 0,0, * blr_parameter, 1, 0,0, * blr_end, * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_69 01 ISC_72. 03 ISC_73 PIC S9(9) USAGE IS COMP. 01 ISC_70. 03 ISC_71 PIC S9(9) USAGE IS COMP. 01 gds__74 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_75. 03 ISC_75_1 PIC XXXX USAGE COMP-X VALUE IS 17039877. 03 ISC_75_2 PIC XXXX USAGE COMP-X VALUE IS 524289. 03 ISC_75_3 PIC XXXX USAGE COMP-X VALUE IS 1048580. 03 ISC_75_4 PIC XXXX USAGE COMP-X VALUE IS 234891278. 03 ISC_75_5 PIC XXXX USAGE COMP-X VALUE IS 135135240. 03 ISC_75_6 PIC XXXX USAGE COMP-X VALUE IS 527872. 03 ISC_75_7 PIC XXXX USAGE COMP-X VALUE IS 234891278. 03 ISC_75_8 PIC XXXX USAGE COMP-X VALUE IS 524328. 03 ISC_75_9 PIC XXXX USAGE COMP-X VALUE IS 234886158. 03 ISC_75_10 PIC XXXX USAGE COMP-X VALUE IS 68026372. 03 ISC_75_11 PIC XXXX USAGE COMP-X VALUE IS 234883072. 03 ISC_75_12 PIC XXXX USAGE COMP-X VALUE IS 34471954. 03 ISC_75_13 PIC XXXX USAGE COMP-X VALUE IS 3280384. 03 ISC_75_14 PIC XXXX USAGE COMP-X VALUE IS 234887438. 03 ISC_75_15 PIC XXXX USAGE COMP-X VALUE IS 786457. 03 ISC_75_16 PIC XXXX USAGE COMP-X VALUE IS 16908558. 03 ISC_75_17 PIC XXXX USAGE COMP-X VALUE IS 2069. 03 ISC_75_18 PIC XXXX USAGE COMP-X VALUE IS 419430400. 03 ISC_75_19 PIC XXXX USAGE COMP-X VALUE IS 117440513. 03 ISC_75_20 PIC XXXX USAGE COMP-X VALUE IS 105513283. 03 ISC_75_21 PIC XXXX USAGE COMP-X VALUE IS 1229736262. 03 ISC_75_22 PIC XXXX USAGE COMP-X VALUE IS 1191201857. 03 ISC_75_23 PIC XXXX USAGE COMP-X VALUE IS 100669231. 03 ISC_75_24 PIC XXXX USAGE COMP-X VALUE IS 1229213507. 03 ISC_75_25 PIC XXXX USAGE COMP-X VALUE IS 1658695. 03 ISC_75_26 PIC XXXX USAGE COMP-X VALUE IS 50266118. 03 ISC_75_27 PIC XXXX USAGE COMP-X VALUE IS 33619978. 03 ISC_75_28 PIC XXXX USAGE COMP-X VALUE IS 218110209. 03 ISC_75_29 PIC XXXX USAGE COMP-X VALUE IS 67180288. 03 ISC_75_30 PIC XXXX USAGE COMP-X VALUE IS 1162694478. 03 ISC_75_31 PIC XXXX USAGE COMP-X VALUE IS 83892481. 03 ISC_75_32 PIC XXXX USAGE COMP-X VALUE IS 218175232. 03 ISC_75_33 PIC XXXX USAGE COMP-X VALUE IS 1162694478. 03 ISC_75_34 PIC XXXX USAGE COMP-X VALUE IS 1312900703. 03 ISC_75_35 PIC XXXX USAGE COMP-X VALUE IS 1230192980. 03 ISC_75_36 PIC XXXX USAGE COMP-X VALUE IS 1638721. 03 ISC_75_37 PIC XXXX USAGE COMP-X VALUE IS 18284548. 03 ISC_75_38 PIC XXXX USAGE COMP-X VALUE IS 1145980168. 03 ISC_75_39 PIC XXXX USAGE COMP-X VALUE IS 1128616517. 03 ISC_75_40 PIC XXXX USAGE COMP-X VALUE IS 1638735. 03 ISC_75_41 PIC XXXX USAGE COMP-X VALUE IS 18284554. 03 ISC_75_42 PIC XXXX USAGE COMP-X VALUE IS 1297436166. 03 ISC_75_43 PIC XXXX USAGE COMP-X VALUE IS 21975621. 03 ISC_75_44 PIC XXXX USAGE COMP-X VALUE IS 917529. 03 ISC_75_45 PIC XXXX USAGE COMP-X VALUE IS 1392836887. 03 ISC_75_46 PIC XXXX USAGE COMP-X VALUE IS 1380930629. 03 ISC_75_47 PIC XXXX USAGE COMP-X VALUE IS 251664641. 03 ISC_75_48 PIC XXXX USAGE COMP-X VALUE IS 100734720. 03 ISC_75_49 PIC XXXX USAGE COMP-X VALUE IS 1094994243. 03 ISC_75_50 PIC XXXX USAGE COMP-X VALUE IS 419513668. 03 ISC_75_51 PIC XXXX USAGE COMP-X VALUE IS 385879040. 03 ISC_75_52 PIC XXXX USAGE COMP-X VALUE IS 1179976193. 03 ISC_75_53 PIC XXXX USAGE COMP-X VALUE IS 50338049. 03 ISC_75_54 PIC XXXX USAGE COMP-X VALUE IS 50403072. 03 ISC_75_55 PIC XXXX USAGE COMP-X VALUE IS 22037827. 03 ISC_75_56 PIC XXXX USAGE COMP-X VALUE IS 589849. 03 ISC_75_57 PIC XXXX USAGE COMP-X VALUE IS 1174864151. 03 ISC_75_58 PIC XXXX USAGE COMP-X VALUE IS 1145392719. 03 ISC_75_59 PIC XXXX USAGE COMP-X VALUE IS 419513412. 03 ISC_75_60 PIC XXXX USAGE COMP-X VALUE IS 385876480. 03 ISC_75_61 PIC XXXX USAGE COMP-X VALUE IS 1329989377. 03 ISC_75_62 PIC XXXX USAGE COMP-X VALUE IS 1431192910. 03 ISC_75_63 PIC XXXX USAGE COMP-X VALUE IS 1638733. 03 ISC_75_64 PIC XXXX USAGE COMP-X VALUE IS 18284552. 03 ISC_75_65 PIC XXXX USAGE COMP-X VALUE IS 1480672774. 03 ISC_75_66 PIC XXXX USAGE COMP-X VALUE IS 21251140. 03 ISC_75_67 PIC XXXX USAGE COMP-X VALUE IS 65561. 03 ISC_75_68 PIC XXXX USAGE COMP-X VALUE IS 1174798615. 03 ISC_75_69 PIC XXXX USAGE COMP-X VALUE IS 1431197761. 03 ISC_75_70 PIC XXXX USAGE COMP-X VALUE IS 1638733. 03 ISC_75_71 PIC XXXX USAGE COMP-X VALUE IS 18284555. 03 ISC_75_72 PIC XXXX USAGE COMP-X VALUE IS 1128743683. 03 ISC_75_73 PIC XXXX USAGE COMP-X VALUE IS 117446913. 03 ISC_75_74 PIC XXXX USAGE COMP-X VALUE IS 100734720. 03 ISC_75_75 PIC XXXX USAGE COMP-X VALUE IS 1163087433. 03 ISC_75_76 PIC XXXX USAGE COMP-X VALUE IS 419517523. 03 ISC_75_77 PIC XXXX USAGE COMP-X VALUE IS 385875968. 03 ISC_75_78 PIC XXXX USAGE COMP-X VALUE IS 1329792769. 03 ISC_75_79 PIC XXXX USAGE COMP-X VALUE IS 1413567566. 03 ISC_75_80 PIC XXXX USAGE COMP-X VALUE IS 570556239. 03 ISC_75_81 PIC XXXX USAGE COMP-X VALUE IS 16779285. 03 ISC_75_82 PIC XXXX USAGE COMP-X VALUE IS 419430400. 03 ISC_75_83 PIC XXXX USAGE COMP-X VALUE IS 419430401. 03 ISC_75_84 PIC XXXX USAGE COMP-X VALUE IS 4278190081. 03 ISC_75_85 PIC XXXX USAGE COMP-X VALUE IS 5046271. * * FORMATTED REQUEST BLR FOR ISC_75 = * blr_version5, * blr_begin, * blr_message, 1, 1,0, * blr_long, 0, * blr_message, 0, 16,0, * blr_text, 40,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 40,0, * blr_text, 40,0, * blr_long, 0, * blr_text, 20,0, * blr_text, 4,0, * blr_text, 4,0, * blr_long, 0, * blr_text, 18,0, * blr_text, 2,0, * blr_text, 50,0, * blr_text, 25,0, * blr_text, 25,0, * blr_receive, 0, * blr_send, 1, * blr_begin, * blr_assignment, * blr_literal, blr_long, 0, 0,0,0,0, * blr_parameter, 1, 0,0, * blr_for, * blr_rse, 1, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_boolean, * blr_eql, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_parameter, 0, 6,0, * blr_end, * blr_begin, * blr_modify, 0, 1, * blr_begin, * blr_assignment, * blr_parameter, 0, 13,0, * blr_field, 1, 4, 'N','O','M','E', * blr_assignment, * blr_parameter, 0, 5,0, * blr_field, 1, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * blr_assignment, * blr_parameter, 0, 4,0, * blr_field, 1, 8, 'E','N','D','E','R','E','C','O', * blr_assignment, * blr_parameter, 0, 10,0, * blr_field, 1, 6, 'N','U','M','E','R','O', * blr_assignment, * blr_parameter, 0, 14,0, * blr_field, 1, 5, 'S','E','T','O','R', * blr_assignment, * blr_parameter, 0, 15,0, * blr_field, 1, 6, 'C','I','D','A','D','E', * blr_assignment, * blr_parameter, 0, 12,0, * blr_field, 1, 2, 'U','F', * blr_assignment, * blr_parameter, 0, 3,0, * blr_field, 1, 3, 'C','E','P', * blr_assignment, * blr_parameter, 0, 9,0, * blr_field, 1, 7, 'F','O','N','E','D','D','D', * blr_assignment, * blr_parameter, 0, 2,0, * blr_field, 1, 7, 'F','O','N','E','N','U','M', * blr_assignment, * blr_parameter, 0, 8,0, * blr_field, 1, 6, 'F','A','X','D','D','D', * blr_assignment, * blr_parameter, 0, 1,0, * blr_field, 1, 6, 'F','A','X','N','U','M', * blr_assignment, * blr_parameter, 0, 11,0, * blr_field, 1, 3, 'C','G','C', * blr_assignment, * blr_parameter, 0, 7,0, * blr_field, 1, 6, 'I','N','S','E','S','T', * blr_assignment, * blr_parameter, 0, 0,0, * blr_field, 1, 7, 'C','O','N','T','A','T','O', * blr_end, * blr_assignment, * blr_add, * blr_literal, blr_long, 0, 1,0,0,0, * blr_parameter, 1, 0,0, * blr_parameter, 1, 0,0, * blr_end, * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_75 01 ISC_93. 03 ISC_94 PIC S9(9) USAGE IS COMP. 01 ISC_76. 03 ISC_77 PIC X(40). 03 ISC_78 PIC X(8). 03 ISC_79 PIC X(8). 03 ISC_80 PIC X(8). 03 ISC_81 PIC X(40). 03 ISC_82 PIC X(40). 03 ISC_83 PIC S9(9) USAGE IS COMP. 03 ISC_84 PIC X(20). 03 ISC_85 PIC X(4). 03 ISC_86 PIC X(4). 03 ISC_87 PIC S9(9) USAGE IS COMP. 03 ISC_88 PIC X(18). 03 ISC_89 PIC X(2). 03 ISC_90 PIC X(50). 03 ISC_91 PIC X(25). 03 ISC_92 PIC X(25). 01 gds__95 PIC S9(9) USAGE COMP VALUE IS 0. 01 ISC_96. 03 ISC_96_1 PIC XXXX USAGE COMP-X VALUE IS 262661. 03 ISC_96_2 PIC XXXX USAGE COMP-X VALUE IS 672006160. 03 ISC_96_3 PIC XXXX USAGE COMP-X VALUE IS 527872. 03 ISC_96_4 PIC XXXX USAGE COMP-X VALUE IS 234883086. 03 ISC_96_5 PIC XXXX USAGE COMP-X VALUE IS 672006152. 03 ISC_96_6 PIC XXXX USAGE COMP-X VALUE IS 2625024. 03 ISC_96_7 PIC XXXX USAGE COMP-X VALUE IS 234886158. 03 ISC_96_8 PIC XXXX USAGE COMP-X VALUE IS 68026372. 03 ISC_96_9 PIC XXXX USAGE COMP-X VALUE IS 134219776. 03 ISC_96_10 PIC XXXX USAGE COMP-X VALUE IS 1183232. 03 ISC_96_11 PIC XXXX USAGE COMP-X VALUE IS 234881550. 03 ISC_96_12 PIC XXXX USAGE COMP-X VALUE IS 420347954. 03 ISC_96_13 PIC XXXX USAGE COMP-X VALUE IS 1641984. 03 ISC_96_14 PIC XXXX USAGE COMP-X VALUE IS 1242497036. 03 ISC_96_15 PIC XXXX USAGE COMP-X VALUE IS 1279870470. 03 ISC_96_16 PIC XXXX USAGE COMP-X VALUE IS 4997449. 03 ISC_96_17 PIC XXXX USAGE COMP-X VALUE IS 1638658. 03 ISC_96_18 PIC XXXX USAGE COMP-X VALUE IS 1507338. 03 ISC_96_19 PIC XXXX USAGE COMP-X VALUE IS 1146045190. 03 ISC_96_20 PIC XXXX USAGE COMP-X VALUE IS 21972809. 03 ISC_96_21 PIC XXXX USAGE COMP-X VALUE IS 218110311. 03 ISC_96_22 PIC XXXX USAGE COMP-X VALUE IS 67114752. 03 ISC_96_23 PIC XXXX USAGE COMP-X VALUE IS 1162694478. 03 ISC_96_24 PIC XXXX USAGE COMP-X VALUE IS 83892481. 03 ISC_96_25 PIC XXXX USAGE COMP-X VALUE IS 218109696. 03 ISC_96_26 PIC XXXX USAGE COMP-X VALUE IS 1162694478. 03 ISC_96_27 PIC XXXX USAGE COMP-X VALUE IS 1312900703. 03 ISC_96_28 PIC XXXX USAGE COMP-X VALUE IS 1230192980. 03 ISC_96_29 PIC XXXX USAGE COMP-X VALUE IS 1638721. 03 ISC_96_30 PIC XXXX USAGE COMP-X VALUE IS 1507332. 03 ISC_96_31 PIC XXXX USAGE COMP-X VALUE IS 1145980168. 03 ISC_96_32 PIC XXXX USAGE COMP-X VALUE IS 1128616517. 03 ISC_96_33 PIC XXXX USAGE COMP-X VALUE IS 1638735. 03 ISC_96_34 PIC XXXX USAGE COMP-X VALUE IS 1507337. 03 ISC_96_35 PIC XXXX USAGE COMP-X VALUE IS 1297436166. 03 ISC_96_36 PIC XXXX USAGE COMP-X VALUE IS 21975621. 03 ISC_96_37 PIC XXXX USAGE COMP-X VALUE IS 917529. 03 ISC_96_38 PIC XXXX USAGE COMP-X VALUE IS 1392836631. 03 ISC_96_39 PIC XXXX USAGE COMP-X VALUE IS 1380930629. 03 ISC_96_40 PIC XXXX USAGE COMP-X VALUE IS 251664641. 03 ISC_96_41 PIC XXXX USAGE COMP-X VALUE IS 100669184. 03 ISC_96_42 PIC XXXX USAGE COMP-X VALUE IS 1094994243. 03 ISC_96_43 PIC XXXX USAGE COMP-X VALUE IS 419513668. 03 ISC_96_44 PIC XXXX USAGE COMP-X VALUE IS 385879040. 03 ISC_96_45 PIC XXXX USAGE COMP-X VALUE IS 1179976192. 03 ISC_96_46 PIC XXXX USAGE COMP-X VALUE IS 50338049. 03 ISC_96_47 PIC XXXX USAGE COMP-X VALUE IS 50337536. 03 ISC_96_48 PIC XXXX USAGE COMP-X VALUE IS 22037827. 03 ISC_96_49 PIC XXXX USAGE COMP-X VALUE IS 524313. 03 ISC_96_50 PIC XXXX USAGE COMP-X VALUE IS 1174863895. 03 ISC_96_51 PIC XXXX USAGE COMP-X VALUE IS 1145392719. 03 ISC_96_52 PIC XXXX USAGE COMP-X VALUE IS 419513412. 03 ISC_96_53 PIC XXXX USAGE COMP-X VALUE IS 385876480. 03 ISC_96_54 PIC XXXX USAGE COMP-X VALUE IS 1329989376. 03 ISC_96_55 PIC XXXX USAGE COMP-X VALUE IS 1431192910. 03 ISC_96_56 PIC XXXX USAGE COMP-X VALUE IS 1638733. 03 ISC_96_57 PIC XXXX USAGE COMP-X VALUE IS 1507335. 03 ISC_96_58 PIC XXXX USAGE COMP-X VALUE IS 1480672774. 03 ISC_96_59 PIC XXXX USAGE COMP-X VALUE IS 21251140. 03 ISC_96_60 PIC XXXX USAGE COMP-X VALUE IS 65561. 03 ISC_96_61 PIC XXXX USAGE COMP-X VALUE IS 1174798359. 03 ISC_96_62 PIC XXXX USAGE COMP-X VALUE IS 1431197761. 03 ISC_96_63 PIC XXXX USAGE COMP-X VALUE IS 1638733. 03 ISC_96_64 PIC XXXX USAGE COMP-X VALUE IS 1507339. 03 ISC_96_65 PIC XXXX USAGE COMP-X VALUE IS 1128743683. 03 ISC_96_66 PIC XXXX USAGE COMP-X VALUE IS 100669697. 03 ISC_96_67 PIC XXXX USAGE COMP-X VALUE IS 100669184. 03 ISC_96_68 PIC XXXX USAGE COMP-X VALUE IS 1163087433. 03 ISC_96_69 PIC XXXX USAGE COMP-X VALUE IS 419517523. 03 ISC_96_70 PIC XXXX USAGE COMP-X VALUE IS 385875968. 03 ISC_96_71 PIC XXXX USAGE COMP-X VALUE IS 1329792768. 03 ISC_96_72 PIC XXXX USAGE COMP-X VALUE IS 1413567566. 03 ISC_96_73 PIC XXXX USAGE COMP-X VALUE IS 1291845455. * * FORMATTED REQUEST BLR FOR ISC_96 = * blr_version5, * blr_begin, * blr_message, 0, 16,0, * blr_text, 40,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 8,0, * blr_text, 40,0, * blr_text, 40,0, * blr_text, 20,0, * blr_text, 4,0, * blr_text, 4,0, * blr_long, 0, * blr_long, 0, * blr_text, 18,0, * blr_text, 2,0, * blr_text, 50,0, * blr_text, 25,0, * blr_text, 25,0, * blr_receive, 0, * blr_store, * blr_relation, 6, 'F','I','L','I','A','L', 0, * blr_begin, * blr_assignment, * blr_parameter, 0, 10,0, * blr_field, 0, 6, 'C','O','D','I','G','O', * blr_assignment, * blr_upcase, * blr_parameter, 0, 13,0, * blr_field, 0, 4, 'N','O','M','E', * blr_assignment, * blr_parameter, 0, 5,0, * blr_field, 0, 13, 'N','O','M','E','_','F','A','N','T','A','S','I','A', * blr_assignment, * blr_parameter, 0, 4,0, * blr_field, 0, 8, 'E','N','D','E','R','E','C','O', * blr_assignment, * blr_parameter, 0, 9,0, * blr_field, 0, 6, 'N','U','M','E','R','O', * blr_assignment, * blr_parameter, 0, 14,0, * blr_field, 0, 5, 'S','E','T','O','R', * blr_assignment, * blr_parameter, 0, 15,0, * blr_field, 0, 6, 'C','I','D','A','D','E', * blr_assignment, * blr_parameter, 0, 12,0, * blr_field, 0, 2, 'U','F', * blr_assignment, * blr_parameter, 0, 3,0, * blr_field, 0, 3, 'C','E','P', * blr_assignment, * blr_parameter, 0, 8,0, * blr_field, 0, 7, 'F','O','N','E','D','D','D', * blr_assignment, * blr_parameter, 0, 2,0, * blr_field, 0, 7, 'F','O','N','E','N','U','M', * blr_assignment, * blr_parameter, 0, 7,0, * blr_field, 0, 6, 'F','A','X','D','D','D', * blr_assignment, * blr_parameter, 0, 1,0, * blr_field, 0, 6, 'F','A','X','N','U','M', * blr_assignment, * blr_parameter, 0, 11,0, * blr_field, 0, 3, 'C','G','C', * blr_assignment, * blr_parameter, 0, 6,0, * blr_field, 0, 6, 'I','N','S','E','S','T', * blr_assignment, * blr_parameter, 0, 0,0, * blr_field, 0, 7, 'C','O','N','T','A','T','O', * blr_end, * blr_end, * blr_eoc * * END OF BLR STRING FOR REQUEST ISC_96 01 ISC_97. 03 ISC_98 PIC X(40). 03 ISC_99 PIC X(8). 03 ISC_100 PIC X(8). 03 ISC_101 PIC X(8). 03 ISC_102 PIC X(40). 03 ISC_103 PIC X(40). 03 ISC_104 PIC X(20). 03 ISC_105 PIC X(4). 03 ISC_106 PIC X(4). 03 ISC_107 PIC S9(9) USAGE IS COMP. 03 ISC_108 PIC S9(9) USAGE IS COMP. 03 ISC_109 PIC X(18). 03 ISC_110 PIC X(2). 03 ISC_111 PIC X(50). 03 ISC_112 PIC X(25). 03 ISC_113 PIC X(25). * **** end of GPRE definitions **** 77 wx-status01 PIC XX VALUE "00". 77 wx-opcao PIC xxx value spaces. 77 wx-escape PIC 9999 VALUE 0. 77 wx-key-esc PIC 9999 VALUE 27. 77 wx-key-f2 PIC 99 VALUE 02. 77 wx-key-ac PIC 9999 VALUE 259. 77 wx-dec PIC 99 VALUE 0. 77 wx-pare PIC X VALUE SPACE. 77 wx-mensagem PIC X(61) VALUE SPACE. 01 codigo-sql PIC 9(9)- value zeros. 01 isc-1db REDEFINES isc_1db PIC X(8). 01 w01-cursor. 03 w03-linha pic 99 value 1. 03 w03-coluna pic 99 value 1. * exec sql begin declare section end-exec 01 reg-filial. 02 chave-filial. 03 fi_codigo pic 9(03). 02 fi_nome pic x(50). 02 fi_fantasia pic x(40). 02 fi_endereco pic x(40). 02 fi_end_num pic 9(05). 02 fi_end_setor pic x(20). 02 fi_cidade pic x(25). 02 fi_uf pic x(02). 02 fi_cep pic 9(08). 02 fi_fone_ddd pic x(04). 02 fi_fone_num pic x(08). 02 fi_fax_ddd pic x(04). 02 fi_fax_num pic x(08). 02 fi_cgc pic x(18). 02 fi_insest pic x(20). 02 fi_contato pic x(40). 01 v_nome pic x(50). 01 v_fantasia pic x(40). 01 v_setor pic x(20). * exec sql end declare section end-exec 77 wfi_codigo pic x(05). 77 traco pic x(80) value all "-". 77 wfi_end_num pic x(05). 77 ed_num pic zzzz9. 01 lixo pic x. 01 tipo pic x. copy "wkglobal.cpy". screen section. 01 tela. 03 filler pic x(1920) blank screen line 4 column 1 foreground-color 7 background-color 1 value spaces. PROCEDURE DIVISION. loop-conectar-ao-banco-de-dado. perform 080-CONNECT-MYDB. LOOP-CLEAR. display tela. PERFORM LOOP-ZERA. perform loop-tela accept wx-opcao line 2 position 36 if wx-opcao = "SAI" or "sai" stop run. LOOP-INCLUSAO. display tela. PERFORM LOOP-ZERA. perform loop-tela. if wx-opcao = "INC" or "inc" display wx-opcao line 2 position 36 perform loop-accept thru loop-accept-exit if fi_codigo = zeros go to LOOP-CLEAR else * exec sql * insert into filial * (codigo, nome, nome_fantasia, endereco, numero, * setor, cidade, uf, cep, foneddd, fonenum, faxddd, * faxnum, cgc, insest, contato) values * (:fi_codigo, upper(:fi_nome), :fi_fantasia, :fi_endereco, * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf, * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd, * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato) * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__95 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__95, BY VALUE 292, - BY REFERENCE ISC_96 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF MOVE fi_contato TO isc_98 MOVE fi_fax_num TO isc_99 MOVE fi_fone_num TO isc_100 MOVE fi_cep TO isc_101 MOVE fi_endereco TO isc_102 MOVE fi_fantasia TO isc_103 MOVE fi_insest TO isc_104 MOVE fi_fax_ddd TO isc_105 MOVE fi_fone_ddd TO isc_106 MOVE fi_end_num TO isc_107 MOVE fi_codigo TO isc_108 MOVE fi_cgc TO isc_109 MOVE fi_uf TO isc_110 MOVE fi_nome TO isc_111 MOVE fi_end_setor TO isc_112 MOVE fi_cidade TO isc_113 IF ISC_TRANS NOT = 0 AND gds__95 NOT = 0 THEN CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__95, - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 300, BY REFERENCE ISC_97, - BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao inserir os dados ' codigo-sql at 3301 accept lixo stop run end-if display "GRAVA S/N=" line 24 position 1 accept wx-pare line 24 position 12 if wx-pare = "S" or "s" * exec sql * commit * end-exec CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao confirmar a insercao de dados ' codigo-sql at 3301 accept lixo stop run end-if go to LOOP-INCLUSAO else * exec sql * rollback * end-exec CALL "isc_rollback_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao cancelar a insercao de dados ' codigo-sql at 3301 accept lixo stop run end-if go to LOOP-INCLUSAO. LOOP-CONSULTA. if wx-opcao = "CON" or "con" display tela PERFORM LOOP-ZERA perform loop-tela display wx-opcao line 2 position 36 accept wfi_codigo line 4 position 15 move wfi_codigo to numeroch perform num-x-9 move numeronu to fi_codigo ed_num display ed_num line 4 position 15 if fi_codigo = zeros go to LOOP-CLEAR else perform LOOP-SQL-CON if lixo = 'n' display "Item nao encontrado Tecle enter" line 24 position 2 accept wx-pare go to LOOP-CONSULTA else perform LOOP-MOSTRA display "Tecle enter para uma nova busca" line 24 position 2 accept wx-pare go to LOOP-CONSULTA. LOOP-ALTERACAO. if wx-opcao = "ALT" or "alt" display tela PERFORM LOOP-ZERA perform loop-tela display wx-opcao line 2 position 36 accept wfi_codigo line 4 position 15 move wfi_codigo to numeroch perform num-x-9 move numeronu to fi_codigo ed_num display fi_codigo line 4 position 17 if fi_codigo = zeros go to LOOP-CLEAR else perform LOOP-SQL-CON if LIXO = 'N' display "Item nao encontrado Tecle enter" line 24 position 2 accept wx-pare go to LOOP-ALTERACAO else perform LOOP-MOSTRA perform loop-accept-fi-nome thru loop-accept-exit * exec sql * update filial set * nome = :fi_nome, * nome_fantasia = :fi_fantasia, * endereco = :fi_endereco, * numero = :fi_end_num, * setor = :fi_end_setor, * cidade = :fi_cidade, * uf = :fi_uf, * cep = :fi_cep, * foneddd = :fi_fone_ddd, * fonenum = :fi_fone_num, * faxddd = :fi_fax_ddd, * faxnum = :fi_fax_num, * cgc = :fi_cgc, * insest = :fi_insest, * contato = :fi_contato * where codigo = :fi_codigo * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__74 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__74, BY VALUE 339, - BY REFERENCE ISC_75 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF MOVE fi_contato TO isc_77 MOVE fi_fax_num TO isc_78 MOVE fi_fone_num TO isc_79 MOVE fi_cep TO isc_80 MOVE fi_endereco TO isc_81 MOVE fi_fantasia TO isc_82 MOVE fi_codigo TO isc_83 MOVE fi_insest TO isc_84 MOVE fi_fax_ddd TO isc_85 MOVE fi_fone_ddd TO isc_86 MOVE fi_end_num TO isc_87 MOVE fi_cgc TO isc_88 MOVE fi_uf TO isc_89 MOVE fi_nome TO isc_90 MOVE fi_end_setor TO isc_91 MOVE fi_cidade TO isc_92 IF ISC_TRANS NOT = 0 AND gds__74 NOT = 0 THEN CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__74, - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 300, BY REFERENCE ISC_76, - BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF IF SQLCODE = 0 THEN CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__74, - BY VALUE 1, BY VALUE 4, BY REFERENCE ISC_93, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF SQLCODE = 0 AND isc_94 = 0 THEN MOVE 100 TO SQLCODE END-IF END-IF if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao alterar os dados ' codigo-sql at 3301 accept lixo stop run end-if display "Altera S/N=" line 24 position 1 accept wx-pare line 24 position 13 if wx-pare = "S" or "s" * exec sql * commit * end-exec CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao confirmar a alteracao ' codigo-sql at 3301 accept lixo stop run end-if go to LOOP-ALTERACAO else * exec sql * rollback * end-exec CALL "isc_rollback_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao confirmar a alteracao ' codigo-sql at 3301 accept lixo stop run end-if go to LOOP-ALTERACAO. LOOP-EXCLUSAO. if wx-opcao = "EXC" or "exc" display tela PERFORM LOOP-ZERA perform loop-tela display wx-opcao line 2 position 36 accept wfi_codigo line 4 position 15 move wfi_codigo to numeroch perform num-x-9 move numeronu to fi_codigo ed_num display fi_codigo line 4 position 15 if fi_codigo = zeros go to LOOP-CLEAR else perform LOOP-SQL-CON if lixo = 'n' display "Item nao encontrado Tecle enter" line 24 position 2 accept wx-pare go to LOOP-EXCLUSAO else perform LOOP-MOSTRA * exec sql * delete from filial * where codigo = :fi_codigo * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__68 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__68, BY VALUE 83, - BY REFERENCE ISC_69 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF MOVE fi_codigo TO isc_71 IF ISC_TRANS NOT = 0 AND gds__68 NOT = 0 THEN CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__68, - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 4, BY REFERENCE ISC_70, - BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF IF SQLCODE = 0 THEN CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__68, - BY VALUE 1, BY VALUE 4, BY REFERENCE ISC_72, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF SQLCODE = 0 AND isc_73 = 0 THEN MOVE 100 TO SQLCODE END-IF END-IF if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao deletar os dados ' codigo-sql at 3301 accept lixo stop run end-if display "Delete S/N=" line 24 position 1 accept wx-pare line 24 position 13 if wx-pare = "S" or "s" * exec sql * commit * end-exec CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao confirmar a exclusao ' codigo-sql at 3301 accept lixo stop run end-if go to LOOP-EXCLUSAO else go to LOOP-EXCLUSAO end-if GO TO LOOP-CLEAR. LOOP-PERSONALIZADA. if wx-opcao equal "pes" or "PES" display wx-opcao at 0236 go to LOOP-CONSULTA-PERSONALIZADA. LOOP-OPCAO-ERRADA. GO TO LOOP-CLEAR. LOOP-CONSULTA-PERSONALIZADA. perform ZERA-TELA. LOOP-CONSULTA-NOME. move spaces to tipo. initialize fi_codigo, fi_nome, fi_fantasia, fi_endereco, fi_end_num, fi_end_setor, fi_cidade, fi_uf, fi_cep, fi_fone_ddd, fi_fone_num, fi_fax_ddd, fi_fax_num, fi_cgc, fi_insest, fi_contato. display 'Por ordem de (N)ome ou (C)odigo? ' at 0502 accept tipo at 0535 display ' ' at 0502 if tipo equal 'C' or tipo equal 'c' go to DECLARA-CONSULTAC. if tipo equal 'N' or tipo equal 'n' go to DECLARA-CONSULTAN. DECLARA-CONSULTAC. * exec sql * declare consultac cursor for * select codigo, nome, nome_fantasia, endereco, numero, * setor, cidade, uf, cep, foneddd, fonenum, * faxddd, faxnum, cgc, insest, contato * from filial * order by codigo * end-exec if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao criar consultac' at 3302 accept lixo stop run. go to LOOP-ABRIR-CODIGO. DECLARA-CONSULTAN. * exec sql * declare consultan cursor for * select codigo, nome, nome_fantasia, endereco, numero, * setor, cidade, uf, cep, foneddd, fonenum, * faxddd, faxnum, cgc, insest, contato * from filial * order by nome * end-exec if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao criar lista de consultan ' codigo-sql at 2901 accept lixo stop run. go to LOOP-ABRIR-NOME. LOOP-ABRIR-NOME. * exec sql * open consultan * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__28 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__28, BY VALUE 334, - BY REFERENCE ISC_29 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF IF (ISC_29S = 0) AND gds__28 NOT = 0 THEN IF gds__database NOT = 0 THEN CALL "isc_dsql_alloc_statement2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE ISC_29S END-IF END-IF IF ISC_29S NOT = 0 THEN IF ISC_TRANS NOT = 0 THEN CALL "isc_dsql_set_cursor_name" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_29S, BY REFERENCE ISC-CONST-CONSULTAN, BY VALUE 0 IF ISC_STATUS(2) = 0 THEN CALL "isc_dsql_execute_m" USING ISC_STATUS_VECTOR, BY REFERENCE ISC_TRANS, - BY REFERENCE ISC_29S, BY VALUE 0, BY VALUE 0, BY VALUE -1, BY VALUE 0, - BY VALUE 0 IF ISC_STATUS(2) = 0 THEN IF ISC_TRANS NOT = 0 AND gds__28 NOT = 0 THEN CALL "isc_start_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28, - BY REFERENCE ISC_TRANS, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF END-IF END-IF END-IF END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao abrir lista de consultan ' codigo-sql at 3301 accept lixo stop run. go to LOOP-PROXIMO-NOME. LOOP-ABRIR-CODIGO. * exec sql * open consultac * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__48 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__48, BY VALUE 336, - BY REFERENCE ISC_49 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF IF (ISC_49S = 0) AND gds__48 NOT = 0 THEN IF gds__database NOT = 0 THEN CALL "isc_dsql_alloc_statement2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE ISC_49S END-IF END-IF IF ISC_49S NOT = 0 THEN IF ISC_TRANS NOT = 0 THEN CALL "isc_dsql_set_cursor_name" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_49S, BY REFERENCE ISC-CONST-CONSULTAC, BY VALUE 0 IF ISC_STATUS(2) = 0 THEN CALL "isc_dsql_execute_m" USING ISC_STATUS_VECTOR, BY REFERENCE ISC_TRANS, - BY REFERENCE ISC_49S, BY VALUE 0, BY VALUE 0, BY VALUE -1, BY VALUE 0, - BY VALUE 0 IF ISC_STATUS(2) = 0 THEN IF ISC_TRANS NOT = 0 AND gds__48 NOT = 0 THEN CALL "isc_start_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48, - BY REFERENCE ISC_TRANS, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF END-IF END-IF END-IF END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao abrir lista de consultac ' codigo-sql at 3301 accept lixo stop run. go to LOOP-PROXIMO-CODIGO. LOOP-PROXIMO-NOME. move 4 to w03-linha move 2 to w03-coluna perform until sqlcode not equal zeros * exec sql * fetch consultan into * :fi_codigo, :fi_nome, :fi_fantasia,:fi_endereco, * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf, * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd, * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato * end-exec CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28, - BY VALUE 0, BY VALUE 302, BY REFERENCE ISC_30, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF isc_42 NOT = 0 THEN MOVE 0 TO SQLCODE MOVE isc_41 TO fi_codigo MOVE isc_45 TO fi_nome MOVE isc_36 TO fi_fantasia MOVE isc_35 TO fi_endereco MOVE isc_40 TO fi_end_num MOVE isc_46 TO fi_end_setor MOVE isc_47 TO fi_cidade MOVE isc_44 TO fi_uf MOVE isc_34 TO fi_cep MOVE isc_39 TO fi_fone_ddd MOVE isc_33 TO fi_fone_num MOVE isc_38 TO fi_fax_ddd MOVE isc_32 TO fi_fax_num MOVE isc_43 TO fi_cgc MOVE isc_37 TO fi_insest MOVE isc_31 TO fi_contato ELSE MOVE 100 TO SQLCODE END-IF if sqlcode equal 100 display 'Fim de consultan, tecle ENTER ' at 2402 accept lixo at 2432 display ' ' at 2402 end-if if sqlcode not equal zeros and 100 move sqlcode to codigo-sql display 'erro ao fazer a consulta ' codigo-sql at 3301 else move 2 to w03-coluna display fi_codigo at w01-cursor move 6 to w03-coluna display fi_nome at w01-cursor add 1 to w03-linha if w03-linha = 24 display 'Tecle ENTER para mais registros ' at 2402 accept lixo at 2434 perform ZERA-TELA move 4 to w03-linha move 2 to w03-coluna end-if end-if end-perform * exec sql * close consultan * end-exec IF ISC_29S NOT = 0 THEN CALL "isc_dsql_free_statement" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_29S, BY VALUE 1 IF ISC_STATUS(2) = 0 THEN CALL "isc_unwind_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__28, - BY VALUE 0 END-IF END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE go to LOOP-CLEAR. LOOP-PROXIMO-CODIGO. move 4 to w03-linha move 2 to w03-coluna perform until sqlcode not equal zeros * exec sql * fetch consultac into * :fi_codigo, :fi_nome, :fi_fantasia,:fi_endereco, * :fi_end_num, :fi_end_setor, :fi_cidade, :fi_uf, * :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd, * :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato * end-exec CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48, - BY VALUE 0, BY VALUE 302, BY REFERENCE ISC_50, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF isc_62 NOT = 0 THEN MOVE 0 TO SQLCODE MOVE isc_61 TO fi_codigo MOVE isc_65 TO fi_nome MOVE isc_56 TO fi_fantasia MOVE isc_55 TO fi_endereco MOVE isc_60 TO fi_end_num MOVE isc_66 TO fi_end_setor MOVE isc_67 TO fi_cidade MOVE isc_64 TO fi_uf MOVE isc_54 TO fi_cep MOVE isc_59 TO fi_fone_ddd MOVE isc_53 TO fi_fone_num MOVE isc_58 TO fi_fax_ddd MOVE isc_52 TO fi_fax_num MOVE isc_63 TO fi_cgc MOVE isc_57 TO fi_insest MOVE isc_51 TO fi_contato ELSE MOVE 100 TO SQLCODE END-IF if sqlcode equal 100 display 'Fim de consultac, tecle ENTER ' at 2402 accept lixo at 2432 display ' ' at 2402 end-if if sqlcode not equal zeros and 100 move sqlcode to codigo-sql display 'erro ao fazer a consulta ' codigo-sql at 3301 else move 2 to w03-coluna display fi_codigo at w01-cursor move 6 to w03-coluna display fi_nome at w01-cursor add 1 to w03-linha if w03-linha = 24 display 'Tecle ENTER para mais registros ' at 2402 accept lixo at 2434 perform ZERA-TELA move 4 to w03-linha move 2 to w03-coluna end-if end-if end-perform * exec sql * close consultac * end-exec IF ISC_49S NOT = 0 THEN CALL "isc_dsql_free_statement" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_49S, BY VALUE 1 IF ISC_STATUS(2) = 0 THEN CALL "isc_unwind_request" USING ISC_STATUS_VECTOR, BY REFERENCE gds__48, - BY VALUE 0 END-IF END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE go to LOOP-CLEAR. ZERA-TELA. MOVE 4 TO W03-LINHA. MOVE 1 TO W03-COLUNA. perform until w03-linha >24 display ' ' at w01-cursor add 1 to w03-linha end-perform. LOOP00. LOOP-CODIGO. LOOP-ZERA. MOVE ZEROS TO REG-FILIAL. MOVE ZEROS TO fi_codigo. MOVE SPACE TO fi_nome. MOVE SPACE TO fi_endereco. MOVE ZEROS TO fi_end_num. MOVE SPACES TO fi_end_setor. MOVE SPACES TO fi_cidade. MOVE SPACES TO fi_uf. MOVE spaces TO fi_cep. MOVE SPACES TO fi_fone_ddd. MOVE SPACES TO fi_fone_num. MOVE SPACES TO fi_fax_ddd. MOVE SPACES TO fi_fax_num. MOVE SPACES TO fi_cgc. MOVE SPACES TO fi_insest. move spaces to fi_fantasia. move spaces to fi_contato. loop-tela. display traco line 1 position 1 display "Opcao PES/INC/ALT/CON/EXC/SAI=>>" line 2 position 2 display traco line 3 position 1 display "Codigo....:" line 4 position 2 display "Nome......:" line 5 position 2 display "Nome Fant.:" line 6 position 2 display "Endereco..:" line 7 position 2 display "Numero....:" line 7 position 60 display "Setor.....:" line 8 position 2. display "Cidade....:" line 9 position 2 display "Estado....:" line 10 position 2 display "cep.......:" line 10 position 20 display "Fone ddd..:" line 11 position 2 display "Fone num..:" line 11 position 20. display "Fax ddd...:" line 12 position 2 display "Fax num...:" line 12 position 20 display "c.g.c.....:" line 13 position 2 display "Insc.Est..:" line 14 position 2 display "Contato...:" line 15 position 2. loop-accept. if wx-opcao = "ALT" or "alt" go to loop-accept-exit end-if accept wfi_codigo line 4 position 15 if wx-escape = wx-key-ac or wx-key-esc go to LOOP-CLEAR. move wfi_codigo to numeroch perform num-x-9 move numeronu to fi_codigo ed_num display ed_num line 4 position 15 if wfi_codigo = zeros go to loop-accept-exit. perform LOOP-SQL-CON. if lixo not = 'n' display "Item ja cadastrado " line 24 position 01 accept wx-pare go to loop-accept. loop-accept-fi-nome. accept fi_nome with update line 5 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept. loop-accept-fi-fantasia. accept fi_fantasia with update line 6 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-nome. loop-accept-fi-endereco. accept fi_endereco with update line 7 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fantasia. loop-accept-fi-end-num. accept wfi_end_num line 7 position 71 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-endereco. move wfi_end_num to numeroch perform num-x-9 move numeronu to fi_end_num ed_num display ed_num line 7 position 71. loop-accept-fi-end-setor. accept fi_end_setor with update line 8 position 15. if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-end-num. if fi_end_setor = spaces go to loop-accept-fi-end-num. loop-accept-fi-cidade. accept fi_cidade with update line 9 position 15 if fi_cidade = spaces go to loop-accept-fi-end-setor. if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-end-setor. loop-accept-fi-uf. accept fi_uf with update line 10 position 15 if fi_uf = spaces go to loop-accept-fi-cidade. if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cidade. loop-accept-fi-cep. accept fi_cep with update line 10 position 35 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-uf. loop-accept-fi-fone-ddd. accept fi_fone_ddd with update line 11 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cep. loop-accept-fi-fone-num. accept fi_fone_num with update line 11 position 35 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fone-ddd. loop-accept-fi-fax-ddd. accept fi_fax_ddd with update line 12 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fone-num. loop-accept-fi-fax-num. accept fi_fax_num with update line 12 position 35 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fax-ddd. loop-accept-fi-cgc. accept fi_cgc with update line 13 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-fax-num. loop-accept-fi-inscest. accept fi_insest with update line 14 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-cgc. loop-accept-fi-contato. accept fi_contato with update line 15 position 15 if wx-escape = wx-key-ac or wx-key-esc go to loop-accept-fi-inscest. loop-accept-exit. exit. LOOP-SQL-CON. * exec sql * select codigo, nome, nome_fantasia, endereco, numero, setor, cidade, uf, cep, foneddd, fonenum, faxddd, faxnum, cgc, insest, contato * into * :fi_codigo, :fi_nome, :fi_fantasia, :fi_endereco, :fi_end_num, :fi_end_setor, * :fi_cidade, :fi_uf, :fi_cep, :fi_fone_ddd, :fi_fone_num, :fi_fax_ddd, :fi_fax_num, :fi_cgc, :fi_insest, :fi_contato * from filial * where codigo = :fi_codigo * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF gds__6 = 0 THEN CALL "isc_compile_request2" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database, BY REFERENCE gds__6, BY VALUE 348, - BY REFERENCE ISC_7 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF MOVE fi_codigo TO isc_9 IF ISC_TRANS NOT = 0 AND gds__6 NOT = 0 THEN CALL "isc_start_and_send" USING ISC_STATUS_VECTOR, BY REFERENCE gds__6, - BY REFERENCE ISC_TRANS, BY VALUE 0, BY VALUE 4, BY REFERENCE ISC_8, - BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF IF SQLCODE = 0 THEN CALL "isc_receive" USING ISC_STATUS_VECTOR, BY REFERENCE gds__6, - BY VALUE 1, BY VALUE 302, BY REFERENCE ISC_10, BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF isc_22 NOT = 0 THEN MOVE isc_21 TO fi_codigo MOVE isc_25 TO fi_nome MOVE isc_16 TO fi_fantasia MOVE isc_15 TO fi_endereco MOVE isc_20 TO fi_end_num MOVE isc_26 TO fi_end_setor MOVE isc_27 TO fi_cidade MOVE isc_24 TO fi_uf MOVE isc_14 TO fi_cep MOVE isc_19 TO fi_fone_ddd MOVE isc_13 TO fi_fone_num MOVE isc_18 TO fi_fax_ddd MOVE isc_12 TO fi_fax_num MOVE isc_23 TO fi_cgc MOVE isc_17 TO fi_insest MOVE isc_11 TO fi_contato ELSE MOVE 100 TO SQLCODE END-IF END-IF if sqlcode not equal 0 display 'ERRO AO PROCURAR O ARQUIVO: ' at 3301 move sqlcode to codigo-sql display codigo-sql at 3329 move 'n' to lixo else move 's' to lixo. LOOP-MOSTRA. display fi_codigo line 4 position 17 display fi_nome line 5 position 15 display fi_fantasia line 6 position 15 display fi_endereco line 7 position 15 display fi_end_num line 7 position 71 display fi_end_setor line 8 position 15 display fi_cidade line 9 position 15 display fi_uf line 10 position 15 display fi_cep line 10 position 35 display fi_fone_ddd line 11 position 15 display fi_fone_num line 11 position 35 display fi_fax_ddd line 12 position 15 display fi_fax_num line 12 position 35 display fi_cgc line 13 position 15 display fi_insest line 14 position 15 display fi_contato line 15 position 15. LOOP-FIM. stop run. 050-DISCONECTAR. * exec sql * disconnect all * end-exec IF ISC_TRANS NOT = 0 THEN CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS END-IF IF gds__database NOT = 0 THEN CALL "isc_detach_database" USING ISC_STATUS_VECTOR, - BY REFERENCE gds__database END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao disconectar o banco de dados ' codigo-sql at 3301 accept lixo stop run. 080-CONNECT-MYDB. * exec sql * connect 'teste.gdb' * end-exec CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 0, - BY REFERENCE "teste.gdb", BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao conectar o banco de dados ' codigo-sql at 3301 accept lixo perform 400-create-database-tabela. 400-create-database-tabela section. * exec sql * create database "teste.gdb" * end-exec CALL "isc_create_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc-1db, BY REFERENCE gds__database, BY VALUE 10, - BY REFERENCE isc_3, BY VALUE 0 IF ISC_STATUS(2) = 0 THEN IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF ISC_TRANS NOT = 0 THEN CALL "isc_ddl" USING ISC_STATUS_VECTOR, BY REFERENCE gds__database, - BY REFERENCE ISC_TRANS, BY VALUE 6, BY REFERENCE ISC_5 END-IF IF ISC_STATUS(2) = 0 THEN CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS END-IF IF ISC_STATUS(2) NOT = 0 THEN CALL "isc_rollback_transaction" USING BY VALUE 0, BY REFERENCE ISC_TRANS END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros move sqlcode to codigo-sql display 'erro ao criar o banco de dados ' codigo-sql at 3301 accept lixo stop run. * exec sql * create table filial ( * codigo integer not null primary key, * nome varchar(50), * nome_fantasia varchar(40), * endereco varchar(40), * numero integer, * setor varchar(25), * cidade varchar(25), * uf varchar(02), * cep varchar(08), * foneddd varchar(04), * fonenum varchar(08), * faxddd varchar(04), * faxnum varchar(08), * cgc varchar(18), * insest varchar(20), * contato varchar(40) * ) * end-exec IF gds__database = 0 THEN CALL "isc_attach_database" USING ISC_STATUS_VECTOR, BY VALUE 9, - BY REFERENCE isc_1db, BY REFERENCE gds__database, BY VALUE 0, - BY VALUE 0 END-IF IF (gds__database NOT = 0) AND ISC_TRANS = 0 THEN CALL "isc_start_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS, BY VALUE 1 - , BY REFERENCE gds__database, BY VALUE 0, BY VALUE 0 END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE IF ISC_TRANS NOT = 0 THEN CALL "isc_ddl" USING ISC_STATUS_VECTOR, BY REFERENCE gds__database, - BY REFERENCE ISC_TRANS, BY VALUE 615, BY REFERENCE ISC_1 END-IF IF ISC_STATUS(2) = 0 THEN CALL "isc_commit_transaction" USING ISC_STATUS_VECTOR, - BY REFERENCE ISC_TRANS END-IF IF ISC_STATUS(2) NOT = 0 THEN CALL "isc_rollback_transaction" USING BY VALUE 0, BY REFERENCE ISC_TRANS END-IF CALL "isc_sqlcode_s" USING ISC_STATUS_VECTOR, BY REFERENCE SQLCODE if sqlcode not equal zeros display 'erro ao criar a tabela ' at 3301 move sqlcode to codigo-sql display codigo-sql at 3324 accept lixo stop run. 400-EXIT. EXIT. accept wx-pare. copy "pcglobal.cpy".