(PowerBuilder) ETrade - Place Equity Order (JSON version)

Shows how to place an equity order using ETrade with OAuth1 authorization.

See https://developer.etrade.com/ctnt/dev-portal/getDetail?contentUri=V0_Documentation-OrderAPI-PlaceEquityOrder for more information.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Http
oleobject loo_JsonToken
integer li_Success
oleobject loo_Json
oleobject loo_Resp
integer li_StatusCode

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.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 3-Legged Authorization
loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat_9_5_0.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")

// Build the JSON request body
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_Json.UpdateString("PlaceEquityOrder.-xmlns","http://order.etws.etrade.com")
// The accountId should be an 8-digit number such as "83405188"
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.accountId","MY_ETRADE_ACCOUNT_ID")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.clientOrderId","45")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.limitPrice","3")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.quantity","4")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.symbol","ETFC")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.orderAction","BUY")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.priceType","LIMIT")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.marketSession","REGULAR")
loo_Json.UpdateString("PlaceEquityOrder.EquityOrderRequest.orderTerm","GOOD_FOR_DAY")
loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()

// The above code builds the following JSON:

// 	{ 
// 	  "PlaceEquityOrder": { 
// 	    "-xmlns": "http://order.etws.etrade.com",
// 	    "EquityOrderRequest": { 
// 	      "accountId": "83405188",
// 	      "clientOrderId": "45",
// 	      "limitPrice": "3",
// 	      "quantity": "4",
// 	      "symbol": "ETFC",
// 	      "orderAction": "BUY",
// 	      "priceType": "LIMIT",
// 	      "marketSession": "REGULAR",
// 	      "orderTerm": "GOOD_FOR_DAY"
// 	    }
// 	  }
// 	}

// POST the JSON and get the response.
loo_Json.EmitCompact = 1
// Set the Accept property to get a JSON response.
loo_Http.Accept = "application/json"

// This example uses the sandbox URL.  The live URL is "https://etws.etrade.com/order/rest/placeequityorder"
loo_Resp = loo_Http.PostJson2("https://etwssandbox.etrade.com/order/sandbox/rest/placeequityorder","application/json",loo_Json.Emit())
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Json
    return
end if

// Examine the response status code.
li_StatusCode = loo_Resp.StatusCode
Write-Debug "Status Code = " + string(li_StatusCode)

// Load the JSON response body:
loo_Json.Load(loo_Resp.BodyStr)
loo_Json.EmitCompact = 0

// If the status code was not 200, then it was an error..
if li_StatusCode <> 200 then
    Write-Debug loo_Json.Emit()
    Write-Debug "Equity order failed."
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Json
    return
end if

Write-Debug loo_Json.Emit()
destroy loo_Resp

// To examine some information from the JSON:
Write-Debug "quantity: " + string(loo_Json.IntOf("PlaceEquityOrderResponse.EquityOrderResponse.quantity"))
Write-Debug "msgDesc: " + loo_Json.StringOf("PlaceEquityOrderResponse.EquityOrderResponse.messageList.msgDesc")
// etc ..

// This is a sample response:
// 	{ 
// 	  "PlaceEquityOrderResponse": { 
// 	    "EquityOrderResponse": { 
// 	      "accountId": 83310056,
// 	      "allOrNone": false,
// 	      "estimatedCommission": 9.99,
// 	      "estimatedTotalAmount": 1909.99,
// 	      "messageList": { 
// 	        "msgDesc": "Your order was successfully entered during market hours.",
// 	        "msgCode": 1026
// 	      },
// 	      "orderNum": 277,
// 	      "orderTime": 1240982042179,
// 	      "quantity": 100,
// 	      "reserveOrder": false,
// 	      "reserveQuantity": 0,
// 	      "orderTerm": "GOOD_UNTIL_CANCEL",
// 	      "limitPrice": 18,
// 	      "stopPrice": 0,
// 	      "symbolDesc": "CISCO SYS INC COM",
// 	      "symbol": "CSCO",
// 	      "orderAction": "BUY",
// 	      "priceType": "LIMIT"
// 	    }
// 	  }
// 	}
// 


destroy loo_Http
destroy loo_JsonToken
destroy loo_Json