sjcjphzh.sqc

本人写的在AIX下的用SQLC开发的处理DB2数据库中业务的程序

        
        temppos=0;
        i=0;
        for (k=1;k<18;k++)
        {
          if (k!=1)
          {
       		temppos=temppos+i+1;
          }
          if (k==1) 
          {
          	i=strcspn(m_oldvalue,"|");
          	printf("%d\n",i);
          }
          else
          {
          	i=strcspn((char*) (m_oldvalue+temppos),"|");
          }
          if (k==8)
            strncpy(m_cust_no,(char*) (m_oldvalue+temppos),i);
          if (k==10)
            strncpy(m_holder_acc_no,(char*) (m_oldvalue+temppos),i);
          if (k==16)
            strncpy(m_market_code,(char*) (m_oldvalue+temppos),i);
          if (k==21)
            strncpy(m_rpt_acc_no,(char*) (m_oldvalue+temppos),i);
        }
        
        trim(m_cust_no);
        trim(m_oldzydm);
        trim(m_oldzymc);
        trim(m_market_code);
        trim(m_holder_acc_no);
        trim(m_rpt_acc_no);
        if (strcmp(m_market_code,"1")==0)
          strcpy(m_xkm_scbm,"1");
        if (strcmp(m_market_code,"2")==0)
          strcpy(m_xkm_scbm,"0");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_scbm,"3");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_scbm,"2");
        if (strcmp(m_market_code,"")==0)
          strcpy(m_xkm_scbm,"");
       
        if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"1")==0))
        {
          strcpy(m_xkm_gddm,(char*)(m_holder_acc_no+1));
          strcpy(m_xkm_rpt_accno,(char*)(m_rpt_acc_no+1));
        }
        else
        {
          strcpy(m_xkm_gddm,m_holder_acc_no);
          strcpy(m_xkm_rpt_accno,m_rpt_acc_no);
	}
        if ((strcmp(m_market_code,"1")==0) || (strcmp(m_market_code,"2")==0))
          strcpy(m_xkm_hbdm,"00");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_hbdm,"02");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_hbdm,"01");
        
      	sprintf(data,"0%s,%s,%s,%s,%s,%s,%06d",m_cust_no,m_xkm_gddm,m_xkm_scbm,m_xkm_rpt_accno,m_oldzydm,m_oldzymc,icntfetch);
      	
        len = strlen(data);
      	
      	fprintf(fp,"1%07d",icntfetch);
      	fprintf(fp,"%4s",m_zydm);
      	fprintf(fp,"%04d",len);
      	fprintf(fp,"%8s",m_occur_date);
      	memset(outtime,0x0,sizeof(outtime));
      	outtime[0]=m_occur_time[0];
      	outtime[1]=m_occur_time[1];
      	outtime[2]=m_occur_time[3];
      	outtime[3]=m_occur_time[4];
      	outtime[4]=m_occur_time[6];
      	outtime[5]=m_occur_time[7];
      	outtime[6]='0';
      	outtime[7]='0';
      	fprintf(fp,"%8s",outtime);
      	fprintf(fp,"%c",m_xkm_hbdm[1]);
      	fprintf(fp,"0%s",(char*) (m_emp_code+3));
      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
      }
      
      /*4004,4005 挂失解挂股东代码*/
      if ((strcmp(m_zydm,"4004")==0) || (strcmp(m_zydm,"4005")==0))
      {
        printf("4004\n");
        memset(tempvalue,0x00,sizeof(tempvalue));
        memset(m_holder_acc_no,0x00,sizeof(m_holder_acc_no));
        strcpy(tempvalue,m_thisvalue);
        
        temppos=0;
        i=0;
        printf(m_thisvalue);
        printf("\n");
        for (k=1;k<4;k++)
        {
          if (k!=1)
          {
       		temppos=temppos+i+1;
          }
          if (k==1) 
          {
          	i=strcspn(m_thisvalue,"|");
          }
          else
          {
          	i=strcspn((char*) (m_thisvalue+temppos),"|");
          }
          if (k==1)
            strncpy(m_market_code,m_thisvalue,i);
          if (k==2)
            strncpy(m_holder_acc_no,(char*) (m_thisvalue+temppos),i);
        }
      	
        trim(m_cust_no);
        trim(m_oldzydm);
        trim(m_oldzymc);
        trim(m_market_code);
        trim(m_holder_acc_no);
        if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"1")==0))
          strcpy(m_xkm_gddm,(char*)(m_holder_acc_no+1));
        else
          strcpy(m_xkm_gddm,m_holder_acc_no);
        
        if (strcmp(m_market_code,"1")==0)
	  strcpy(m_xkm_scbm,"1");
        if (strcmp(m_market_code,"2")==0)
          strcpy(m_xkm_scbm,"0");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_scbm,"3");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_scbm,"2");
        if (strcmp(m_market_code,"")==0)
          strcpy(m_xkm_scbm,"");

        if ((strcmp(m_market_code,"1")==0) || (strcmp(m_market_code,"2")==0))
          strcpy(m_xkm_hbdm,"00");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_hbdm,"02");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_hbdm,"01");
          
      	sprintf(data,"0%s,%s,%s,%s,%s,%06d",m_cust_no,m_xkm_gddm,m_xkm_scbm,m_oldzydm,m_oldzymc,icntfetch);
      	
        len = strlen(data);
      	
      	fprintf(fp,"1%07d",icntfetch);
      	fprintf(fp,"%4s",m_zydm);
      	fprintf(fp,"%04d",len);
      	fprintf(fp,"%8s",m_occur_date);
      	memset(outtime,0x0,sizeof(outtime));
      	outtime[0]=m_occur_time[0];
      	outtime[1]=m_occur_time[1];
      	outtime[2]=m_occur_time[3];
      	outtime[3]=m_occur_time[4];
      	outtime[4]=m_occur_time[6];
      	outtime[5]=m_occur_time[7];
      	outtime[6]='0';
      	outtime[7]='0';
      	fprintf(fp,"%8s",outtime);
      	fprintf(fp,"%c",m_xkm_hbdm[1]);
      	fprintf(fp,"0%s",(char*) (m_emp_code+3));
      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
      }
      
      /*4007 股东资料修改 由于不写流水，暂不采集*/
      
      /*4008 委托方式修改*/
      if ((strcmp(m_zydm,"4008")==0))
      {
        printf("4008\n");
        memset(tempvalue,0x00,sizeof(tempvalue));
        strcpy(tempvalue,m_thisvalue);
        trim(tempvalue);
        wtfslen=strlen(tempvalue);
        icntfetch--;
        for (k=0;k<wtfslen;k++)
        {
	        icntfetch++;
		m_newwtfs[0]=tempvalue[k];
		m_newwtfs[1]=0;
	        GetEntrustMethod(1,m_newwtfs,m_wtfs,m_wtfsmc);
        	trim(m_cust_no);
	        trim(m_oldzydm);
	        trim(m_oldzymc);
	        trim(m_wtfs);

		strcpy(m_xkm_hbdm,"00");
	      	sprintf(data,"0%s,%s,%s,%s,%06d",m_cust_no,m_wtfs,m_oldzydm,m_oldzymc,icntfetch);
      	
	        len = strlen(data);
      	
	      	fprintf(fp,"1%07d",icntfetch);
	      	fprintf(fp,"%4s",m_zydm);
	      	fprintf(fp,"%04d",len);
	      	fprintf(fp,"%8s",m_occur_date);
	      	memset(outtime,0x0,sizeof(outtime));
	      	outtime[0]=m_occur_time[0];
	      	outtime[1]=m_occur_time[1];
	      	outtime[2]=m_occur_time[3];
	      	outtime[3]=m_occur_time[4];
	      	outtime[4]=m_occur_time[6];
	      	outtime[5]=m_occur_time[7];
	      	outtime[6]='0';
	      	outtime[7]='0';
	      	fprintf(fp,"%8s",outtime);
	      	fprintf(fp,"%c",m_xkm_hbdm[1]);
	      	fprintf(fp,"0%s",(char*) (m_emp_code+3));
	      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
        }        
      }
      
      /*4010 手续费折扣 还没有做*/
      
      /*4011 股东代码更换*/
      if ((strcmp(m_zydm,"4011")==0))
      {
        printf("4011\n");
        temppos=0;
        i=0;
        for (k=1;k<4;k++)
        {
          if (k!=1)
          {
       		temppos=temppos+i+1;
          }
          if (k==1) 
          {
          	i=strcspn(m_thisvalue,"|");
          }
          else
          {
          	i=strcspn((char*) (m_thisvalue+temppos),"|");
          }
          if (k==2)
            strncpy(m_dydm,(char*) (m_thisvalue+temppos),i);
          if (k==1)
            strncpy(m_market_code,m_thisvalue,i);
        }
      
        temppos=0;
        i=0;
        for (k=1;k<4;k++)
        {
          if (k!=1)
          {
       		temppos=temppos+i+1;
          }
          if (k==1) 
          {
          	i=strcspn(m_oldvalue,"|");
          }
          else
          {
          	i=strcspn((char*) (m_oldvalue+temppos),"|");
          	if (i==0)
          		break;
          }
          if (k==2)
            strncpy(m_holder_acc_no,(char*) (m_oldvalue+temppos),i);
        }
        
        trim(m_cust_no);
        trim(m_oldzydm);
        trim(m_oldzymc);
        trim(m_holder_acc_no);
        trim(m_market_code);
        trim(m_dydm);
        if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"1")==0))
          strcpy(m_xkm_gddm,(char*)(m_holder_acc_no+1));
        else
          strcpy(m_xkm_gddm,m_holder_acc_no);
        
        if (strcmp(m_market_code,"1")==0)
          strcpy(m_xkm_scbm,"1");
        if (strcmp(m_market_code,"2")==0)
          strcpy(m_xkm_scbm,"0");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_scbm,"3");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_scbm,"2");
        if (strcmp(m_market_code,"")==0)
          strcpy(m_xkm_scbm,"");
          
        if ((strcmp(m_market_code,"1")==0) || (strcmp(m_market_code,"2")==0))
          strcpy(m_xkm_hbdm,"00");
        if (strcmp(m_market_code,"3")==0)
          strcpy(m_xkm_hbdm,"02");
        if (strcmp(m_market_code,"4")==0)
          strcpy(m_xkm_hbdm,"01");
        
      	sprintf(data,"0%s,%s,%s,%s,%s,%s,%06d",
      	 m_cust_no,m_xkm_gddm,m_xkm_scbm,m_dydm,m_oldzydm,m_oldzymc,icntfetch);
      	
        len = strlen(data);
      	
      	fprintf(fp,"1%07d",icntfetch);
      	fprintf(fp,"%4s",m_zydm);
      	fprintf(fp,"%04d",len);
      	fprintf(fp,"%8s",m_occur_date);
      	memset(outtime,0x0,sizeof(outtime));
      	outtime[0]=m_occur_time[0];
      	outtime[1]=m_occur_time[1];
      	outtime[2]=m_occur_time[3];
      	outtime[3]=m_occur_time[4];
      	outtime[4]=m_occur_time[6];
      	outtime[5]=m_occur_time[7];
      	outtime[6]='0';
      	outtime[7]='0';
      	fprintf(fp,"%8s",outtime);
      	fprintf(fp,"%c",m_xkm_hbdm[1]);
      	fprintf(fp,"0%s",(char*) (m_emp_code+3));
      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
      }
      
      /*4015 客户销户,个人认为没有必要加入股东代码*/
      if ((strcmp(m_zydm,"4015")==0))
      {
        printf("4015\n");
      	EXEC SQL SELECT CERT_NO,NAME into :m_sfzh,:m_gdxm from ks.cust_base_info 
      		where BRANCH_CODE=:m_branch_code and CUST_NO=:m_cust_no;
      	
      	strcpy(m_xkm_hbdm,"00");	
      	sprintf(data,"0%s,0%3s,%s,%s,%06d",m_cust_no,(char*)(m_emp_code+3),m_oldzydm,m_oldzymc,icntfetch);
      	
        len = strlen(data);
      	
      	fprintf(fp,"1%07d",icntfetch);
      	fprintf(fp,"%4s",m_zydm);
      	fprintf(fp,"%04d",len);
      	fprintf(fp,"%8s",m_occur_date);
      	memset(outtime,0x0,sizeof(outtime));
      	outtime[0]=m_occur_time[0];
      	outtime[1]=m_occur_time[1];
      	outtime[2]=m_occur_time[3];
      	outtime[3]=m_occur_time[4];
      	outtime[4]=m_occur_time[6];
      	outtime[5]=m_occur_time[7];
      	outtime[6]='0';
      	outtime[7]='0';
      	fprintf(fp,"%8s",outtime);
      	fprintf(fp,"%c",m_xkm_hbdm[1]);
      	fprintf(fp,"0%s",(char*) (m_emp_code+3));
      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
      }

      /*4018 4019 股东代码冻结,股东代码解冻*/
      if ((strcmp(m_zydm,"4018")==0) || (strcmp(m_zydm,"4019")==0))
      {
        printf("4018\n");
        temppos=0;
        i=0;
        for (k=1;k<3;k++)
        {
          if (k!=1)
          {
       		temppos=temppos+i+1;
          }
          if (k==1) 
          {
          	i=strcspn(m_thisvalue,"|");
          }
          else
          {
          	i=strcspn((char*) (m_thisvalue+temppos),"|");
          	if (i==0)
          		break;
          }
          if (k==2)
            strncpy(m_holder_acc_no,(char*) (m_thisvalue+temppos),i);
          if (k==1)
            strncpy(m_market_code,m_thisvalue,i);
        }