PowerBuilder

ETrade Cancel Order

See more ETrade Examples

The cancel order API is used to cancel an existing order. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_JsonToken
string ls_SandboxUrl
string ls_LiveUrl
oleobject loo_Xml
string ls_HttpRequestBody
oleobject loo_Resp
integer li_AccountId
integer li_OrderId
string ls_CancelTime
integer li_Code
string ls_Description
string ls_V_type

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Http.OAuth1 = 1
loo_Http.OAuthVerifier = ""
loo_Http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY"
loo_Http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET"

// Load the access token previously obtained via the OAuth1 Authorization
loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/etrade.json")
if li_Success <> 1 then
    Write-Debug "Failed to load OAuth1 token"
    destroy loo_Http
    destroy loo_JsonToken
    return
end if

loo_Http.OAuthToken = loo_JsonToken.StringOf("oauth_token")
loo_Http.OAuthTokenSecret = loo_JsonToken.StringOf("oauth_token_secret")

ls_SandboxUrl = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel"
ls_LiveUrl = "https://api.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel"

loo_Http.SetUrlVar("accountIdKey","6_Dpy0rmuQ9cu9IbTfvF2A")

// Send a PUT with the following XML body

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

// <CancelOrderRequest>
//    <orderId>11</orderId>
// </CancelOrderRequest>

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

loo_Xml.Tag = "CancelOrderRequest"
loo_Xml.UpdateChildContent("orderId","11")
loo_Xml.EmitCompact = 1

ls_HttpRequestBody = loo_Xml.GetXml()
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpStr("PUT",ls_SandboxUrl,ls_HttpRequestBody,"utf-8","application/xml",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Xml
    destroy loo_Resp
    return
end if

// Make sure a successful response was received.
if loo_Resp.StatusCode > 200 then
    Write-Debug loo_Resp.StatusLine
    Write-Debug loo_Resp.Header
    Write-Debug loo_Resp.BodyStr
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Xml
    destroy loo_Resp
    return
end if

// Sample XML response:

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

// <CancelOrderResponse>
//    <accountId>63438617</accountId>
//    <orderId>11</orderId>
//    <cancelTime>1529563499081</cancelTime>
//    <Messages>
//       <Message>
//          <code>5011</code>
//          <description>200|Your request to cancel your order is being processed.</description>
//          <type>WARNING</type>
//       </Message>
//    </Messages>
// </CancelOrderResponse>

loo_Xml.LoadXml(loo_Resp.BodyStr)
Write-Debug loo_Xml.GetXml()

li_AccountId = loo_Xml.GetChildIntValue("accountId")
li_OrderId = loo_Xml.GetChildIntValue("orderId")
ls_CancelTime = loo_Xml.GetChildContent("cancelTime")
li_Code = loo_Xml.GetChildIntValue("Messages|Message|code")
ls_Description = loo_Xml.GetChildContent("Messages|Message|description")
ls_V_type = loo_Xml.GetChildContent("Messages|Message|type")

Write-Debug "Success."


destroy loo_Http
destroy loo_JsonToken
destroy loo_Xml
destroy loo_Resp