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

2516 lines
110 KiB
COBOL
Raw Permalink Blame History

* ********** 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".
Reference in New Issue View Git Blame Copy Permalink