(Perl) ETrade Cancel Order

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

For more information, see https://apisb.etrade.com/docs/api/order/api-order-v1.html#/definition/cancelOrder

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

$http->put_OAuth1(1);
$http->put_OAuthVerifier("");
$http->put_OAuthConsumerKey("ETRADE_CONSUMER_KEY");
$http->put_OAuthConsumerSecret("ETRADE_CONSUMER_SECRET");

# Load the access token previously obtained via the OAuth1 Authorization
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/etrade.json");
if ($success != 1) {
    print "Failed to load OAuth1 token" . "\r\n";
    exit;
}

$http->put_OAuthToken($jsonToken->stringOf("oauth_token"));
$http->put_OAuthTokenSecret($jsonToken->stringOf("oauth_token_secret"));

$sandboxUrl = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel";
$liveUrl = "https://api.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel";

$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>

$xml = chilkat::CkXml->new();
$xml->put_Tag("CancelOrderRequest");
$xml->UpdateChildContent("orderId","11");
$xml->put_EmitCompact(1);

# resp is a HttpResponse
$resp = $http->PText("PUT",$sandboxUrl,$xml->getXml(),"utf-8","application/xml",0,0);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Make sure a successful response was received.
if ($resp->get_StatusCode() > 200) {
    print $resp->statusLine() . "\r\n";
    print $resp->header() . "\r\n";
    print $resp->bodyStr() . "\r\n";
    exit;
}

# 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>

$xml->LoadXml($resp->bodyStr());
print $xml->getXml() . "\r\n";

$accountId = $xml->GetChildIntValue("accountId");
$orderId = $xml->GetChildIntValue("orderId");
$cancelTime = $xml->getChildContent("cancelTime");
$code = $xml->GetChildIntValue("Messages|Message|code");
$description = $xml->getChildContent("Messages|Message|description");
$v_type = $xml->getChildContent("Messages|Message|type");

print "Success." . "\r\n";