work_end.c

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

/*   work_end    */
#include </u/ebcsav/include/sav.h>
void type_op();
char edit_op();
void addspace();
char y_n();
void mess();
char readch();
char readdv();
char readst();
#include </u/ebcsav/include/begin>
FILE *pf;
struct operator opt;
short opt_num,i;
char c;
char s[7];
move(0,30);
standout();
printw("  停 业 处 理  ");
standend();
i=4;
opt_num=0;
while(1)
  {
    opt_num++;
    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)) break;
    fclose(pf);
    if(((opt.priv&0x40)!=0)&&(op_num!=opt_num))
    {
      move(i,10);
      printw(" %d 正在营业, 不能停业!!!",opt_num);
      getch();
      i++;
    };
    opt.priv|=0x80;
    if(op_num!=opt_num) opt.priv&=0xbf;
    while((pf=fopen("/u/ebcsav/data/sav_op.dat","r+"))==NULL);
    fseek(pf,(opt_num-1)*17,0);
    fwrite(&opt,17,1,pf);
    fclose(pf);
  }
    fclose(pf);
move(i,10);
printw("停业已完成,按任意键返回");
getch();
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/type_op>
#include </u/ebcsav/include/edit_op>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>