sav_init2.ec

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

              break;
            case 14:
              printf("      \n加拿大元业务备用金:");
              s_type[0]=105;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 15:
              printf("      \n加拿大元暂收款:");
              s_type[0]=106;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 16:
              printf("      \n加拿大元暂付款:");
              s_type[0]=107;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 17:
              printf("      \n加拿大元应付利息:");
              s_type[0]=108;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 18:
              printf("      \n加拿大元往来收支:");
              s_type[0]=109;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 19:
              printf("      \n加拿大元营业收支:");
              s_type[0]=110;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 20:
              printf("      \n加拿大元库存现金:");
              s_type[0]=111;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 21:
              printf("      \n加拿大元总计:");
              s_type[0]=120;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 22:
              printf("      \n法国法郎整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=1;
              break;
            case 23:
              printf("      \n法国法郎整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=3;
              break;
            case 24:
              printf("      \n法国法郎整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=6;
              break;
            case 25:
              printf("      \n法国法郎整存整取一年:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=12;
              break;
            case 26:
              printf("      \n法国法郎整存整取两年:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=24;
              break;
            case 27:
              printf("      \n法国法郎整存整取小计:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 28:
              printf("      \n法国法郎活期:");
              s_type[0]=12;
              cu_type[0]='F';
              ter[0]=0;
              break;
            case 29:
              printf("      \n法国法郎合计:");
              s_type[0]=100;
              cu_type[0]='F';
              ter[0]=100;
              break;
            case 30:
              printf("      \n法国法郎定期利息:");
              s_type[0]=101;
              cu_type[0]='F';
              ter[0]=1;
              break;
            case 31:
              printf("      \n法国法郎活期利息:");
              s_type[0]=101;
              cu_type[0]='F';
              ter[0]=4;
              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';