PowerBuilder

Mastercard ICCP Get Data Source with OAuth1

See more Mastercard Examples

Demonstrates OAuth1 authentication with the Mastercard SOAP API's. This example sends a POST to the sandbox endpoint for the "In Control for Commercial Payments" (ICCP) API. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Xml
oleobject loo_Pfx
oleobject loo_PrivKey
oleobject loo_Http
oleobject loo_Resp
oleobject loo_RespXml

li_Success = 0

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

// --------------------------------------------------------------------------------
// Also see Chilkat's Online WSDL Code Generator
// to generate code and SOAP Request and Response XML for each operation in a WSDL.
// --------------------------------------------------------------------------------

// First build the XML body of the SOAP request:

//     <soapenv:Envelope
// 	    xmlns:ser="http://mastercard.com/sd/pc/service"
// 	    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
// 	    <soapenv:Header>
// 	    </soapenv:Header>
// 	    <soapenv:Body>
// 		    <ser:getDataSourcesRequest></ser:getDataSourcesRequest>
// 	    </soapenv:Body>
//     </soapenv:Envelope>

// Use this online tool to generate code from sample XML: 
// Generate Code to Create XML

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "soapenv:Envelope"
loo_Xml.AddAttribute("xmlns:ser","http://mastercard.com/sd/pc/service")
loo_Xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loo_Xml.UpdateChildContent("soapenv:Header","")
loo_Xml.UpdateChildContent("soapenv:Body|ser:getDataSourcesRequest","")

// We'll need to get our signing RSA key from the PFX (provided by Mastercard)
loo_Pfx = create oleobject
li_rc = loo_Pfx.ConnectToNewObject("Chilkat.Pfx")

li_Success = loo_Pfx.LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12","keystorepassword")
if li_Success = 0 then
    Write-Debug loo_Pfx.LastErrorText
    destroy loo_Xml
    destroy loo_Pfx
    return
end if

loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Pfx.PrivateKeyAt(0,loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Pfx.LastErrorText
    destroy loo_Xml
    destroy loo_Pfx
    destroy loo_PrivKey
    return
end if

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Http.OAuth1 = 1
// Use your own consumer key (this is not a valid consumer key)
loo_Http.OAuthConsumerKey = "MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000"
loo_Http.OAuthSigMethod = "RSA-SHA256"
li_Success = loo_Http.SetOAuthRsaKey(loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Xml
    destroy loo_Pfx
    destroy loo_PrivKey
    destroy loo_Http
    return
end if

// Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
loo_Http.OAuthBodyHash = 1

// Send the SOAP XML request and get the response.
// Chilkat automaticaly adds the OAuth1 authentication.
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpStr("POST","https://sandbox.api.mastercard.com/iccp/financial",loo_Xml.GetXml(),"utf-8","application/xml",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Xml
    destroy loo_Pfx
    destroy loo_PrivKey
    destroy loo_Http
    destroy loo_Resp
    return
end if

// Examine the response status code and the XML response body.
Write-Debug "Response status code = " + string(loo_Resp.StatusCode)

loo_RespXml = create oleobject
li_rc = loo_RespXml.ConnectToNewObject("Chilkat.Xml")

loo_Resp.GetBodyXml(loo_RespXml)

Write-Debug "Response XML:"
Write-Debug loo_RespXml.GetXml()

// If desired, use this online tool to generate parsing code from response XML.
// (Run your code once to get a representative sample response, and then generate the parsing code.)
// Generate Parsing Code from XML


destroy loo_Xml
destroy loo_Pfx
destroy loo_PrivKey
destroy loo_Http
destroy loo_Resp
destroy loo_RespXml