1 . Select make_acc(crs_inbase.ACC_DB,crs_inbase.DB_A1,crs_inbase.DB_A2,crs_inbase.DB_A3,crs_inbase.DB_A4,crs_inbase.DB_A4) As db,;
make_acc(crs_inbase.ACC_KR,crs_inbase.KR_A1,crs_inbase.KR_A2,crs_inbase.KR_A3,crs_inbase.KR_A4,crs_inbase.KR_A5) As kr,;
        crs_inbase.RN,;
        crs_inbase.summ_amort;
        from crs_inbase  Into Cursor crs_res_am


 2 . Select  crs_epsc.RN,;
make_acc(crs_epsc.ACC_DB,crs_epsc.DB_A1,crs_epsc.DB_A2,crs_epsc.DB_A3,crs_epsc.DB_A4,crs_epsc.DB_A4) As db,;
make_acc(crs_epsc.ACC_KR,crs_epsc.KR_A1,crs_epsc.KR_A2,crs_epsc.KR_A3,crs_epsc.KR_A4,crs_epsc.KR_A5) As kr,;
        crs_epsc.sum_base;
        from crs_acc_eop2 crs_epsc Into Cursor crs_real_amort

Select crs_real_amort.RN,;
            crs_real_amort.db,;
            crs_real_amort.kr,;
            Nvl(crs_real_amort.sum_base, 0 . 00 ) as sum_base,;
            Nvl(crs_rec_amort.summ_amort, 0 . 00 ) as summ_amort,;
            Abs(Nvl(crs_real_amort.sum_base, 0 . 00 ) - Nvl(crs_rec_amort.summ_amort, 0 . 00 )) As delta;
            from crs_real_amort;
            full join  crs_rec_amort on crs_real_amort.db =  crs_rec_amort.db And crs_real_amort.kr = crs_rec_amort.kr;
            into Table ( lcPath )