ebcsav.c

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

          sprintf(s,"/u/ebcsav/bin/change_cal %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
  }

short settl_op(num_c)
short num_c;
  {
    static char *title[4]={"0.  返  回  ","1.  轧帐单  ","2.凭证收付表",
      "3.凭证整理单"};
    static char *remind[4]={"  返回主选择单  ","  打印本操作员的轧帐单  ",
      "  打印本操作员的重要凭证收付表  ","  打印本操作员的凭证整理单  "};
    static short menu_row[4]={6,7,8,9},menu_col[4]={45,45,45,45};
    block(5,43,6,16);
    num_c=menu(title,remind,menu_row,menu_col,3,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,3,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/pt_op_sett %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/pt_op_cred %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/pt_op_summ %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short statement(num_c)
short num_c;
  {
    static char *title[13]={"0.  返  回  ","1.  轧帐单  ","2.  余额表  ",
      "3. 营业报表 ","4. 开户清单 ","5. 挂解清单 ","6.  流水帐  ",
      "7. 凭 证 表 ","8. 换折清单 ","9. 修改清单 ","a.凭证整理单",
      "b. 帐户清单 ","c. 帐户明细 "};
    static char *remind[13]={"  返回主选择单  ","  打印系统轧帐单  ",
      "  打印余额表  ","  打印营业日、月、季、年报表  ","  打印开户清单  ",
      "  打印挂失、解挂、冻结、解冻清单  ","  打印流水帐  ",
      "  打印重要凭证收付情况统计报表  ","  打印换折登记表  ",
      "  打印帐户信息修改登记表  ","  打印凭证整理单  ",
      "  打印帐户信息  ", "  打印帐户明细信息  "};
    static short menu_row[13]={6,7,8,9,10,11,12,13,14,15,16,17,18},
      menu_col[13]={45,45,45,45,45,45,45,45,45,45,45,45,45};
    static char *title1[5]={"0.  返  回  ","1.  日报表  ","2.  月报表  ",
      "3.  季报表  ","4.  年报表  "};
    static char *remind1[5]={"  返回主选择单  ","  打印营业日报表  ",
      "  打印营业月报表  ","  打印营业季报表  ","  打印营业年报表  "};
    static short menu_row1[5]={10,11,12,13,14},menu_col1[5]={35,35,35,35,35};
    short num_c1;
    block(5,43,15,16);
    num_c1=0;
    num_c=menu(title,remind,menu_row,menu_col,12,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,12,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/pt_sy_sett %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/pt_balance %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          block(9,33,7,16);
          num_c1=menu(title1,remind1,menu_row1,menu_col1,4,num_c1);
          num_c1=menusel(title1,remind1,menu_row1,menu_col1,4,num_c1,0);
          switch(num_c1)
            {
              case 0:
                return;
              case 1:
                sprintf(s,"/u/ebcsav/bin/pt_state_d %c%c sys%c%c",
                  op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
                system(s);
                break;
              case 2:
                sprintf(s,"/u/ebcsav/bin/pt_state_m %c%c sys%c%c",
                  op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
                system(s);
                break;
              case 3:
                sprintf(s,"/u/ebcsav/bin/pt_state_q %c%c sys%c%c",
                  op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
                system(s);
                break;
              case 4:
                sprintf(s,"/u/ebcsav/bin/pt_state_y %c%c sys%c%c",
                  op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
                system(s);
            }
          break;
        case 4:
          sprintf(s,"/u/ebcsav/bin/pt_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 5:
          sprintf(s,"/u/ebcsav/bin/pt_hang %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 6:
          sprintf(s,"/u/ebcsav/bin/pt_blot %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 7:
          sprintf(s,"/u/ebcsav/bin/pt_sy_cred %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 8:
          sprintf(s,"/u/ebcsav/bin/pt_repl %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 9:
          sprintf(s,"/u/ebcsav/bin/pt_change %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 10:
          sprintf(s,"/u/ebcsav/bin/pt_sy_summ %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 11:
          sprintf(s,"/u/ebcsav/bin/pt_acc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 12:
          sprintf(s,"/u/ebcsav/bin/pt_sched %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short fix(num_c)
short num_c;
  {
    static char *title[5]={"0.  返  回  ","1.  开  户  ","2.  销  户  ",
      "3. 部分支取 ","4.  转  存  "};
    static char *remind[5]={"  返回主选择单  ","  办理整存整取开户  ",
      "  办理整存整取销户  ","  办理整存整取部分提前支取  ",
      "  办理整存整取销户并将本息合并重新开户  "};
    static short menu_row[5]={6,7,8,9,10},
      menu_col[5]={54,54,54,54,54};
    block(5,52,7,16);
    num_c=menu(title,remind,menu_row,menu_col,4,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,4,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/fix_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/fix_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/fix_pay %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 4:
          sprintf(s,"/u/ebcsav/bin/fix_reopen %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short demand(num_c)
short num_c;
  {
    static char *title[8]={"0.  返  回  ","1.  开  户  ","2.  销  户  ",
      "3.  续  存  ","4.  支  取  ","5.  转  帐  ","6.  登  折  ",
      "7.  换  折  "};
    static char *remind[8]={"  返回主选择单  ","  办理活期储蓄开户  ",
      "  办理活期储蓄销户  ","  办理活期储蓄现金续存  ",
      "  办理活期储蓄支取  ","  办理活期储蓄转帐续存  ",
      "  将活期储蓄中未记入存折的业务在存折上打印  ",
      "  办理活期储蓄存折的更换  "};
    static short menu_row[8]={6,7,8,9,10,11,12,13},
      menu_col[8]={54,54,54,54,54,54,54,54};
    block(5,52,10,16);
    num_c=menu(title,remind,menu_row,menu_col,7,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,7,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/dem_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/dem_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/dem_depo %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 4:
          sprintf(s,"/u/ebcsav/bin/dem_pay %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 5:
          sprintf(s,"/u/ebcsav/bin/dem_tran %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 6:
          sprintf(s,"/u/ebcsav/bin/dem_prt %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 7:
          sprintf(s,"/u/ebcsav/bin/dem_repl %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short dated(num_c)
short num_c;
  {
    static char *title[5]={"0.  返  回  ","1.  开  户  ","2.  销  户  ",
      "3.  续  存  ","4.  换  折  "};
    static char *remind[5]={"  返回主选择单  ","  办理零存整取开户  ",
      "  办理零存整取销户  ","  办理零存整取续存  ",
      "  办理零存整取存折的更换  "};
    static short menu_row[5]={6,7,8,9,10},
      menu_col[5]={54,54,54,54,54};
    block(5,52,7,16);
    num_c=menu(title,remind,menu_row,menu_col,4,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,4,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/dated_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/dated_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/dated_depo %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 4:
          sprintf(s,"/u/ebcsav/bin/dated_repl %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short large(num_c)
short num_c;
  {
    static char *title[3]={"0.  返  回  ","1.  开  户  ","2.  销  户  "};
    static char *remind[3]={"  返回主选择单  ","  办理大额储蓄开户  ",
      "  办理大额储蓄销户  "};
    static short menu_row[3]={6,7,8},
      menu_col[3]={54,54,54};
    block(5,52,5,16);
    num_c=menu(title,remind,menu_row,menu_col,2,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,2,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/large_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/large_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short call(num_c)
short num_c;
  {
    static char *title[5]={"0.  返  回  ","1.  开  户  ","2.  销  户  ",
      "3.  支  取  ","4.  换  折  "};
    static char *remind[5]={"  返回主选择单  ","  办理通知存款开户  ",
      "  办理通知存款销户  ","  办理通知存款支取  ",
      "  办理通知存款存折的更换  "};
    static short menu_row[5]={6,7,8,9,10},
      menu_col[5]={54,54,54,54,54};
    block(5,52,7,16);
    num_c=menu(title,remind,menu_row,menu_col,4,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,4,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/call_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/call_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/call_pay %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 4:
          sprintf(s,"/u/ebcsav/bin/call_repl %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

short house(num_c)
short num_c;
  {
    static char *title[4]={"0.  返  回  ","1.  开  户  ","2.  销  户  ",
      "3.  转  存  "};
    static char *remind[4]={"  返回主选择单  ","  办理住房基金开户  ",
      "  办理住房基金销户  ","  办理住房基金转存  "};
    static short menu_row[4]={6,7,8,9},
      menu_col[4]={54,54,54,54};
    block(5,52,6,16);
    num_c=menu(title,remind,menu_row,menu_col,3,num_c);
    num_c=menusel(title,remind,menu_row,menu_col,3,num_c,0);
    switch(num_c)
      {
        case 1:
          sprintf(s,"/u/ebcsav/bin/house_open %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 2:
          sprintf(s,"/u/ebcsav/bin/house_canc %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
          break;
        case 3:
          sprintf(s,"/u/ebcsav/bin/house_tran %c%c sys%c%c",
            op_num/10+48,(op_num%10)+48,(month%10)+97,(day%10)+97);
          system(s);
      }
    return num_c;
  }

#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>
#include </u/ebcsav/include/get_op>
#include </u/ebcsav/include/block>
#include </u/ebcsav/include/num_date>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/mess>