Sample code for 30+ languages & platforms
Xbase++

Royal Mail OBA Web Service -- Get Contracts

See more Royal Mail OBA Examples

Royal Mail OBA Web Service -- Get the contracts for an account.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oXml
LOCAL oHttp
LOCAL cEndpointUrl
LOCAL oResp
LOCAL cServiceName
LOCAL cServiceReg
LOCAL cServiceLevel
LOCAL cContract
LOCAL i
LOCAL nNumContracts

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  Create the following XML:

//  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:epro="urn:schemas-royalmail-com/webservice/epro">
//     <soapenv:Header>
//        <epro:Authentication>
//           <epro:Username>my_username</epro:Username>
//           <epro:Password>my_password</epro:Password>
//           <epro:AccessCode>my_accessCode</epro:AccessCode>
//           <epro:Version>1.0</epro:Version>
//           <epro:SecurityToken>mysecuritytoken</epro:SecurityToken>
//        </epro:Authentication>
//     </soapenv:Header>
//     <soapenv:Body>
//        <epro:GetContracts>
//          <epro:Account>account_number</epro:Account>
//        </epro:GetContracts>
//     </soapenv:Body>
//  </soapenv:Envelope>

oXml := CreateObject("Chilkat.Xml")
oXml:EmitXmlDecl := 0
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:AddAttribute("xmlns:epro", "urn:schemas-royalmail-com/webservice/epro")

//  Replace my_username, my_password, and my_accessCode with your actual values.  Do not replace "mysecuritytoken".
oXml:UpdateChildContent("soapenv:Header|epro:Authentication|epro:Username", "my_username")
oXml:UpdateChildContent("soapenv:Header|epro:Authentication|epro:Password", "my_password")
oXml:UpdateChildContent("soapenv:Header|epro:Authentication|epro:AccessCode", "my_accessCode")
oXml:UpdateChildContent("soapenv:Header|epro:Authentication|epro:Version", "1.0")

//  Literally use the string "mysecuritytoken" here.
oXml:UpdateChildContent("soapenv:Header|epro:Authentication|epro:SecurityToken", "mysecuritytoken")
oXml:UpdateChildContent("soapenv:Body|epro:GetContracts|epro:Account", "account_number")

oHttp := CreateObject("Chilkat.Http")

oHttp:SetRequestHeader("SOAPAction", "urn:schemas-royalmail-com/webservice/epro/GetContracts")

//  Use the sandbox endpoint:   http://interfaces.oba-v.royalmail.com/legacyws/EProImport.asmx 
//  The live endpoint would be: http://www.epro.royalmail.com/WebServices/import/eproimport.asmx
cEndpointUrl := "http://interfaces.oba-v.royalmail.com/legacyws/EProImport.asmx"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", cEndpointUrl, oXml:GetXml(), "utf-8", "text/xml", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oXml:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "response status code = " + Str(oResp:StatusCode)
? oResp:BodyStr

//  The response looks like this:

//  <?xml version="1.0" encoding="utf-8"?>
//  <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
//      <SOAP-ENV:Header/>
//      <SOAP-ENV:Body>
//          <ns1:GetContractsResponse xmlns:ns1="urn:schemas-royalmail-com/webservice/epro">
//              <ns1:GetContractsResult Version="1">
//                  <ns1:Contracts>
//                      <ns1:ContractDetails ServiceName="ADV MAIL + RESPONSE UNSORTED 2C" ServiceReg="AC2" ServiceLevel="01" Contract="DEMOTEST1"/>
//                      <ns1:ContractDetails ServiceName="PLANNED ENVELOPE POLL CARD MMK-2C      " ServiceReg="AG0" ServiceLevel="01" Contract=""/>
//  			...
//                  </ns1:Contracts>
//              </ns1:GetContractsResult>
//          </ns1:GetContractsResponse>
//      </SOAP-ENV:Body>
//  </SOAP-ENV:Envelope>

//  

oXml:LoadXml(oResp:BodyStr)

i := 0
nNumContracts := oXml:NumChildrenHavingTag("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails")
DO WHILE i < nNumContracts
    oXml:I := i
    cServiceName := oXml:ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceName)")
    cServiceReg := oXml:ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceReg)")
    cServiceLevel := oXml:ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceLevel)")
    cContract := oXml:ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(Contract)")
    ? cServiceName
    i := i + 1
ENDDO

oXml:destroy()
oHttp:destroy()
oResp:destroy()