prpcodeupd.4gl

开发工具 Informix-4gl

##        DISPLAY "正在变动 prptitem 表的数据,请稍候...          " AT 10,2 
##        LET pv_nowtabname="prptitem"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitem"
##        PREPARE titem_pre FROM lv_sqltxt
##        DECLARE titem_cur CURSOR FOR titem_pre
##        INITIALIZE gr_prptitem.* TO NULL
##        LET lv_count=1
##        FOREACH titem_cur INTO gr_prptitem.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem VALUES(gr_prptitem.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem数据错误,主键:",gr_prptitem.ProposalNo,"|",gr_prptitem.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptitem_cargo 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptitem_cargo"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitem_cargo"
##        PREPARE titem_cargo_pre FROM lv_sqltxt
##        DECLARE titem_cargo_cur CURSOR FOR titem_cargo_pre
##        INITIALIZE gr_prptitem_cargo.* TO NULL
##        LET lv_count=1
##        FOREACH titem_cargo_cur INTO gr_prptitem_cargo.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem_cargo VALUES(gr_prptitem_cargo.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem_cargo数据错误,主键:",gr_prptitem_cargo.ProposalNo,"|",gr_prptitem_cargo.ItemNo,"|",gr_prptitem_cargo.LineNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##        DISPLAY "正在变动 prptitem_device 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptitem_device"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitem_device"
##        PREPARE titem_device_pre FROM lv_sqltxt
##        DECLARE titem_device_cur CURSOR FOR titem_device_pre
##        INITIALIZE gr_prptitem_device.* TO NULL
##        LET lv_count=1
##        FOREACH titem_device_cur INTO gr_prptitem_device.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem_device VALUES(gr_prptitem_device.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem_device数据错误,主键:",gr_prptitem_device.ProposalNo,"|",gr_prptitem_device.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prptitem_house 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptitem_house"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitem_house"
##        PREPARE titem_house_pre FROM lv_sqltxt
##        DECLARE titem_house_cur CURSOR FOR titem_house_pre
##        INITIALIZE gr_prptitem_house.* TO NULL
##        LET lv_count=1
##        FOREACH titem_house_cur INTO gr_prptitem_house.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem_house VALUES(gr_prptitem_house.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem_house数据错误,主键:",gr_prptitem_house.ProposalNo,"|",gr_prptitem_house.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptitem_prop 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptitem_prop"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitem_prop"
##        PREPARE titem_prop_pre FROM lv_sqltxt
##        DECLARE titem_prop_cur CURSOR FOR titem_prop_pre
##        INITIALIZE gr_prptitem_prop.* TO NULL
##        LET lv_count=1
##        FOREACH titem_prop_cur INTO gr_prptitem_prop.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem_prop VALUES(gr_prptitem_prop.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem_prop数据错误,主键:",gr_prptitem_prop.ProposalNo,"|",gr_prptitem_prop.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptitemkind 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptitemkind"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTitemKind"
##        PREPARE titemkind_pre FROM lv_sqltxt
##        DECLARE titemkind_cur CURSOR FOR titemkind_pre
##        INITIALIZE gr_prptitemkind.* TO NULL
##        LET lv_count=1
##        FOREACH titemkind_cur INTO gr_prptitemkind.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitemKind VALUES(gr_prptitemkind.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitemKind数据错误,主键:",
##                  gr_prptitemkind.ProposalNo,"|",gr_prptitemkind.ItemKindNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptlimit 表的数据,请稍候...          " AT 10,2     
##        INITIALIZE gr_prptlimit,lv_sqltxt TO NULL
##        LET pv_nowtabname="prptlimit"
##
##        LET lv_sqltxt=" SELECT ",
##                         " proposalno,",
##                         "riskcode,",
##                         "limitgrade,",
##                         "limitno,",
##                         "limittype,",
##                         "currency,",
##                         "limitfee,",
##                         "calculateflag,",
##                         "\"\",",  --##limitflag
##                         "flag",
##                       " FROM ",lv_sourcedb CLIPPED,":PrpTlimit"
##
##        PREPARE tlimit_pre FROM lv_sqltxt
##        DECLARE tlimit_cur CURSOR FOR tlimit_pre
##        INITIALIZE gr_prptlimit.* TO NULL
##        LET lv_count=1
##        FOREACH tlimit_cur INTO gr_prptlimit.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTlimit VALUES(gr_prptlimit.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTlimit数据错误,主键:",gr_prptlimit.ProposalNo,"|",gr_prptlimit.LimitGrade,"|",gr_prptlimit.LimitNo,"|",gr_prptlimit.LimitType,"|",gr_prptlimit.Currency,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptmain_construct 表的数据,请稍候...          " AT 10,2 
##        LET pv_nowtabname="prptmain_construct"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmain_construct"
##        PREPARE tmain_construct_pre FROM lv_sqltxt
##        DECLARE tmain_construct_cur CURSOR FOR tmain_construct_pre
##        INITIALIZE gr_prptmain_construct.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_construct_cur INTO gr_prptmain_construct.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_construct VALUES(gr_prptmain_construct.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_construct数据错误,主键:",gr_prptmain_construct.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prptmain_credit 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptmain_credit"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmain_credit"
##        PREPARE tmain_credit_pre FROM lv_sqltxt
##        DECLARE tmain_credit_cur CURSOR FOR tmain_credit_pre
##        INITIALIZE gr_prptmain_credit.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_credit_cur INTO gr_prptmain_credit.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_credit VALUES(gr_prptmain_credit.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_credit数据错误,主键:",gr_prptmain_credit.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##        DISPLAY "正在变动 prptmain_invest 表的数据,请稍候...          " AT 10,2    
##        LET pv_nowtabname="prptmain_invest"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmain_invest"
##        PREPARE tmain_invest_pre FROM lv_sqltxt
##        DECLARE tmain_invest_cur CURSOR FOR tmain_invest_pre
##        INITIALIZE gr_prptmain_invest.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_invest_cur INTO gr_prptmain_invest.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_invest VALUES(gr_prptmain_invest.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_invest数据错误,主键:",
##                       gr_prptmain_invest.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptmain_liab 表的数据,请稍候...          " AT 10,2  
##        LET pv_nowtabname="prptmain_liab"
##        DISPLAY "正在转换数据表:PrpTmain_liab"    AT 10,2
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmain_liab"
##        PREPARE tmain_liab_pre FROM lv_sqltxt
##        DECLARE tmain_liab_cur CURSOR FOR tmain_liab_pre
##        INITIALIZE gr_prptmain_liab.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_liab_cur INTO gr_prptmain_liab.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_liab VALUES(gr_prptmain_liab.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_liab数据错误,主键:",gr_prptmain_liab.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptmain_prop 表的数据,请稍候...          " AT 10,2 
##        LET pv_nowtabname="prptmain_prop"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmain_prop"
##        PREPARE tmain_prop_pre FROM lv_sqltxt
##        DECLARE tmain_prop_cur CURSOR FOR tmain_prop_pre
##        INITIALIZE gr_prptmain_prop.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_prop_cur INTO gr_prptmain_prop.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_prop VALUES(gr_prptmain_prop.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_prop数据错误,主键:",gr_prptmain_prop.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptmainsub 表的数据,请稍候...          " AT 10,2