ctg-app-ui/lps/etc/ctl/2130050_CTL.XML

<?xml version='1.0' encoding='UTF-8'?>
<Application name="lps" trace="yes">

   <!--业务注销V1.0-->
   <Transaction code="2130050" log_switch="1">

      <DynSentence name="QRY_LPSTCRD_INF">  <!--查询是否存在子账户-->
         <Sentence>
          SELECT CRD_STS FROM LPSTCRD WHERE SUB_AC=? AND MBL_NO=?
         </Sentence>
         <Fields>SUB_AC|MBL_NO|</Fields>
      </DynSentence>

      <FlowCtrl>
         <!--交易设置-->
         <Set>CMD_CD=SUBSTR($PIN_DAT,1,2)</Set>    <!--命令类型-->
         <Set>SUB_AC=SUBSTR($PIN_DAT,7,20)</Set>   <!--卡片应用序列号-->
         <Exec func="PUB:GWASetMsg">
            <Arg name="MsgCd"  value="LPS00000"/>
         </Exec>
 
         <!--报文MAC校验-->
         <Call package="LPS_PUB" function="CheckMessageMAC">
            <Input>SUB_AC|PIN_DAT|</Input>
            <Output>MSG_CD|</Output>
         </Call>
         <If condition="NOT(IS_SUCC(@O.MSG_CD))">
            <Exec func="PUB:GWASetMsg">
               <Arg name="MsgCd"  value="@O.MSG_CD"/>
               <Arg name="MsgDat" value="MAC校验失败"/>
            </Exec>
            <Return/>
         </If>

         <!--报文解析-->
         <Call package="LPS_PUB" function="MessageParse">
            <Input>CMD_CD|PIN_DAT|</Input>
            <Output>MSG_CD|STK_AREA|</Output>
         </Call>
         <If condition="NOT(IS_SUCC(@O.MSG_CD))">
            <Exec func="PUB:GWASetMsg">
               <Arg name="MsgCd"  value="@O.MSG_CD"/>
               <Arg name="MsgDat" value="报文解析失败"/>
            </Exec>
            <Return/>
         </If>
         
         <!-- 用户-状态检查 -->
         <Set>INP_DAT.MBLNO_OR_LOGID=$MBL_NO</Set>
         <Set>INP_DAT.TX_CD=$GWA.TX_CD</Set>         
         <Call package="URM_PUB" function="CHK_USER_STS">
            <Input>INP_DAT|</Input>
            <Output>OUT_DAT|MSG_CD|</Output>
         </Call>
         <If condition="NOT(IS_SUCC(@O.MSG_CD))">
            <Exec func="PUB:GWASetMsg">
               <Arg name="MsgCd"   value="@O.MSG_CD"/>             
            </Exec>
            <Set>RSL_CD=01</Set>
            <Goto>END</Goto>
         </If>

         <!--查询是否存在子账户-->
         <Exec func="PUB:ReadRecord" error="IGNORE">
            <Arg name="SqlCmd" value="QRY_LPSTCRD_INF"/>
         </Exec>
         <If condition="~RetCod=-1">
            <!--数据库操作错误-->
            <Set>RSL_CD=01</Set>
            <Exec func="PUB:GWASetMsg">
               <Arg name="MsgCd" value="LPS00001"/>
            </Exec>
            <Goto>END</Goto>
         </If>
         <ElseIf condition="~RetCod=0">
            <!--判断子账户状态-->
            <If condition="$CRD_STS!=2">
               <!--子账户未销户-->
               <Set>RSL_CD=01</Set>
               <Exec func="PUB:GWASetMsg">
                  <Arg name="MsgCd"  value="LPS20000"/>
                  <Arg name="MsgDat" value="存在子账户，主账户销户失败"/>
               </Exec>
               <Goto>END</Goto>
            </If>
         </ElseIf>

         <!--设置组件输入数据-->
         <Set>INP_DAT.MBL_NO=$MBL_NO</Set>
         <Set>INP_DAT.CAN_BUS_CNL=$GWA.BUS_CNL</Set>

         <!--主账户销户-->
         <Call package="URM_PUB" function="CLOSE_USER">
            <Input>GWA|INP_DAT|</Input>
            <Output>OUT_DAT|MSG_CD|</Output>
         </Call>
         <!--判断销户是否成功-->
         <If condition="IS_SUCC(@O.MSG_CD)">
            <!--手机支付账户销户成功-->
            <Set>RSL_CD=00</Set>      <!--开户结果 00:成功；01:失败-->
         </If>
         <Else>
            <If condition="OR(IS_EQUAL_STRING(@O.MSG_CD,URM20069),IS_EQUAL_STRING(@O.MSG_CD,URM20020),IS_EQUAL_STRING(@O.MSG_CD,URM20019),IS_EQUAL_STRING(@O.MSG_CD,URM20012))">
               <!--手机支付账户已经销户-->
               <Set>RSL_CD=00</Set>
            </If>
            <Else>
               <!--手机支付账户销户失败-->
               <Set>RSL_CD=01</Set>
               <Exec func="PUB:GWASetMsg">
                  <Arg name="MsgCd" value="@O.MSG_CD"/>
               </Exec>
            </Else>
         </Else>

         <Label>END</Label>

         <!--交易设置-->
         <Set>CMD_CD=03</Set>
         <Set>SUB_CMD_CD=@O.STK_AREA.SUB_CMD_CD</Set>
         <Set>CRD_JRN_NO=@O.STK_AREA.CRD_JRN_NO</Set>

         <!--下行报文组织-->
         <Call package="LPS_PUB" function="MessageBuild">
            <Output>BK_TXN_DAT|MSG_CD|</Output>
         </Call>
         <If condition="NOT(IS_SUCC(@O.MSG_CD))">
            <If condition="IS_SUCC($GWA.MSG_CD)">
               <Exec func="PUB:GWASetMsg">
                  <Arg name="MsgCd"  value="@O.MSG_CD"/>
                  <Arg name="MsgDat" value="报文组织失败"/>
               </Exec>
            </If>
            <Return/>
         </If>

         <!--生成报文MAC-->
         <Call package="LPS_PUB" function="CreateMessageMAC">
            <Input>SUB_AC|@O.BK_TXN_DAT|</Input>
            <Output>BK_TXN_DAT|MSG_CD|</Output>
         </Call>
         <If condition="NOT(IS_SUCC(@O.MSG_CD))">
            <If condition="IS_SUCC($GWA.MSG_CD)">
               <Exec func="PUB:GWASetMsg">
                  <Arg name="MsgCd"  value="@O.MSG_CD"/>
                  <Arg name="MsgDat" value="生成报文MAC失败"/>
               </Exec>
            </If>
            <Return/>
         </If>

         <!--设置返回报文-->
         <Set>BK_TXN_DAT=@O.BK_TXN_DAT</Set>
  
         <!--下发钱包激活指令-->
         <Set>SMS_CD=LPS800</Set>
         <Call package="LPS_PUB" function="SendShortMessage"/>

         <!--如果手机钱包销户成功，则短信通知用户-->
         <If condition="$RSL_CD=00">
            <Set>SMS_CD=LPS005</Set>
            <Call package="LPS_PUB" function="SendShortMessage"/>
         </If>

      </FlowCtrl> 
   </Transaction>

</Application>