(Tcl) ETrade v1 List Accounts

List ETrade accounts using the ETrade v1 API.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_OAuth1 $http 1
CkHttp_put_OAuthVerifier $http ""
CkHttp_put_OAuthConsumerKey $http "ETRADE_CONSUMER_KEY"
CkHttp_put_OAuthConsumerSecret $http "ETRADE_CONSUMER_SECRET"

# Load the access token previously obtained via the OAuth1 3-Legged Authorization examples Step1 and Step2.
set json [new_CkJsonObject]

set success [CkJsonObject_LoadFile $json "qa_data/tokens/etrade.json"]
if {$success != 1} then {
    puts "Failed to load OAuth1 token"
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

CkHttp_put_OAuthToken $http [CkJsonObject_stringOf $json "oauth_token"]
CkHttp_put_OAuthTokenSecret $http [CkJsonObject_stringOf $json "oauth_token_secret"]

# See the ETrade v1 API documentation HERE.

set respStr [CkHttp_quickGetStr $http "https://apisb.etrade.com/v1/accounts/list"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

# A 200 status code indicates success.
set statusCode [CkHttp_get_LastStatus $http]
puts "statusCode = $statusCode"

# Use the following online tool to generate parsing code from sample XML: 
# Generate Parsing Code from XML

# A sample XML response is shown below...

set xml [new_CkXml]

CkXml_LoadXml $xml $respStr

set i 0
set count_i [CkXml_NumChildrenHavingTag $xml "Accounts|Account"]
while {$i < $count_i} {
    CkXml_put_I $xml $i
    set accountId [CkXml_GetChildIntValue $xml "Accounts|Account[i]|accountId"]
    set accountIdKey [CkXml_getChildContent $xml "Accounts|Account[i]|accountIdKey"]
    set accountMode [CkXml_getChildContent $xml "Accounts|Account[i]|accountMode"]
    set accountDesc [CkXml_getChildContent $xml "Accounts|Account[i]|accountDesc"]
    set accountName [CkXml_getChildContent $xml "Accounts|Account[i]|accountName"]
    set accountType [CkXml_getChildContent $xml "Accounts|Account[i]|accountType"]
    set institutionType [CkXml_getChildContent $xml "Accounts|Account[i]|institutionType"]
    set accountStatus [CkXml_getChildContent $xml "Accounts|Account[i]|accountStatus"]
    set closedDate [CkXml_GetChildIntValue $xml "Accounts|Account[i]|closedDate"]
    set i [expr $i + 1]
}

# <?xml version="1.0" encoding="UTF-8"?>
# <AccountListResponse>
#    <Accounts>
#       <Account>
#          <accountId>84010429</accountId>
#          <accountIdKey>JIdOIAcSpwR1Jva7RQBraQ</accountIdKey>
#          <accountMode>MARGIN</accountMode>
#          <accountDesc>INDIVIDUAL</accountDesc>
#          <accountName>Individual Brokerage</accountName>
#          <accountType>INDIVIDUAL</accountType>
#          <institutionType>BROKERAGE</institutionType>
#          <accountStatus>ACTIVE</accountStatus>
#          <closedDate>0</closedDate>
#       </Account>
#       <Account>
#          <accountId>84010430</accountId>
#          <accountIdKey>JAAOIAcSpwR1Jva7RQBraQ</accountIdKey>
#          <accountMode>MARGIN</accountMode>
#          <accountDesc>INDIVIDUAL</accountDesc>
#          <accountName>Individual Brokerage</accountName>
#          <accountType>INDIVIDUAL</accountType>
#          <institutionType>BROKERAGE</institutionType>
#          <accountStatus>ACTIVE</accountStatus>
#          <closedDate>0</closedDate>
#       </Account>
#    </Accounts>
# </AccountListResponse>

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkXml $xml