proc.ec

在IBM RS6000小型机上AIX操作系统下INFORMIX数据库C源代码有通讯和管理程序

             memset(&shzh_msg,0,sizeof(shzh_file));
	     if(rcvbuf(&shzh_msg,sizeof(shzh_file))<0){
	     memcpy(msg->rc,PATR_UPDATE);return(0);}
	    break;
	case 21:
             memset(&djgy_msg,0,sizeof(djgy_file));
	     if(rcvbuf(&djgy_msg,sizeof(djgy_file))<0){
	     memcpy(msg->rc,PATR_UPDATE);return(0);}
	    break;
	case 22:
             memset(&sfjzh_msg,0,sizeof(sfjzh_file));
	     if(rcvbuf(&sfjzh_msg,sizeof(sfjzh_file))<0){
	     memcpy(msg->rc,PATR_UPDATE);return(0);}
	    break;
	case 23:
             memset(&sfjxm_msg,0,sizeof(sfjxm_file));
	     if(rcvbuf(&sfjxm_msg,sizeof(sfjxm_file))<0){
	     memcpy(msg->rc,PATR_UPDATE);return(0);}
	    break;
       default:break;
       }

	$begin work;
        switch(atoi(msg->flag)){
        case 1:
	$update operater_arch 
		set oper_code=$oper_msg.oper_code,
		    oper_name=$oper_msg.oper_name,
		    oper_passwd=$oper_msg.oper_passwd,
		    oper_level=$oper_msg.oper_level
		where oper_code=$oper_msg.oper_code;
           break;
        case 2:
	$update  jjdmb
		set dm=$jjdm_msg.dm,
		    mc=$jjdm_msg.xm
		where dm=$jjdm_msg.dm;
           break;
        case 3:
	$update  fktlb
		set dm=$fktl_msg.dm,
		    je=$fktl_msg.je,
		    mc=$fktl_msg.mc
		where dm=$fktl_msg.dm;
           break;
        case 4:
	$update  wtdwb
		set dwdm=$wtdw_msg.dwdm,
		    dwmc=$wtdw_msg.dwmc,
		    lxr=$wtdw_msg.lxr,
		    dh=$wtdw_msg.dh,
		    dz=$wtdw_msg.dz,
		    dslx=$wtdw_msg.dslx,
		    zh=$wtdw_msg.zh,
		    zhlx=$wtdw_msg.zhlx,
		    jzjydm=$wtdw_msg.jzjydm,
		    czjydm=$wtdw_msg.czjydm
		where dwdm=$wtdw_msg.dwdm;
           break;
        case 11:
	$update  fun_adm
		set fun_n=$funa_msg.fun_n,
		    fun_d=$funa_msg.fun_d,
		    fun_p=$funa_msg.fun_p,
		    fun_u=$funa_msg.fun_u,
		    fun_f=$funa_msg.fun_f,
		    fun_l=$funa_msg.fun_l 
		where fun_n=$funa_msg.fun_n;
           break;
        case 14:
	$update  dslxb
		set dslx=$dslx_msg.dslx,
		    dsmc=$dslx_msg.dsmc
		where dslx=$dslx_msg.dslx;
           break;
        case 17:
	$update  shzhb
		set sh=$shzh_msg.sh,
		    sm=$shzh_msg.sm,
		    bsc=$shzh_msg.bsc,
		    bscm=$shzh_msg.bscm
		where sh=$shzh_msg.sh;
           break;
        case 21:
	$update  djgyb
		set gyh=$djgy_msg.gyh,
		    gym=$djgy_msg.gym
		where gyh=$djgy_msg.gyh;
           break;
        case 22:
        qcjy=atof(sfjzh_msg.qcjy);
	$update  sfjzhb
		set sfdwzh=$sfjzh_msg.sfdwzh,
		    sfdwmc=$sfjzh_msg.sfdwmc,
                    qcjy=$qcjy
		where sfdwzh=$sfjzh_msg.sfdwzh;
           break;
        case 23:
	$update  sfjxmb
		set sfxm=$sfjxm_msg.sfxm,
		    xmmc=$sfjxm_msg.xmmc
		where sfxm=$sfjxm_msg.sfxm;
           break;
         defalut:break;
         }
	if(sqlca.sqlcode!=0) {
		memcpy(msg->rc,PATR_UPDATE,2);
		$rollback work;
		return(0);
	}
	$commit work;
	memcpy(msg->rc,PATR_OK,2);
	return(1);
}

