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

2559 lines
76 KiB
OpenEdge ABL
Raw Permalink Blame History

# 1 "cad01f.cob"
IDENTIFICATION DIVISION.
PROGRAM-ID. cad01f.
AUTHOR. InfoCont Sistemas Integrados Ltda.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA
CRT STATUS IS wx-escape.
DATA DIVISION.
WORKING-STORAGE SECTION.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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).
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.
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).
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.
# 1 "wkglobal.cpy"
01 seq-geral.
02 seq-77 pic 99 value zeros.
02 seq-7 pic 99 value zeros.
01 numeroch pic x(15) value spaces.
01 numerord redefines numeroch.
03 numeropos occurs 15 times pic x.
01 numeronu pic x(15) value spaces.
01 numerorn redefines numeronu.
03 numeronupos occurs 15 times pic x.
# 1466 "cad01f.cob"
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
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"
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
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
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"
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
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
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"
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.
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.
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.
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.
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
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
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
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
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.
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.
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.
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.
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.
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.
# 1 "pcglobal.cpy"
num-x-9.
perform numero-int thru numero-int3.
numero-int.
move spaces to numeronu.
move 15 to seq-7
move 15 to seq-77.
numero-int1.
if seq-77 = zeros go to numero-int2.
if numeropos (seq-77) not numeric
compute seq-77 = seq-77 - 1
go to numero-int1.
move numeropos (seq-77) to numeronupos (seq-7)
compute seq-7 = seq-7 - 1
compute seq-77 = seq-77 - 1.
go to numero-int1.
numero-int2.
if seq-7 = zeros go to numero-int3.
if numeronupos (seq-7) not numeric
move zeros to numeronupos (seq-7)
compute seq-7 = seq-7 - 1
go to numero-int2.
numero-int3.
exit.
# 2515 "cad01f.cob"
Reference in New Issue View Git Blame Copy Permalink