sav_init.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;
    pf=fopen("/u/ebcsav/data/sav_sect.dat","w");
    s[0]='\0';
    for(i=1;i<100;i++)
      {
        fwrite(s,24,1,pf);
        fwrite(s,10,1,pf);
      }
    fclose(pf);
    pf=fopen("/u/ebcsav/data/sav_op.dat","w");
    strcpy(op.name,"sav_op");
    for(i=0;i<6;i++) op.name[i]^=0xff;
    strcpy(op.pass,op.name);
    op.pass[6]='\0';
    op.num=1;
    op.type=3;
    op.priv=0xff;
    fwrite(&op,17,1,pf);
    fclose(pf);
    pf=fopen("/u/ebcsav/data/sav_type.dat","w");
    strcpy(s,"人民币整存整取存单");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币活期存折");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币零存整取存折");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币存本取息存折");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币定活两便存折");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币大额存单");
    fwrite(s,20,1,pf);
    strcpy(s,"人民币通知存款存折");
    fwrite(s,20,1,pf);
    s[0]='\0';
    for(i=0;i<3;i++) fwrite(s,20,1,pf);
    strcpy(s,"外币整存整取存单");
    fwrite(s,20,1,pf);
    strcpy(s,"外币活期存折");
    fwrite(s,20,1,pf);
    s[0]='\0';
    for(i=0;i<8;i++) fwrite(s,20,1,pf);
    fclose(pf);
    printf("\n人民币整存整取存单起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num01.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币活期存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num02.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币零存整取存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num03.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币存本取息存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num04.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币定活两便存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num05.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币大额存单起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num06.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n人民币通知存款存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num07.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n外币整存整取存单起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num11.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    printf("\n外币活期存折起始编号基值:");
    scanf("%d",&b);
    pf=fopen("/u/ebcsav/data/acc_num12.dat","w");
    fwrite(&b,4,1,pf);
    i=1000;
    fwrite(&i,2,1,pf);
    for(i=0;i<1000;i++) fwrite(&i,2,1,pf);
    fclose(pf);
    pf=fopen("/u/ebcsav/data/tran_sec.dat","w");
    fclose(pf);
    $ create database saving with log;
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立储蓄数据库出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table credential
      (
        op_num char(1),
        cre_type smallint,
        cre_num integer
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立凭证登记表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index credential_idx
      on credential (op_num,cre_type,cre_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立凭证登记表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table cred_count
      (
        op_num char(1),
        cre_type smallint,
        cre_count smallint
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立凭证数量表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index cred_count_idx
      on cred_count (op_num,cre_type);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立凭证数量表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    ope_num[0]=1;
    ope_num[1]='\0';
    cred_count=0;
    for(i=1;i<=20;i++)
      {
        cred_type=i;
        $insert into cred_count
          values
          ($ope_num,$cred_type,$cred_count);
        if(sqlca.sqlcode!=0)
          {
            printf("** 错误 %d :写凭证数量表出错 **",
              sqlca.sqlcode);
            return;
          }
      }
    ope_num[0]=100;
    for(i=1;i<=20;i++)
      {
        cred_type=i;
        $insert into cred_count
          values
          ($ope_num,$cred_type,$cred_count);
        if(sqlca.sqlcode!=0)
          {
            printf("** 错误 %d :写凭证数量表出错 **",
              sqlca.sqlcode);
            return;
          }
      }
    $ create table r_fix
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        term char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        maintn_v float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币整存整取帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_fix_idx
      on r_fix (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币整存整取帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_fix
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        term char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        maintn_v float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币整存整取帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_fix_idx
      on f_fix (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币整存整取帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table l_fix
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        term char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        maintn_v float
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币大额储蓄帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index l_fix_idx
      on l_fix (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币大额储蓄帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_demand
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        line_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币活期储蓄帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_dem_idx
      on r_demand (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币活期储蓄帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_demand
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        line_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币活期储蓄帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index f_dem_idx
      on f_demand (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币活期储蓄帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_dem_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_dems_idx
      on r_dem_sch (sec_num,acc_num,pres_date,blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币活期储蓄明细表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table f_dem_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 f_dems_idx
      on f_dem_sch (sec_num,acc_num,pres_date,blot_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立外币活期储蓄明细表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_call
      (
        sec_num char(1),
        acc_num integer,
        name char(8),
        pass integer,
        cur_type char(1),
        amount float,
        address char(24),
        cre_num integer,
        open_date integer,
        inte_date integer,
        status char(1),
        last_date integer,
        interest float,
        line_num char(1)
      );
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币通知存款帐户表出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create unique index r_cal_idx
      on r_call (sec_num,acc_num);
    if(sqlca.sqlcode!=0)
      {
        printf("** 错误 %d :建立人民币通知存款帐户表索引出错 **",
          sqlca.sqlcode);
        return;
      }
    $ create table r_cal_sch
      (
        sec_num char(1),