reset_dated.ec

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

/*   活期登折   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspace();
void addspacef();
void mess();
char y_n();
char readdv();
char readst();
char readch();
long ac_num();
void prt_inum();
void prt_dnum();
#include </u/ebcsav/include/begin>
double x;
long k,i,j=0,p=0;
unsigned char c;
char st[30],yn;
$ char s_num[2],nam[9],cu_type[2],fg[2];
$ long a_num,cr_num,ope_date,cr_num1,b_num,p_date;
$ double amoun,inte,amou,balan;
$ short cred_type;
$ long cred_num,i_date,l_date;
$ char ope_num[2],s_type[2],sta[2],l_num[2];
$ database saving;
move(2,25);
printw("复  位  补  存  标  志");
ope_num[0]=op_num;
ope_num[1]='\0';
s_num[0]=op.num&0x7f;
s_num[1]='\0';
l_num[0]=1;
l_num[1]='\0';
fg[1]='\0';
s_type[1]='\0';
nam[0]='\0';
sta[1]='\0';
cu_type[0]=((op.type&1)==1)?'R':'U';
cu_type[1]='\0';
ope_date=year*10000+month*100+day;
amoun=0.0;
amou=0.0;
move(23,16);
standout();
mess(1);
standend();
move(3,10);
addstr("帐    号: ");
move(3,20);
prt_inum(s_num[0],2);
addstr("－");
$ declare blot scroll cursor for select acc_num,flag into $a_num,$fg 
  from r_dated where status!="E" and status!="B";
p=0;
$ open blot;
$ begin work;
while(1)
  {
    $ fetch blot;
    if(sqlca.sqlcode!=0)break;
    if((fg[0]&0x2)==2)
     {
       move(3,25);
       prt_inum(a_num,8);
       getch();
       fg[0]-=2;
       $ update r_dated set flag=$fg where acc_num=$a_num;
       if(sqlca.sqlerrd[2]!=1)
         {
           addstr("写");
           mess(14);
           printw("(%d), ",sqlca.sqlcode);
           p=1;
           getch();
           break;
         }
     }
    else continue;
  }
   if(p==1)
     {
      $ rollback work;
     }
   else
     {
      $ commit work;
     }
$ close blot;
$ close database;
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/prt_inum>
#include </u/ebcsav/include/prt_dnum>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/ac_num>