<!-- Variable declaration -->
<stringvariable value="" variable="sMsgIso8583" />
<stringvariable value="" variable="sReceiveMsgISO" />
<stringvariable value="" variable="sHeader" />
<integervariable value="0" variable="iRecvBytes" />

<!-- Call function -->
<callfunction name="transactIsoMessage" />

<!-- Function declaration -->
<function name="transactIsoMessage">
  <integervariable value="0" variable="iConexao"/>
  <stringvariable value="" variable="sConexao"/>

  <!-- Display output -->
  <cleandisplay />
  <display column="0" line="3" message="   CONNECTING... "/>
  <preconnect variablestatus="$(iConexao)"/>

  <!-- Display output -->
  <if variable="$(iConexao)" operator="notequalto" value="0">
    <inttostring variableinteger="$(iConexao)" variablestring="$(sConexao)"/>
    <joinstring firstvalue="ERROR: " secondvalue="$(sConexao)" variabledestination="$(sConexao)"/>
    <cleandisplay/>
    <display column="0" line="2" message="   CONNECTION  "/>
    <display column="0" line="3" message="     ERROR!    "/>
    <display column="0" line="4" message="$(sConexao)"/>
    <network.hostdisconnect />
    <waitkey/>
    <exit/>
  </if>

  <!-- Display output -->
  <cleandisplay />
  <display column="0" line="3" message="   TRANSMITTING... "/>

  <!-- Transact message -->
  <iso8583.transactmessage channel="NAC" header="$(sHeader)" isomsg="$(sMsgIso8583)" trailler=""
         variableresponse="$(sReceiveMsgISO)" variablereturn="$(iRecvBytes)"/>

  <!-- Display output -->
  <cleandisplay/>
  <if variable="$(iRecvBytes)" operator="lessthanorequalto" value="0">
    <cleandisplay />
    <display column="0" line="2" message="   TRANSMISSION  "/>
    <display column="0" line="3" message="      ERROR!     "/>
    <waitkey/>
    <network.hostdisconnect />
    <exit/>
  </if>
</function>