因为整个集团通过工行发放超过1000个批次，导致bustype重复

cap/etc/channel/icbc/BATCH_ICBC.XML

@@ -58,6 +58,15 @@
          </Sentence>
          <Fields>DSK_NAM|ORD_DT|CORG_NO|TXN_MOD|</Fields>
       </DynSentence>
+       
+      <DynSentence name="QryBatTacNo"><!-- 查询付款账号 -->
+         <Sentence>
+            SELECT   TAC_NO ICBC_BUS_TYP_SEQ FROM CAPTXNJNL
+            WHERE DSK_NAM=? AND ORD_DT=?  AND CORG_NO=?  AND ROWNUM =1
+         </Sentence>
+         <Fields>DSK_NAM|ORD_DT|CORG_NO|</Fields>
+      </DynSentence>        
+        
       <FlowCtrl>
          <!--清理数据 -->
          <Delete>RSP_CD</Delete>
@@ -74,14 +83,39 @@
 
 
          <!--获取第三方业务种类编号1到999  当日不重复 每一个大批次获取一个-->
-         <Exec func="PUB:ReadRecord" error="IGNORE">
+         <!--Exec func="PUB:ReadRecord" error="IGNORE">
             <Arg name="SqlCmd"       value="QRY_ICBCCORGBUSTYP_VAL"/>
          </Exec>
+         <If condition="~RetCod!=0">
+            <Set>Rsp_Cd=80</Set>
+            <Set>Rsp_Msg=获取业务种类编号失败</Set>
+            <Return/>
+         </If-->
+         
+         <!--查询付款账号-->
+         <Exec func="PUB:ReadRecord" error="IGNORE">
+            <Arg name="SqlCmd"       value="QryBatTacNo"/>
+         </Exec>
          <If condition="~RetCod!=0">
             <Set>Rsp_Cd=80</Set>
             <Set>Rsp_Msg=获取业务种类编号失败</Set>
             <Return/>
          </If>
+         
+			<Set>BR_NO=999999</Set>   <!--公共序号表pubseqrec中的字段BR_NO -->
+			<Set>ICBC_BUS_TYP_SEQ=$ICBC_BUS_TYP_SEQ</Set>   <!--公共序号表pubseqrec中的字段BR_NO -->
+			<Exec func="PUB:GetPubSeqNoCircle" error="IGNORE">
+				<Arg name="SeqNam" value="ICBC_CORG_BUS_TYP" />
+				<Arg name="Len" value="3" />
+				<Arg name="SeqCnd" value="$ICBC_BUS_TYP_SEQ" />
+			</Exec>
+			<If condition="~RetCod!=0">
+            <Set>Rsp_Cd=80</Set>
+            <Set>Rsp_Msg=获取序号失败</Set>
+            <Return/>
+			</If>          
+           
+         <Set>CORG_BUS_TYP=$SEL_VAL</Set>
          <Set>CORG_BUS_TYP=ADD($CORG_BUS_TYP,0)</Set>
 
          <!--打开游标 对系统内系统外的数据分别处理-->