sav_init.ec

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

        acc_num integer,
        pres_date integer,
        blot_num integer,
        name char(8),
        cur_type char(1),
        amount float,
        balance float,
        interest float,
        status char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币通知存款明细表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_cals_idx
      on r_cal_sch (sec_num,acc_num,pres_date,blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币通知存款明细表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_dated
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        term char(1),
        amount float,
        balance float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        flag char(1),
        last_date integer,
        inte_rate float,
        interest float,
        last_month integer,
        line_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币零存整取帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_dated_idx
      on r_dated (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币零存整取帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_dated_sch
      (
        sec_num char(1),
        acc_num integer,
        pres_date integer,
        blot_num integer,
        name char(8),
        cur_type char(1),
        amount float,
        balance float,
        interest float,
        status char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币零存整取明细表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_dats_idx
      on r_dated_sch (sec_num,acc_num,pres_date,blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币零存整取明细表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_blot
      (
        blot_num serial(1),
        op_num char(1),
        sec_num char(1),
        acc_num integer,
        name char(8),
        sav_type char(1),
        cur_type char(1),
        term char(1),
        cre_num integer,
        status char(1),
        amount float,
        balance float,
        interest float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币流水帐表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_blot_idx
      on r_blot (blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币流水帐表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_blot
      (
        blot_num serial(1),
        op_num char(1),
        sec_num char(1),
        acc_num integer,
        name char(8),
        sav_type char(1),
        cur_type char(1),
        term char(1),
        cre_num integer,
        status char(1),
        amount float,
        balance float,
        interest float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币流水帐表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_blot_idx
      on f_blot (blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币流水帐表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table open_acc
      (
        sec_num char(1),
        sav_type char(1),
        cur_type char(1),
        term char(1),
        acc_num integer,
        name char(8),
        address char(24),
        amount float,
        op_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立开户登记表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index open_idx
      on open_acc (sec_num,sav_type,cur_type,term,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立开户登记表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table subs_cred
      (
        sec_num char(1),
        sav_type char(1),
        acc_num integer,
        name char(8),
        cre_num1 integer,
        cre_num2 integer,
        balance float,
        op_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立换折登记表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index subs_idx
      on subs_cred (sec_num,sav_type,acc_num,cre_num2);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立换折登记表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table hang
      (
        sec_num char(1),
        sav_type char(1),
        cur_type char(1),
        term char(1),
        acc_num integer,
        name char(8),
        cre_num integer,
        balance float,
        status char(1),
        op_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立挂失(冻结、解挂、解冻)登记表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index hang_idx
      on hang (sec_num,sav_type,cur_type,term,acc_num,status);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立挂失(冻结、解挂、解冻)登记表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table change_acc
      (
        sec_num char(1),
        sav_type char(1),
        acc_num integer,
        name1 char(8),
        name2 char(8),
        pass1 integer,
        pass2 integer,
        address1 char(24),
        address2 char(24),
        status char(1),
        op_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立帐户修改登记表出错 ***",
          sqlca.sqlcode);
        return;
      }
    $ create unique index change_idx
      on change_acc (sec_num,sav_type,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立帐户修改登记表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table inter_rate 
      (
        syh integer,
        lmc char(29),
        ll  float,
        rq   integer 
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立利率表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index in_rat_idx
      on inter_rate (syh,lmc,ll,rq);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立利率表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table maint_rate
      (
        y smallint,
        m smallint,
        bl  float,
        sy smallint,
        sm smallint,
        sd smallint,
        wy smallint,
        wm smallint,
        wd smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立保值率表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index ma_rat_idx
      on maint_rate (y,m,bl,sy,sm,sd,wy,wm,wd);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立保值率表索引出错 **",
          sqlca.sqlcode);
        return;
       }
    $ create table exch_rate 
      (
        sy smallint,
        hl  float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立汇率表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index ex_rat_idx
      on exch_rate (sy,hl);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立汇率表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ 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,