sav_init.ec

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

        yest_chan smallint,
        change smallint,
        today_chan smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币年报表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_annu_idx
      on r_annual (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币年报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_dai
      (
        sav_type char(1),
        cur_type char(1),
        term char(1),
        yest_bala float,
        debi_amoun float,
        cred_amoun float,
        today_bala float,
        yest_user integer,
        open_user integer,
        canc_user integer,
        today_user integer,
        debi_vouch integer,
        cred_vouch integer,
        yest_hang smallint,
        hang_up smallint,
        lift_hang smallint,
        today_hang smallint,
        yest_free smallint,
        freeze smallint,
        unfreeze smallint,
        today_free smallint,
        yest_chan smallint,
        change smallint,
        today_chan smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币日报表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_dai_idx
      on f_dai (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币日报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_month
      (
        sav_type char(1),
        cur_type char(1),
        term char(1),
        yest_bala float,
        debi_amoun float,
        cred_amoun float,
        today_bala float,
        yest_user integer,
        open_user integer,
        canc_user integer,
        today_user integer,
        debi_vouch integer,
        cred_vouch integer,
        yest_hang smallint,
        hang_up smallint,
        lift_hang smallint,
        today_hang smallint,
        yest_free smallint,
        freeze smallint,
        unfreeze smallint,
        today_free smallint,
        yest_chan smallint,
        change smallint,
        today_chan smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币月报表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_mon_idx
      on f_month (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币月报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_quarter
      (
        sav_type char(1),
        cur_type char(1),
        term char(1),
        yest_bala float,
        debi_amoun float,
        cred_amoun float,
        today_bala float,
        yest_user integer,
        open_user integer,
        canc_user integer,
        today_user integer,
        debi_vouch integer,
        cred_vouch integer,
        yest_hang smallint,
        hang_up smallint,
        lift_hang smallint,
        today_hang smallint,
        yest_free smallint,
        freeze smallint,
        unfreeze smallint,
        today_free smallint,
        yest_chan smallint,
        change smallint,
        today_chan smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币季报表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_quar_idx
      on f_quarter (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币季报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_annual
      (
        sav_type char(1),
        cur_type char(1),
        term char(1),
        yest_bala float,
        debi_amoun float,
        cred_amoun float,
        today_bala float,
        yest_user integer,
        open_user integer,
        canc_user integer,
        today_user integer,
        debi_vouch integer,
        cred_vouch integer,
        yest_hang smallint,
        hang_up smallint,
        lift_hang smallint,
        today_hang smallint,
        yest_free smallint,
        freeze smallint,
        unfreeze smallint,
        today_free smallint,
        yest_chan smallint,
        change smallint,
        today_chan smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币年报表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_annu_idx
      on f_annual (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币年报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    s_type[1]='\0';
    cu_type[1]='\0';
    ter[1]='\0';
    yes_bala=deb_amoun=cre_amoun=toda_bala=0.0;
    yes_user=ope_user=can_user=toda_user=deb_vouch=cre_vouch=0;
    yes_hang=yes_free=yes_chan=han_up=lif_hang=toda_hang=freez=unfreez=
      toda_free=chang=toda_chan=0;
    printf("=== 请输入人民币上日额 ===\n");
    for(i=1;i<=41;i++)
      {
        switch(i)
          {
            case 1:
              printf("      \n人民币整存整取三个月:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=3;
              break;
            case 2:
              printf("      \n人民币整存整取六个月:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=6;
              break;
            case 3:
              printf("      \n人民币整存整取一年:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=12;
              break;
            case 4:
              printf("      \n人民币整存整取两年:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=24;
              break;
            case 5:
              printf("      \n人民币整存整取三年:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=36;
              break;
            case 6:
              printf("      \n人民币整存整取五年:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=60;
              break;
            case 7:
              printf("      \n人民币整存整取小计:");
              s_type[0]=1;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 8:
              printf("      \n人民币活期:");
              s_type[0]=2;
              cu_type[0]='R';
              ter[0]=0;
              break;
            case 9:
              printf("      \n人民币零存整取一年:");
              s_type[0]=3;
              cu_type[0]='R';
              ter[0]=12;
              break;
            case 10:
              printf("      \n人民币零存整取三年:");
              s_type[0]=3;
              cu_type[0]='R';
              ter[0]=36;
              break;
            case 11:
              printf("      \n人民币零存整取五年:");
              s_type[0]=3;
              cu_type[0]='R';
              ter[0]=60;
              break;
            case 12:
              printf("      \n人民币零存整取小计:");
              s_type[0]=3;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 13:
              printf("      \n人民币存本取息一年:");
              s_type[0]=4;
              cu_type[0]='R';
              ter[0]=12;
              break;
            case 14:
              printf("      \n人民币存本取息三年:");
              s_type[0]=4;
              cu_type[0]='R';
              ter[0]=36;
              break;
            case 15:
              printf("      \n人民币存本取息五年:");
              s_type[0]=4;
              cu_type[0]='R';
              ter[0]=60;
              break;
            case 16:
              printf("      \n人民币存本取息小计:");
              s_type[0]=4;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 17:
              printf("      \n人民币定活两变:");
              s_type[0]=5;
              cu_type[0]='R';
              ter[0]=0;
              break;
            case 18:
              printf("      \n人民币大额一月:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=1;
              break;
            case 19:
              printf("      \n人民币大额三月:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=3;
              break;
            case 20:
              printf("      \n人民币大额六月:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=6;
              break;
            case 21:
              printf("      \n人民币大额九月:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=9;
              break;
            case 22:
              printf("      \n人民币大额一年:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=12;
              break;
            case 23:
              printf("      \n人民币大额小计:");
              s_type[0]=6;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 24:
              printf("      \n人民币通知存款:");
              s_type[0]=7;
              cu_type[0]='R';
              ter[0]=0;
              break;
            case 25:
              printf("      \n人民币合计:");
              s_type[0]=100;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 26:
              printf("      \n一年以下利息:");
              s_type[0]=101;
              cu_type[0]='R';
              ter[0]=1;
              break;
            case 27:
              printf("      \n一年以上利息:");
              s_type[0]=101;
              cu_type[0]='R';
              ter[0]=2;
              break;
            case 28:
              printf("      \n保值利息:");
              s_type[0]=101;
              cu_type[0]='R';
              ter[0]=3;
              break;
            case 29:
              printf("      \n活期利息:");
              s_type[0]=101;
              cu_type[0]='R';
              ter[0]=4;
              break;
            case 30:
              printf("      \n利息合计:");
              s_type[0]=101;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 31:
              printf("      \n有奖储蓄:");
              s_type[0]=102;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 32:
              printf("      \n国库券:");
              s_type[0]=103;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 33:
              printf("      \n债券:");
              s_type[0]=104;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 34:
              printf("      \n业务备用金:");
              s_type[0]=105;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 35:
              printf("      \n暂收款:");
              s_type[0]=106;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 36:
              printf("      \n暂付款:");
              s_type[0]=107;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 37:
              printf("      \n应付利息:");
              s_type[0]=108;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 38:
              printf("      \n往来收支:");
              s_type[0]=109;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 39:
              printf("      \n营业收支:");
              s_type[0]=110;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 40:
              printf("      \n库存现金:");
              s_type[0]=111;
              cu_type[0]='R';
              ter[0]=100;
              break;
            case 41:
              printf("      \n合计:");
              s_type[0]=120;
              cu_type[0]='R';
              ter[0]=100;
          }
/*
        printf("        \n余额:  ");
        scanf("%lf",&yes_bala);
        printf("        \n户数:  ");
        scanf("%ld",&yes_user);
        printf("        \n挂失数:  ");
        scanf("%hd",&yes_hang);
        printf("        \n冻结数:  ");
        scanf("%hd",&yes_free);
        printf("        \n修改数:  ");
        scanf("%hd",&yes_chan);
*/
        $insert into r_dai
          values
          ($s_type,$cu_type,$ter,$yes_bala,$deb_amoun,$cre_amoun,$toda_bala,
          $yes_user,$ope_user,$can_user,$toda_user,$deb_vouch,$cre_vouch,
          $yes_hang,$han_up,$lif_hang,$toda_hang,$yes_free,$freez,$unfreez,
          $toda_free,$yes_chan,$chang,$toda_chan);
        if(sqlca.sqlcode!=0)
          {
            printf("** 错误 %d :写日报表出错 **",sqlca.sqlcode);
            return;
          }
      }
    printf("=== 请输入人民币上月额 ===\n");