sjcjphzh.sqc

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

		if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"4")==0))
			sprintf(m_oldzymc,"%s%s%s","卖出",m_sec_name,"交收");
		else
			sprintf(m_oldzymc,"%s%s","卖出",m_sec_name);
		if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"4")==0))
			m_sec_chg=0;
		if (strcmp(m_stock_code,"FY8888")==0)
		{
			strcpy(m_zydm,"9999");
			strcpy(m_oldzydm,"FHPX");
			strcpy(m_occur_time,m_nowtime);
		}
	}
	if (strcmp(m_zydm,"0003")==0)
	{
		if (strcmp(m_business_code,"4013")==0)
			sprintf(m_oldzymc,"%s%s","缴配股款",m_sec_name);
		if (strcmp(m_business_code,"4053")==0)
			sprintf(m_oldzymc,"%s%s","缴配售款",m_sec_name);
	}
	if (strcmp(m_zydm,"0004")==0)
	{
		m_bdlb[1]='8';
		if ((strcmp(m_market_code,"1")==0) || (strcmp(m_market_code,"2")==0))
			sprintf(m_oldzymc,"%s%s","领取红利",m_sec_name);
		if ((strcmp(m_market_code,"3")==0) || (strcmp(m_market_code,"4")==0))
			sprintf(m_oldzymc,"%s%s",m_sec_code,"派息  ");
	}
	if (strcmp(m_business_code,"4006")==0)
	{
		m_bdlb[1]='3';
		sprintf(m_oldzymc,"%s %s","融券购回",m_sec_code);
		sprintf(m_oldzydm,"%s%s",m_market_code,"GHRQ");
	}
	if (strcmp(m_business_code,"4005")==0)
	{
		m_bdlb[1]='3';
		sprintf(m_oldzymc,"%s %s","融资购回",m_sec_code);
		sprintf(m_oldzydm,"%s%s",m_market_code,"GHRZ");
	}
	if (strcmp(m_business_code,"4004")==0)
	{
		m_bdlb[1]='2';
		sprintf(m_oldzymc,"%s %s","融券回购",m_sec_code);
		sprintf(m_oldzydm,"%s%s",m_market_code,"HGRQ");
	}
	if (strcmp(m_business_code,"4003")==0)
	{
		m_bdlb[1]='2';
		sprintf(m_oldzymc,"%s %s","融资回购",m_sec_code);
		sprintf(m_oldzydm,"%s%s",m_market_code,"HGRZ");
	}
	m_bdlb[2]=0x0;
	
      	sprintf(data,"0%s,%s,%s,%s,%d,%d,%.2f,%.2f,%s,%.2f,%s,%s,%s,%.2f,%.2f,%.2f,%06d", m_cust_no,m_xkm_gddm,m_stock_code,m_xkm_scbm,m_sec_chg,m_sec_bal,m_amt17,m_amt7,m_order,m_amt2,m_oldzydm,m_oldzymc,m_bdlb,m_yj,m_yhs,m_ghf,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);
      	continue;
      }
      
      /*0005-0034 交易类数据采集*/
      if ((strcmp(m_zydm,"0004")>0) && (strcmp(m_zydm,"0035")<0))
      {
        EXEC SQL SELECT MARKET_NAME
        	into :m_market_name from KS.B_MARKET 
        	where MARKET_CODE=:m_market_code;
        	
        trim(m_market_name);
        
        if (strcmp(m_zydm,"0005")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"配售中签",m_sec_chg);
        if (strcmp(m_zydm,"0006")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"认购",m_sec_chg);
        if (strcmp(m_zydm,"0007")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"债券托入",m_sec_chg);
        if (strcmp(m_zydm,"0008")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"转配上市",m_sec_chg);
        if (strcmp(m_zydm,"0009")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"增发上市",m_sec_chg);
        if (strcmp(m_zydm,"0011")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"托入",m_sec_chg);
        if (strcmp(m_zydm,"0012")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"回售",m_sec_chg);
        if (strcmp(m_zydm,"0013")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"赎回",m_sec_chg);
        if (strcmp(m_zydm,"0014")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"权证",m_sec_chg);
        if (strcmp(m_zydm,"0015")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"红股",m_sec_chg);
        if (strcmp(m_zydm,"0016")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"配售权益",m_sec_bal);
        if (strcmp(m_zydm,"0017")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"配售权",m_sec_bal);
        if (strcmp(m_zydm,"0018")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"弃购",m_sec_chg);
        if (strcmp(m_zydm,"0019")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"认购",m_sec_chg);
         
        if (strcmp(m_zydm,"0020")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"新股",m_sec_bal);
        if (strcmp(m_zydm,"0021")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"红股",m_sec_chg);
        if (strcmp(m_zydm,"0022")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"配股",m_sec_chg);
        if (strcmp(m_zydm,"0023")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"权证",m_sec_chg);
        if (strcmp(m_zydm,"0024")==0)
          sprintf(m_oldzymc,"%s%s%d%s",m_stock_code,"过出",m_sec_chg,"(GHF)");
        if (strcmp(m_zydm,"0025")==0)
          sprintf(m_oldzymc,"%s%s%d%s",m_stock_code,"过入",m_sec_chg,"(GHF)");
        if (strcmp(m_zydm,"0026")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"认购",m_sec_chg);
          
        if ((strcmp(m_zydm,"0027")==0) && ((strcmp(m_business_code,"4007")==0) || (strcmp(m_business_code,"4009")==0)))
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"转入",m_sec_chg);
        if ((strcmp(m_zydm,"0027")==0) && ((strcmp(m_business_code,"4008")==0) || (strcmp(m_business_code,"4010")==0)))
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"转出",m_sec_chg);
        
        if (strcmp(m_zydm,"0028")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"权证",m_sec_chg);
        if (strcmp(m_zydm,"0029")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"红股",m_sec_chg);
          
        if (strcmp(m_zydm,"0030")==0)
          sprintf(m_oldzymc,"%s%s%f",m_market_name,"抵押冻结",m_amt17);
        if (strcmp(m_zydm,"0031")==0)
          sprintf(m_oldzymc,"%s%s%f",m_market_name,"抵押解冻",m_amt17);
        if (strcmp(m_zydm,"0034")==0)
          sprintf(m_oldzymc,"%s%s%d",m_stock_code,"配股权",m_sec_chg);
        
        
      	sprintf(data,"0%s,%s,%s,%s,%d,%d,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_xkm_gddm,m_stock_code,m_xkm_scbm,m_sec_chg,m_sec_bal,m_amt17,m_amt7,icntfetch,m_oldzymc,m_oldzydm);

        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);
      }      
      
      /*1001-1008 资金存取情况*/
      if ((strcmp(m_zydm,"1000")>0) && (strcmp(m_zydm,"1009")<0))
      {
        printf("MY_test------%s\n",m_oldzymc);
        trim(m_yhdm);
        if (strcmp(m_yhdm,"")!=0)
      		TransBankCode(1,m_branch_code,m_currency_type,m_yhdm,m_oldhbdm,m_oldyhdm);
      
        trim(m_oldyhdm);
        trim(m_oldhbdm);
        
        if (strcmp(m_yhdm,"")!=0)
        {
	        EXEC SQL SELECT BANK_NAME
        		into :m_bank_name from KS.BANK
        		where BANK_CODE=:m_yhdm;
        }	
        
        if ((strcmp(m_zydm,"1005")==0) || (strcmp(m_zydm,"1006")==0) || (strcmp(m_zydm,"1007")==0) || (strcmp(m_zydm,"1008")==0))
        	strcat(m_oldzymc,m_bank_name);
        if ((strcmp(m_zydm,"1004")>0) && (strcmp(m_zydm,"1009")<0))
        	sprintf(data,"0%s,%s,%.2f,%.2f,%06d,%s,%s,%s,%s", m_cust_no,m_xkm_gddm,m_amt17,m_amt7,icntfetch,m_oldyhdm,m_yhzh,m_oldzydm,m_oldzymc);
        if ((strcmp(m_zydm,"1000")>0) && (strcmp(m_zydm,"1005")<0))
        	sprintf(data,"0%s,%s,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_xkm_gddm,m_amt17,m_amt7,icntfetch,m_oldzydm,m_oldzymc);
      	
        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));
      	printf("%s\n",data);
      	fprintf(fp,",%s%c%c",data,0x0d,0x0a);
      }
      
      /*1009 贷款转入*/
      if (strcmp(m_zydm,"1009")==0)
      {
      	sprintf(data,"0%s,%.2f,%.2f,0,0,%s,%06d,%s,%s", m_cust_no,m_amt17,m_amt7,m_bill_no,icntfetch,m_oldzydm,m_oldzymc);
      	
        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);
      }
      
      /*1010 贷款转出*/
      if (strcmp(m_zydm,"1010")==0)
      {
      	sprintf(data,"0%s,%.2f,%.2f,0,0,%s,%06d,%s,%s", m_cust_no,m_amt17,m_amt7,m_bill_no,icntfetch,m_oldzydm,m_oldzymc);
      	
        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);
      }
      
      /*1011-1013 利息支付*/
      if ((strcmp(m_zydm,"1010")>0) && (strcmp(m_zydm,"1014")<0))
      {
        if (strcmp(m_zydm,"1011")==0)
      		sprintf(data,"0%s,%s,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_xkm_gddm,m_amt17,m_amt7,icntfetch,m_oldzydm,m_oldzymc);
      	else
      		sprintf(data,"0%s,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_amt17,m_amt7,icntfetch,m_oldzydm,m_oldzymc);
      	
        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);
      }
      
      /*1014,1015 资金冻结解冻*/
      if ((strcmp(m_zydm,"1015")==0) || (strcmp(m_zydm,"1014")==0))
      {
      	sprintf(data,"0%s,%.2f,%.2f,%s,%s,%06d", m_cust_no,m_amt17,m_amt7,m_oldzymc,m_oldzydm,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);
      }
      
      /*1016,1017,1019,1020 内部转入转出，本金存入取出冲账*/
      if ((strcmp(m_zydm,"1016")==0) || (strcmp(m_zydm,"1017")==0) || (strcmp(m_zydm,"1019")==0) || (strcmp(m_zydm,"1020")==0))
      {
        if ((strcmp(m_zydm,"1016")==0) || (strcmp(m_zydm,"1017")==0))
        {
        	sprintf(data,"0%s,%s,%.2f,%.2f,%06d,%s,%s,%s", m_cust_no,m_xkm_gddm,m_amt17,m_amt7,icntfetch,m_bill_no,m_oldzydm,m_oldzymc);
      	}
      	else
      	{
        	sprintf(data,"0%s,%s,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_xkm_gddm,m_amt17,m_amt7,icntfetch,m_oldzydm,m_oldzymc);
      	}
        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);
      }

      /*1042-1059 收费类资金变动*/
      if ((strcmp(m_zydm,"1041")>0) && (strcmp(m_zydm,"1060")<0))
      {
        if ((strcmp(m_zydm,"1049")==0) || (strcmp(m_zydm,"1053")==0))
        	sprintf(m_oldzymc,"%s%s",m_stock_code,"转债派息  ");
        if (strcmp(m_zydm,"1057")==0)
        	sprintf(m_oldzymc,"%s%s",m_stock_code,"抵押");	
        if (strcmp(m_zydm,"1058")==0)
        	sprintf(m_oldzymc,"%s%s",m_stock_code,"解押");	
        if ((strcmp(m_zydm,"1047")==0) || (strcmp(m_zydm,"1048")==0))
        {
        	TransBankCode(1,m_branch_code,m_currency_type,m_yhdm,m_oldhbdm,m_oldyhdm);
       		sprintf(data,"0%s,,%.2f,%.2f,%06d,%s,%s,%s,%s", m_cust_no,m_amt17,m_amt7,icntfetch,m_oldzymc,m_oldzydm,m_oldyhdm,m_yhzh);
       	}
       	else
       		sprintf(data,"0%s,,%.2f,%.2f,%06d,%s,%s", m_cust_no,m_amt17,m_amt7,icntfetch,m_oldzymc,m_oldzydm);
      	
        len = strlen(data);