work_begin.c

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

/*   work_begin  */
#include </u/ebcsav/include/sav.h>
char y_n();
char readdv();
#include </u/ebcsav/include/begin>
FILE *pf;
struct operator opt;
short opt_num,i;
long d;
double j;
char c,c1;
char s[7];
move(0,30);
standout();
printw("  开 业 处 理  ");
standend();
if((pf=fopen("/u/ebcsav/data/init_date.dat","r"))==NULL) d=0;
else
  {
    fread(&d,4,1,pf);
    fclose(pf);
  }
if(year*10000+month*100+day!=d)
  {
    move(10,20);
    addstr("今日尚未做初始化处理, 是否开业(Y/N)? ");
    c=y_n('Y','N','N');
    if(c=='N')
      {
        endwin();
        return;
      }
  }
move(17,10);
standout();
printw("  请选择:  (O)单操作员   (A)全部操作员   (N)退出     ");
standend();
c=y_n('O','A','N');
if(c=='N') return;
if(c=='O')
{
opt_num=0;
while(opt_num==0)
  {
  move(12,20);
  printw("  操作员号:  ");
  j=0;
  c1=readdv(&j,4);
  opt_num=j;    
  }
  while((pf=fopen("/u/ebcsav/data/sav_op.dat","r+"))==NULL);
  fseek(pf,(opt_num-1)*17,0);
  fread(&opt,17,1,pf);
  if(!feof(pf))
    { 
     opt.priv&=0x7f;
     fseek(pf,(opt_num-1)*17,0);
     fwrite(&opt,17,1,pf);
    }
  fclose(pf);
}
if(c=='A')
{
while((pf=fopen("/u/ebcsav/data/sav_op.dat","r+"))==NULL);
opt_num=0;
while(1)
  {
    opt_num++;
    fseek(pf,(opt_num-1)*17,0);
    fread(&opt,17,1,pf);
    if(feof(pf)) break;
    opt.priv&=0x7f;
    fseek(pf,(opt_num-1)*17,0);
    fwrite(&opt,17,1,pf);
  }
fclose(pf);
}
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/readdv>