proc14(msg)/*删除*/ 
DL_MSG *msg;
{
        int i;
	memset(msg->rc," ",2);
        switch(atoi(msg->flag)){
        case 1: 
	memset(&oper_msg,0,sizeof(oper_file));
        if(rcvbuf(&oper_msg,sizeof(oper_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 2: 
	memset(&jjdm_msg,0,sizeof(jjdm_file));
        if(rcvbuf(&jjdm_msg,sizeof(jjdm_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 3: 
	memset(&fktl_msg,0,sizeof(fktl_file));
        if(rcvbuf(&fktl_msg,sizeof(fktl_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 4: 
	memset(&wtdw_msg,0,sizeof(wtdw_file));
        if(rcvbuf(&wtdw_msg,sizeof(wtdw_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 11: 
	memset(&funa_msg,0,sizeof(funa_file));
        if(rcvbuf(&funa_msg,sizeof(funa_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 14: 
	memset(&dslx_msg,0,sizeof(dslx_file));
        if(rcvbuf(&dslx_msg,sizeof(dslx_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 17: 
	memset(&shzh_msg,0,sizeof(shzh_file));
        if(rcvbuf(&shzh_msg,sizeof(shzh_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 21: 
	memset(&djgy_msg,0,sizeof(djgy_file));
        if(rcvbuf(&djgy_msg,sizeof(djgy_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 22: 
	memset(&sfjzh_msg,0,sizeof(sfjzh_file));
        if(rcvbuf(&sfjzh_msg,sizeof(sfjzh_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        case 23: 
	memset(&sfjxm_msg,0,sizeof(sfjxm_file));
        if(rcvbuf(&sfjxm_msg,sizeof(sfjxm_file))<0){
        memcpy(msg->rc,PATR_UPDATE,2);return(0);}
        break;
        default:break;
        }
	$begin work;
        switch(atoi(msg->flag)){
        case 1:
	$delete from operater_arch  
		where oper_code=$oper_msg.oper_code;
         break;
        case 2:
	$delete from   jjdmb
		where dm=$jjdm_msg.dm;
         break;
        case 3:
	$delete from   fktlb
		where dm=$fktl_msg.dm;
         break;
        case 4:
	$delete from   wtdwb
		where dwdm=$wtdw_msg.dwdm;
         break;
        case 11:
	$delete from   fun_adm
		where fun_n=$funa_msg.fun_n;
         break;
        case 14:
	$delete from   dslxb
		where dslx=$dslx_msg.dslx;
         break;
        case 17:
	$delete from   shzhb
		where sh=$shzh_msg.sh;
         break;
        case 21:
	$delete from   djgyb
		where gyh=$djgy_msg.gyh;
         break;
        case 22:
        i=strlen(sfjzh_msg.sfdwzh);
        while(i<16)
           sfjzh_msg.sfdwzh[i++]=' ';
        sfjzh_msg.sfdwzh[i]='\0';
	$delete from   sfjzhb
		where sfdwzh=$sfjzh_msg.sfdwzh;
         break;
        case 23:
	$delete from   sfjxmb
		where sfxm=$sfjxm_msg.sfxm;
         break;
        default:break;
        }
	if (sqlca.sqlcode!=0){
		memcpy(msg->rc,PATR_UPDATE,2);
		$rollback work;
		return(0);
         }
	$commit work;
	memcpy(msg->rc,PATR_OK,2);
	return(1);
}
proc15(msg)/*显示*/
DL_MSG *msg;
{
int flag_f=0,flag;
$long whee;
$char str[301];
char str1[301];
char tmpname[30];
FILE *fp;
memset(msg->rc," ",2);
memset(str1,0,301);
strmove(str1,msg->temp,300);
sprintf(str,"select * from %s %s order by %s",msg->table,str1,msg->order);
$prepare s_2 from $str;
$declare cur_curs scroll cursor for s_2;
$open cur_curs;
if(sqlca.sqlcode!=0){
	memcpy(msg->rc,PATR_CXERR,2);
	return(0);
}
flag_f=1;
fp=fopen("/usr/hcdl/dlmg/server/report/sndfile","w");
flag=1;
while(flag_f){
switch(atoi(msg->flag)){
 case 1:
	if(flag==1)
        {
         fprintf(fp,"%-4s%-11s%-7s%-4s\n","号码","姓名","口令","级别");
         flag++;
	}		
	 $fetch cur_curs into $oper_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-4s%-11s%-7s%-4s\n",oper_msg.oper_code,oper_msg.oper_name,oper_msg.oper_passwd,oper_msg.oper_level);
	flag++;if(flag==21)flag=1;
	break;
 case 2:
	if(flag==1)
	{
        fprintf(fp,"%-10s%-15s%-24s%-14s%-10s\n","流水号","用户号","姓名","金额","交款时间");
	flag++;
	}
	 $fetch cur_curs into $ljls_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
	memset(tmpname,0x0,30);
	memcpy(tmpname,ljls_msg.xm,24);
        fprintf(fp,"%-10s%-15s%-24s%-14s%10s\n",ljls_msg.lsh,ljls_msg.yhh,tmpname,ljls_msg.je,ljls_msg.jkrq);
	flag++;if(flag==21)flag=1;
break;
case 3:
	if(flag==1) 
	{
        fprintf(fp,"%-10s%-15s%-24s%-14s%-10s\n","流水号","用户号","姓名","金额","交款时间");
	flag++;
	}
	 $fetch cur_curs into $lsls_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
	memset(tmpname,0x0,30);
	memcpy(tmpname,lsls_msg.xm,24);
        fprintf(fp,"%-10s%-15s%-24s%-14s%-10s\n",lsls_msg.lsh,lsls_msg.yhh,tmpname,lsls_msg.je,lsls_msg.jkrq);
	flag++;if(flag==21)flag=1;
break;
 case 4:
	if(flag==1)
	{
        fprintf(fp,"%-9s%-28s%-17s%-9s%-15s\n","单位代码","单位名称","单位帐号","联系人","电话");
	flag++;
	}
	 $fetch cur_curs into $wtdw_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-9s%-24s%-17s%-9s%15s\n",wtdw_msg.dwdm,wtdw_msg.dwmc,wtdw_msg.zh,wtdw_msg.lxr,wtdw_msg.dh);
	flag++;if(flag==21)flag=1;
  break;   
 case 5:
	if(flag==1)
 	{
        fprintf(fp,"%-14s%-14s%-14s\n","当前流水号","日期","日终日期");
	flag++;
	}
	 $fetch cur_curs into $lskz_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-14s%-14s%-14s\n",lskz_msg.mlsh,lskz_msg.rq,lskz_msg.rzrq);
	flag++;if(flag==21)flag=1;
break;
 case 6:
	if(flag==1)
       { 
	fprintf(fp,"%-12s%-10s\n","交警队号","交警队名");
	flag++;
	}
	 $fetch cur_curs into $jjdm_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-12s%-10s\n",jjdm_msg.dm,jjdm_msg.xm);
	flag++;if(flag==21)flag=1;
 break;
  case 7:
	if(flag==1)
	{
        fprintf(fp,"%-12s%-12s%-12s\n","违规代码","罚款金额","名    称");
	flag++;
	}
	 $fetch cur_curs into $fktl_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-12s%-12s%-12s\n",fktl_msg.dm,fktl_msg.je,fktl_msg.mc);
	flag++;if(flag==21)flag=1;
 break;
  case 8:
	if(flag==1)
	{

        fprintf(fp,"%-10s%-12s%-14s%-14s%-8s\n","流水号","交警队号","暂扣证号","总金额","罚款原因");
	flag++;
	}
	 $fetch cur_curs into $jjfk_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-10s%-12s%-14s%-14s%-8s\n",jjfk_msg.lsh,jjfk_msg.jjdh,jjfk_msg.pzbh,jjfk_msg.zje,jjfk_msg.wzdh);
	flag++;if(flag==21)flag=1;
 break;
  case 9:
	if(flag==1)
	{
        fprintf(fp,"%-6s%-20s%-10s%-17s%-11s%-10s\n","代号","单位名称","帐号","    金额","进帐标志","日期");
	flag++;
	}
	 $fetch cur_curs into $xjzz_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
	memset(tmpname,0x0,30);
	memcpy(tmpname,xjzz_msg.dwmc,20);
        fprintf(fp,"%-6s%-20s%-14s%-13s%-11s%10s\n",xjzz_msg.dwdm,tmpname,xjzz_msg.zh,xjzz_msg.je,xjzz_msg.jzbz,xjzz_msg.rq);
	flag++;if(flag==21)flag=1;
 break;
  case 10:
	if(flag==1)
	{
        fprintf(fp,"%-8s%-11s%-11s%-9s%-16s%-10s\n","所号","代收类型","单位代号","帐号","金额","日期");
	flag++;
	}
	 $fetch cur_curs into $cxsz_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-8s%-11s%-11s%-9s%-16s%-10s\n",cxsz_msg.sh,cxsz_msg.dslx,cxsz_msg.dwdh,cxsz_msg.zh,cxsz_msg.je,cxsz_msg.rq);
	flag++;if(flag==21)flag=1;
 break;
  case 11:
	if(flag==1)
	{
        fprintf(fp,"%-15s%-48s%-6s\n","函数名","说明","开放度");
	flag++;
	}
	 $fetch cur_curs into $funa_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-15s%-48s%-6s\n",funa_msg.fun_n,funa_msg.fun_d,funa_msg.fun_l);
	flag++;if(flag==21)flag=1;
 break;
  case 14:
	if(flag==1)
	{
        fprintf(fp,"%-12s%-28s\n","代收类型","代收名称");
	flag++;
	}
	 $fetch cur_curs into $dslx_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-12s%-28s\n",dslx_msg.dslx,dslx_msg.dsmc);
	flag++;if(flag==21)flag=1;
 break; 
  case 15:
	if(flag==1)
	{
        fprintf(fp,"%-12s%-16s%-12s%-14s%-10s\n","流水号","用户号","姓名","交款日期","金额");
	flag++;
	}
	 $fetch cur_curs into $xfmx_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        fprintf(fp,"%-12s%-16s%-12s%-14s%-10s\n",xfmx_msg.lsh,xfmx_msg.yhh,xfmx_msg.xm,xfmx_msg.jkrq,xfmx_msg.je);
	flag++;if(flag==21)flag=1;
 break; 
  case 16:
	if(flag==1)
        {
	/*fprintf(fp,"%-10s%-16s%-10s%-28s%-13s%-8s\n","用户号","委托帐号","日期","姓名","单位帐号","委托类型");
-------modi by zwx    */
	fprintf(fp,"%-11s%-29s%-16s%-5s%-13s\n","用户号","姓名","委托帐号","类型","单位帐号");
	flag++;
	}
	 $fetch cur_curs into $wtzl_msg;
	if(sqlca.sqlcode!=0){flag_f=0;break;}
        /*fprintf(fp,"%-10s%-16s%-10s%-28s%-13s%-8s\n",wtzl_msg.yhh,wtzl_msg.zh,wtzl_msg.rq,wtzl_msg.xm,wtzl_msg.dwzh,wtzl_msg.wtlx);
-------modi by zwx    */
        fprintf(fp,"%-11s%-29s%-16s%4s %-13s\n",wtzl_msg.yhh,wtzl_msg.xm,wtzl_msg.zh,wtzl_msg.wtlx,wtzl_msg.dwzh);
	flag++;if(flag==21)flag=1;
 break; 
 case 17:
	if (flag == 1)
	{
  	 fprintf(fp,"%-8s%-20s%-10s%-20s\n","所号","所名","支行号","支行名");
         flag++;
	}
	 $fetch cur_curs into $shzh_msg;
	 if(sqlca.sqlcode!=0){flag_f=0;break;}
  	 fprintf(fp,"%-8s%-20s%-10s%-20s\n",shzh_msg.sh,shzh_msg.sm,shzh_msg.bsc,shzh_msg.bscm);
         flag++;if(flag==21)flag=1;
 break;			
 case 18:
	if (flag == 1)
	{
  	 fprintf(fp,"%12s%14s%18s%10s%5s%5s%5s\n","信用卡号","电话号码","身份证号","姓名","类型","日期","类别");
         flag++;
	}
	 $fetch cur_curs into $phwt_msg;
	 if(sqlca.sqlcode!=0){flag_f=0;break;}
         phwt_msg.blrq[5]='\0';
  	 fprintf(fp,"%-17s%-16s%-16s%-9s%-2s%-6s%-3s\n",phwt_msg.card_id,phwt_msg.phone_num,phwt_msg.man_id,phwt_msg.name,phwt_msg.wt_type,phwt_msg.blrq,phwt_msg.type);
         flag++;if(flag==21)flag=1;

 break;			
 case 19:
	if (flag == 1)
	{
  	 fprintf(fp,"%12s%14s%12s%12s%10s%10s\n","信用卡号","电话号码","扣款类别","扣款日期","合计金额","月份");
         flag++;
	}
	 $fetch cur_curs into $phls_msg;
	 if(sqlca.sqlcode!=0){flag_f=0;break;}
  	 fprintf(fp,"%-17s%-16s%-8s%-12s%-13s%-5s\n",phls_msg.card_id,phls_msg.phone_num,phls_msg.bzw,phls_msg.dkrq,phls_msg.hjje,phls_msg.yfen);
         flag++;if(flag==21)flag=1;

 break;			
 case 20:
	if (flag == 1)
	{
  	 fprintf(fp,"%12s%14s%12s%12s%10s%10s\n","信用卡号","电话号码","扣款类别","扣款日期","合计金额","月份");
         flag++;
	}
	 $fetch cur_curs into $phdk_msg;
	 if(sqlca.sqlcode!=0){flag_f=0;break;}
  	 fprintf(fp,"%-17s%-16s%-8s%-12s%-13s%-5s\n",phdk_msg.card_id,phdk_msg.phone_num,phdk_msg.bzw,phdk_msg.dkrq,phdk_msg.hjje,phdk_msg.yfen);
         flag++;if(flag==21)flag=1;

 break;			
 case 21:
	if (flag == 1)
	{
  	 fprintf(fp,"%8s%12s%\n","柜员号","柜员名");
         flag++;
	}
	 $fetch cur_curs into $djgy_msg;
	 if(sqlca.sqlcode!=0){flag_f=0;break;}
  	 fprintf(fp,"%7s%16s%\n",djgy_msg.gyh,djgy_msg.gym);
         flag++;if(flag==21)flag=1;

 break;			
 case 22:
	if(flag==1)
       { 
	fprintf(fp,"%-16s%-40s%-15s\n","单位帐号","单位名称","年初结余");