DataFlex
DataFlex
ETrade List Accounts
See more ETrade Examples
Returns a list of E*TRADE accounts for the current user.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
Handle hoJsonToken
String sSandboxUrl
String sLiveUrl
Variant vResp
Handle hoResp
Handle hoXml
Integer iAccountId
String sAccountIdKey
String sAccountMode
String sAccountDesc
String sAccountName
String sAccountType
String sInstitutionType
String sAccountStatus
Integer iClosedDate
Integer i
Integer iCount_i
String sTemp1
Integer iTemp1
Move False To iSuccess
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Set ComOAuth1 Of hoHttp To True
Set ComOAuthVerifier Of hoHttp To ""
Set ComOAuthConsumerKey Of hoHttp To "ETRADE_CONSUMER_KEY"
Set ComOAuthConsumerSecret Of hoHttp To "ETRADE_CONSUMER_SECRET"
// Load the access token previously obtained via the OAuth1 Authorization
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
If (Not(IsComObjectCreated(hoJsonToken))) Begin
Send CreateComObject of hoJsonToken
End
Get ComLoadFile Of hoJsonToken "qa_data/tokens/etrade.json" To iSuccess
If (iSuccess <> True) Begin
Showln "Failed to load OAuth1 token"
Procedure_Return
End
Get ComStringOf Of hoJsonToken "oauth_token" To sTemp1
Set ComOAuthToken Of hoHttp To sTemp1
Get ComStringOf Of hoJsonToken "oauth_token_secret" To sTemp1
Set ComOAuthTokenSecret Of hoHttp To sTemp1
Move "https://apisb.etrade.com/v1/accounts/list" To sSandboxUrl
Move "https://api.etrade.com/v1/accounts/list" To sLiveUrl
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoResp to vResp
Get ComHttpNoBody Of hoHttp "GET" sSandboxUrl vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// Make sure a successful response was received.
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 >= 300) Begin
Get ComStatusLine Of hoResp To sTemp1
Showln sTemp1
Get ComHeader Of hoResp To sTemp1
Showln sTemp1
Get ComBodyStr Of hoResp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 = 204) Begin
Showln "No records available."
Procedure_Return
End
// Sample XML response:
// Use this online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML
// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <AccountListResponse>
// <Accounts>
// <Account>
// <accountId>82314598</accountId>
// <accountIdKey>dBZOKt9xDrtRSAOl4MSiiA</accountIdKey>
// <accountMode>IRA</accountMode>
// <accountDesc>Brokerage</accountDesc>
// <accountName>NickName-1</accountName>
// <accountType>MARGIN</accountType>
// <institutionType>BROKERAGE</institutionType>
// <accountStatus>ACTIVE</accountStatus>
// <closedDate>0</closedDate>
// </Account>
// <Account>
// <accountId>58315636</accountId>
// <accountIdKey>vQMsebA1H5WltUfDkJP48g</accountIdKey>
// <accountMode>BROKERAGE</accountMode>
// <accountDesc>Complete Savings</accountDesc>
// <accountName>NickName-2</accountName>
// <accountType>INDIVIDUAL</accountType>
// <institutionType>BROKERAGE</institutionType>
// <accountStatus>ACTIVE</accountStatus>
// <closedDate>0</closedDate>
// </Account>
// <Account>
// <accountId>70700418</accountId>
// <accountIdKey>6_Dpy0rmuQ9cu9IbTfvF2A</accountIdKey>
// <accountMode>CASH</accountMode>
// <accountDesc>INDIVIDUAL</accountDesc>
// <accountName>NickName-3</accountName>
// <accountType>INDIVIDUAL</accountType>
// <institutionType>BROKERAGE</institutionType>
// <accountStatus>ACTIVE</accountStatus>
// <closedDate>0</closedDate>
// </Account>
// <Account>
// <accountId>83515143</accountId>
// <accountIdKey>xj1Dc18FTqWPqkEEVUr5rw</accountIdKey>
// <accountMode>CASH</accountMode>
// <accountDesc>INDIVIDUAL</accountDesc>
// <accountName/>
// <accountType>CASH</accountType>
// <institutionType>BROKERAGE</institutionType>
// <accountStatus>CLOSED</accountStatus>
// <closedDate>1521027780</closedDate>
//
// </Account>
// </Accounts>
// </AccountListResponse>
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoadXml Of hoXml sTemp1 To iSuccess
Get ComGetXml Of hoXml To sTemp1
Showln sTemp1
Move 0 To i
Get ComNumChildrenHavingTag Of hoXml "Accounts|Account" To iCount_i
While (i < iCount_i)
Set ComI Of hoXml To i
Get ComGetChildIntValue Of hoXml "Accounts|Account[i]|accountId" To iAccountId
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountIdKey" To sAccountIdKey
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountMode" To sAccountMode
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountDesc" To sAccountDesc
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountName" To sAccountName
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountType" To sAccountType
Get ComGetChildContent Of hoXml "Accounts|Account[i]|institutionType" To sInstitutionType
Get ComGetChildContent Of hoXml "Accounts|Account[i]|accountStatus" To sAccountStatus
Get ComGetChildIntValue Of hoXml "Accounts|Account[i]|closedDate" To iClosedDate
Move (i + 1) To i
Loop
Showln "Success."
End_Procedure