prpcodeupd.4gl

开发工具 Informix-4gl

##                        "billcount,",
##                        "currency,",
##                        "sumamount,",
##                        "sumpremium,",
##                        "flag",
##                        " FROM ",lv_sourcedb CLIPPED,":prpcbatch"
##        PREPARE cbatch_pre FROM lv_sqltxt
##        DECLARE cbatch_cur CURSOR FOR cbatch_pre
##        INITIALIZE gr_prpcbatch.* TO NULL
##        LET lv_count=1
##        FOREACH cbatch_cur INTO gr_prpcbatch.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCbatch VALUES(gr_prpcbatch.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCbatch数据错误,主键:",gr_prpcbatch.PolicyNo,"|",gr_prpcbatch.SerialNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##            
##        DISPLAY "正在变动 prpcmainsub 表的数据,请稍候...             " AT 10,2
##        INITIALIZE gr_prpcmainsub,lv_sqltxt TO NULL
##        LET pv_nowtabname="prpcmainsub"
##        LET lv_sqltxt=" SELECT ",
##                        "policyno,",
##                        "mainpolicyno,",
##                        "\"\",", --##endorseno
##                        "flag",
##                        " FROM ",lv_sourcedb CLIPPED,":prpcmainsub"
##        PREPARE cmainsub_pre FROM lv_sqltxt
##        DECLARE cmainsub_cur CURSOR FOR cmainsub_pre
##        INITIALIZE gr_prpcmainsub.* TO NULL
##        LET lv_count=1
##        FOREACH cmainsub_cur INTO gr_prpcmainsub.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCmainSub VALUES(gr_prpcmainsub.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCmainSub数据错误,主键:",gr_prpcmainsub.PolicyNo,"|",gr_prpcmainsub.MainPolicyNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##            
##        DISPLAY "正在变动 prpcitem_car 表的数据,请稍候...             " AT 10,2
##        INITIALIZE gr_prpcitem_car,lv_sqltxt TO NULL
##        LET pv_nowtabname="prpcitem_car"
##        LET lv_sqltxt=" SELECT ",
##                        "policyno,",
##                        "riskcode,",
##                        "1,", --itemno smallint not null 
##                        "insuredtype,",  --insuredtypecode char(2)
##                        "carowner,",
##                        "licenseno,",
##                        "licensecolor,",  --licensecolorcode char(1)
##                        "carkind,",  --carkindcode char(2)
##                        "\"\",", --hkflag char(1)
##                        "hklicenseno,",
##                        "engineno,",
##                        "vinno,",
##                        "frameno,",
##                        "runarea,",
##                        "enrolldate,",
##                       {enrollno}
##                        "modelcode,",
##                        "brandname,",
##                        "countrynature,",
##                        "countrycode,",
##                        "usenature,",
##                        "\"\",", --businessclasscode char(1),
##                        "seatcount,",
##                        "toncount,",
##                        "\"\",", --colorcode char(6),
##                        "owneraddress,",
##                        "othernature,",
##                        "ratecode,",
##                        "makedate,",
##                        "carusage,",
##                        "useyears,",
##                        "purchaseprice,",
##                        "\"\",", --actualvalue decimal(14,2),
##                        "invoiceno,",
##                        "\"\",", --lastinsurer varchar(40),
##                        "\"\",", --specialtreat decimal(14,2),
##                        "\"\",", --relievingareacode char(1),
##                        "\"\",", --addoncount smallint,
##                        "remark,",
##                        "flag", 
##                        " FROM ",lv_sourcedb CLIPPED,":prpcmain_car"
##        PREPARE citem_car_pre FROM lv_sqltxt
##        DECLARE citem_car_cur CURSOR FOR citem_car_pre
##        INITIALIZE gr_prpcitem_car.* TO NULL
##        LET lv_count=1
##        FOREACH citem_car_cur INTO gr_prpcitem_car.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCitem_car VALUES(gr_prpcitem_car.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCitem_car数据错误,主键:",gr_prpcitem_car.PolicyNo,"|",gr_prpcitem.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##        DISPLAY "正在变动 prpcaddress 表的数据,请稍候...             " AT 10,2
##        LET pv_nowtabname="prpcaddress"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCaddress"
##        PREPARE caddress_pre FROM lv_sqltxt
##        DECLARE caddress_cur CURSOR FOR caddress_pre
##        INITIALIZE gr_prpcaddress.* TO NULL
##        LET lv_count=1
##        FOREACH caddress_cur INTO gr_prpcaddress.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCaddress VALUES(gr_prpcaddress.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCaddress数据错误,主键:",gr_prpcaddress.PolicyNo,"|",gr_prpcaddress.AddressNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prpccoins 表的数据,请稍候...               " AT 10,2 
##        LET pv_nowtabname="prpccoins"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCcoins"
##        PREPARE ccoins_pre FROM lv_sqltxt
##        DECLARE ccoins_cur CURSOR FOR ccoins_pre
##        INITIALIZE gr_prpccoins.* TO NULL
##        LET lv_count=1
##        FOREACH ccoins_cur INTO gr_prpccoins.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCcoins VALUES(gr_prpccoins.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCcoins数据错误,主键:",gr_prpccoins.PolicyNo,"|",gr_prpccoins.SerialNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prpcengage 表的数据,请稍候...              " AT 10,2
##        LET pv_nowtabname="prpcengage"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCengage"
##        PREPARE cengage_pre FROM lv_sqltxt
##        DECLARE cengage_cur CURSOR FOR cengage_pre
##        INITIALIZE gr_prpcengage.* TO NULL
##        LET lv_count=1
##        FOREACH cengage_cur INTO gr_prpcengage.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCengage VALUES(gr_prpcengage.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCengage数据错误,主键:",gr_prpcengage.PolicyNo,"|",gr_prpcengage.SerialNo,"|",gr_prpcengage.LineNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prpcfee 表的数据,请稍候...                 " AT 10,2 
##        LET pv_nowtabname="prpcfee"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCfee"
##        PREPARE cfee_pre FROM lv_sqltxt
##        DECLARE cfee_cur CURSOR FOR cfee_pre
##        INITIALIZE gr_prpcfee.* TO NULL
##        LET lv_count=1
##        FOREACH cfee_cur INTO gr_prpcfee.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCfee VALUES(gr_prpcfee.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCfee数据错误,主键:",gr_prpcfee.PolicyNo,"|",gr_prpcfee.Currency,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##                
##        DISPLAY "正在变动 prpcitem 表的数据,请稍候...                  " AT 10,2 
##        LET pv_nowtabname="prpcitem"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCitem"
##        PREPARE citem_pre FROM lv_sqltxt
##        DECLARE citem_cur CURSOR FOR citem_pre
##        INITIALIZE gr_prpcitem.* TO NULL
##        LET lv_count=1
##        FOREACH citem_cur INTO gr_prpcitem.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCitem VALUES(gr_prpcitem.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCitem数据错误,主键:",gr_prpcitem.PolicyNo,"|",gr_prpcitem.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prpcitem_cargo 表的数据,请稍候...              " AT 10,2 
##        LET pv_nowtabname="prpcitem_cargo"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCitem_cargo"
##        PREPARE citem_cargo_pre FROM lv_sqltxt
##        DECLARE citem_cargo_cur CURSOR FOR citem_cargo_pre
##        INITIALIZE gr_prpcitem_cargo.* TO NULL
##        LET lv_count=1
##        FOREACH citem_cargo_cur INTO gr_prpcitem_cargo.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCitem_cargo VALUES(gr_prpcitem_cargo.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCitem_cargo数据错误,主键:",gr_prpcitem_cargo.PolicyNo,"|",gr_prpcitem_cargo.ItemNo,"|",gr_prpcitem_cargo.LineNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##        DISPLAY "正在变动 prpcitem_device 表的数据,请稍候...             " AT 10,2 
##        LET pv_nowtabname="prpcitem_device"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCitem_device"
##        PREPARE citem_device_pre FROM lv_sqltxt
##        DECLARE citem_device_cur CURSOR FOR citem_device_pre
##        INITIALIZE gr_prpcitem_device.* TO NULL
##        LET lv_count=1
##        FOREACH citem_device_cur INTO gr_prpcitem_device.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpCitem_device VALUES(gr_prpcitem_device.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpCitem_device数据错误,主键:",gr_prpcitem_device.PolicyNo,"|",gr_prpcitem_device.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prpcitem_house 表的数据,请稍候...             " AT 10,2  
##        LET pv_nowtabname="prpcitem_house"
##        LET lv_sqltxt="SELECT * FR