sav_init2.ec

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

              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;
              break;
            case 94:
              printf("      \n德国马克活期利息:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=4;
              break;
            case 95:
              printf("      \n德国马克利息合计:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 96:
              printf("      \n德国马克买入:");
              s_type[0]=102;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 97:
              printf("      \n买入德国马克支付人民币:");
              s_type[0]=103;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 98:
              printf("      \n德国马克业务备用金:");
              s_type[0]=105;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 99:
              printf("      \n德国马克暂收款:");
              s_type[0]=106;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 100:
              printf("      \n德国马克暂付款:");
              s_type[0]=107;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 101:
              printf("      \n德国马克应付利息:");
              s_type[0]=108;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 102:
              printf("      \n德国马克往来收支:");
              s_type[0]=109;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 103:
              printf("      \n德国马克营业收支:");
              s_type[0]=110;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 104:
              printf("      \n德国马克库存现金:");
              s_type[0]=111;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 105:
              printf("      \n德国马克总计:");
              s_type[0]=120;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 106:
              printf("      \n英镑整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=1;
              break;
            case 107:
              printf("      \n英镑整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=3;
              break;
            case 108:
              printf("      \n英镑整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=6;
              break;
            case 109:
              printf("      \n英镑整存整取一年:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=12;
              break;
            case 110:
              printf("      \n英镑整存整取两年:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=24;
              break;
            case 111:
              printf("      \n英镑整存整取小计:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 112:
              printf("      \n英镑活期:");
              s_type[0]=12;
              cu_type[0]='P';
              ter[0]=0;
              break;
            case 113:
              printf("      \n英镑合计:");
              s_type[0]=100;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 114:
              printf("      \n英镑定期利息:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=1;
              break;
            case 115:
              printf("      \n英镑活期利息:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=4;
              break;
            case 116:
              printf("      \n英镑利息合计:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 117:
              printf("      \n英镑买入:");
              s_type[0]=102;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 118:
              printf("      \n买入英镑支付人民币:");
              s_type[0]=103;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 119:
              printf("      \n英镑业务备用金:");
              s_type[0]=105;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 120:
              printf("      \n英镑暂收款:");
              s_type[0]=106;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 121:
              printf("      \n英镑暂付款:");
              s_type[0]=107;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 122:
              printf("      \n英镑应付利息:");
              s_type[0]=108;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 123:
              printf("      \n英镑往来收支:");
              s_type[0]=109;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 124:
              printf("      \n英镑营业收支:");
              s_type[0]=110;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 125:
              printf("      \n英镑库存现金:");
              s_type[0]=111;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 126:
              printf("      \n英镑总计:");
              s_type[0]=120;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 127:
              printf("      \n美元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=1;
              break;
            case 128:
              printf("      \n美元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=3;
              break;
            case 129:
              printf("      \n美元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=6;
              break;
            case 130:
              printf("      \n美元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=12;
              break;
            case 131:
              printf("      \n美元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=24;
              break;
            case 132:
              printf("      \n美元整存整取小计:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 133:
              printf("      \n美元活期:");
              s_type[0]=12;
              cu_type[0]='U';
              ter[0]=0;
              break;
            case 134:
              printf("      \n美元合计:");
              s_type[0]=100;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 135:
              printf("      \n美元定期利息:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=1;
              break;
            case 136:
              printf("      \n美元活期利息:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=4;
              break;
            case 137:
              printf("      \n美元利息合计:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 138:
              printf("      \n美元买入:");
              s_type[0]=102;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 139:
              printf("      \n买入美元支付人民币:");
              s_type[0]=103;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 140:
              printf("      \n美元业务备用金:");
              s_type[0]=105;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 141:
              printf("      \n美元暂收款:");
              s_type[0]=106;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 142:
              printf("      \n美元暂付款:");
              s_type[0]=107;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 143:
              printf("      \n美元应付利息:");
              s_type[0]=108;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 144:
              printf("      \n美元往来收支:");
              s_type[0]=109;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 145:
              printf("      \n美元营业收支:");
              s_type[0]=110;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 146:
              printf("      \n美元库存现金:");
              s_type[0]=111;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 147:
              printf("      \n美元总计:");
              s_type[0]=120;
              cu_type[0]='U';
              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 f_month
          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");
    for(i=1;i<=147;i++)
      {
        switch(i)
          {
            case 1:
              printf("      \n加拿大元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=1;
              break;
            case 2:
              printf("      \n加拿大元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=3;
              break;
            case 3:
              printf("      \n加拿大元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=6;
              break;
            case 4:
              printf("      \n加拿大元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=12;
              break;
            case 5:
              printf("      \n加拿大元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='C';