sa_in.ec

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

#include <stdio.h>
#include <tinfo.h>
#include <math.h>
#include <ctype.h>
$include sqlca;
$include sqlda;
FILE *pf;
main()
  {
    short i;
    long b;
    char s[25];
    $ short cred_type,cred_count;
    $ char ope_num[2],s_type[2],cu_type[2],ter[2];
    $ double yes_bala,deb_amoun,cre_amoun,toda_bala;
    $ long yes_user,ope_user,can_user,toda_user,deb_vouch,cre_vouch;
    $ short yes_hang,han_up,lif_hang,toda_hang,yes_free,freez,unfreez,
      toda_free,yes_chan,chang,toda_chan;
    struct operator
      {
        char name[7];
        unsigned char pass[7];
        unsigned char num;
        char type;
        unsigned char priv;
      } op;
    $ database saving;
    $ create table r_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 r_dai_idx
      on r_dai (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币日报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_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 r_mon_idx
      on r_month (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币月报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_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 r_quar_idx
      on r_quarter (sav_type,cur_type,term);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币季报表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_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 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';
    deb_amoun=cre_amoun=toda_bala=0.0;
    ope_user=can_user=toda_user=deb_vouch=cre_vouch=0;
    han_up=lif_hang=toda_hang=freez=unfreez=toda_free=chang=toda_chan=0;
yes_bala=0.0;
yes_user=yes_hang=yes_free=yes_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人民币存本取息一年:");