sav_init2.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;
    $ 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;
      }
              break;
            case 32:
              printf("      \n法国法郎利息合计:");
              s_type[0]=101;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 33:
              printf("      \n法国法郎买入:");
              s_type[0]=102;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 34:
              printf("      \n买入法国法郎支付人民币:");
              s_type[0]=103;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 35:
              printf("      \n法国法郎业务备用金:");
              s_type[0]=105;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 36:
              printf("      \n法国法郎暂收款:");
              s_type[0]=106;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 37:
              printf("      \n法国法郎暂付款:");
              s_type[0]=107;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 38:
              printf("      \n法国法郎应付利息:");
              s_type[0]=108;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 39:
              printf("      \n法国法郎往来收支:");
              s_type[0]=109;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 40:
              printf("      \n法国法郎营业收支:");
              s_type[0]=110;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 41:
              printf("      \n法国法郎库存现金:");
              s_type[0]=111;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 42:
              printf("      \n法国法郎总计:");
              s_type[0]=120;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 43:
              printf("      \n港元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=1;
              break;
            case 44:
              printf("      \n港元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=3;
              break;
            case 45:
              printf("      \n港元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=6;
              break;
            case 46:
              printf("      \n港元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=12;
              break;
            case 47:
              printf("      \n港元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=24;
              break;
            case 48:
              printf("      \n港元整存整取小计:");
              s_type[0]=11;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 49:
              printf("      \n港元活期:");
              s_type[0]=12;
              cu_type[0]='H';
              ter[0]=0;
              break;
            case 50:
              printf("      \n港元合计:");
              s_type[0]=100;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 51:
              printf("      \n港元定期利息:");
              s_type[0]=101;
              cu_type[0]='H';
              ter[0]=1;
              break;
            case 52:
              printf("      \n港元活期利息:");
              s_type[0]=101;
              cu_type[0]='H';
              ter[0]=4;
              break;
            case 53:
              printf("      \n港元利息合计:");
              s_type[0]=101;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 54:
              printf("      \n港元买入:");
              s_type[0]=102;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 55:
              printf("      \n买入港元支付人民币:");
              s_type[0]=103;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 56:
              printf("      \n港元业务备用金:");
              s_type[0]=105;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 57:
              printf("      \n港元暂收款:");
              s_type[0]=106;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 58:
              printf("      \n港元暂付款:");
              s_type[0]=107;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 59:
              printf("      \n港元应付利息:");
              s_type[0]=108;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 60:
              printf("      \n港元往来收支:");
              s_type[0]=109;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 61:
              printf("      \n港元营业收支:");
              s_type[0]=110;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 62:
              printf("      \n港元库存现金:");
              s_type[0]=111;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 63:
              printf("      \n港元总计:");
              s_type[0]=120;
              cu_type[0]='H';
              ter[0]=100;
              break;
            case 64:
              printf("      \n日元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=1;
              break;
            case 65:
              printf("      \n日元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=3;
              break;
            case 66:
              printf("      \n日元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=6;
              break;
            case 67:
              printf("      \n日元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=12;
              break;
            case 68:
              printf("      \n日元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=24;
              break;
            case 69:
              printf("      \n日元整存整取小计:");
              s_type[0]=11;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 70:
              printf("      \n日元活期:");
              s_type[0]=12;
              cu_type[0]='J';
              ter[0]=0;
              break;
            case 71:
              printf("      \n日元合计:");
              s_type[0]=100;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 72:
              printf("      \n日元定期利息:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=1;
              break;
            case 73:
              printf("      \n日元活期利息:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=4;
              break;
            case 74:
              printf("      \n日元利息合计:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 75:
              printf("      \n日元买入:");
              s_type[0]=102;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 76:
              printf("      \n买入日元支付人民币:");
              s_type[0]=103;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 77:
              printf("      \n日元业务备用金:");
              s_type[0]=105;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 78:
              printf("      \n日元暂收款:");
              s_type[0]=106;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 79:
              printf("      \n日元暂付款:");
              s_type[0]=107;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 80:
              printf("      \n日元应付利息:");
              s_type[0]=108;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 81:
              printf("      \n日元往来收支:");
              s_type[0]=109;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 82:
              printf("      \n日元营业收支:");
              s_type[0]=110;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 83:
              printf("      \n日元库存现金:");
              s_type[0]=111;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 84:
              printf("      \n日元总计:");
              s_type[0]=120;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 85:
              printf("      \n德国马克整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=1;
              break;
            case 86:
              printf("      \n德国马克整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=3;
              break;
            case 87:
              printf("      \n德国马克整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=6;
              break;
            case 88:
              printf("      \n德国马克整存整取一年:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=12;
              break;
            case 89:
              printf("      \n德国马克整存整取两年:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=24;
              break;
            case 90:
              printf("      \n德国马克整存整取小计:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 91:
              printf("      \n德国马克活期:");
              s_type[0]=12;
              cu_type[0]='M';
              ter[0]=0;
              break;
            case 92:
              printf("      \n德国马克合计:");
              s_type[0]=100;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 93:
              printf("      \n德国马克定期利息:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=1;