carry_y.ec

这是一个使用 informix esql/c 技术开发的银行程序的部分代码。

 $ update f_quarter set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_quarter set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_quarter set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_quarter set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_annual set yest_bala=$t_bala1 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_annual set yest_bala=0.0 where cur_type="U" and sav_type=$sav and term=$te;
} 
sav[0]=101;
te[0]=100;
$ select yest_bala into $t_bala from f_dai where cur_type="H" and sav_type=$sav and term=$te;
sav[0]=102;
te[0]=100;
$ select yest_bala into $t_bal from f_dai where cur_type="H" and sav_type=$sav and term=$te;
if(t_bala!=0)
{
 sav[0]=109;
 te[0]=100;
 $ select yest_bala into $t_bala1 from f_dai where cur_type="H" and sav_type=$sav and term=$te;
/* printf("\n   %13.2f   %13.2f  %13.2f",t_bala1,t_bala,t_bal);
 getch();*/
 t_bala1=t_bala1+t_bala+t_bal;
 $ update f_dai set yest_bala=$t_bala1 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_dai set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_month set yest_bala=$t_bala1 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_month set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_quarter set yest_bala=$t_bala1 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_quarter set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_annual set yest_bala=$t_bala1 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_annual set yest_bala=0.0 where cur_type="H" and sav_type=$sav and term=$te;
} 
sav[0]=101;
te[0]=100;
$ select yest_bala into $t_bala from f_dai where cur_type="J" and sav_type=$sav and term=$te;
sav[0]=102;
te[0]=100;
$ select yest_bala into $t_bal from f_dai where cur_type="J" and sav_type=$sav and term=$te;
if(t_bala!=0)
{
 sav[0]=109;
 te[0]=100;
 $ select yest_bala into $t_bala1 from f_dai where cur_type="J" and sav_type=$sav and term=$te;
 t_bala1=t_bala1+t_bala+t_bal;
 $ update f_dai set yest_bala=$t_bala1 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_dai set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_month set yest_bala=$t_bala1 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_month set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_quarter set yest_bala=$t_bala1 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_quarter set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=109;
 te[0]=100;
 $ update f_annual set yest_bala=$t_bala1 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=102;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=103;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=100;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=1;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=2;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=3;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
 sav[0]=101;
 te[0]=4;
 $ update f_annual set yest_bala=0.0 where cur_type="J" and sav_type=$sav and term=$te;
} 
if(p==1)
  {
    $ rollback work;
  }
else
  {
    $ commit work;
  }
$close database;
move(20,20);
addstr("结转已完成,任意键返回");
getch();
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/y_n>