Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Use this online tool to generate code from sample JSON: Generate Code to Create JSON
' The following JSON is sent in the request body.
' {}
Dim json As New ChilkatJsonObject
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","text/xml"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://domain.com/","text/xml",json)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-H "Content-Type: text/xml"
-d '{{header}}
<SessionCloseRQ>
<POS>
<Source PseudoCityCode="{{pcc}}"/>
</POS>
</SessionCloseRQ>
{{footer}}'
https://domain.com/
Postman Collection Item JSON
{
"name": "SessionCloseRQ (Stateful ATH) close session",
"event": [
{
"listen": "test",
"script": {
"exec": [
"//cleanup\r",
"pm.environment.unset('token')\r",
"pm.environment.unset('filterName')\r",
"pm.environment.unset('profileName')"
],
"type": "text/javascript"
}
},
{
"listen": "prerequest",
"script": {
"exec": [
""
],
"type": "text/javascript"
}
}
],
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"value": "text/xml"
}
],
"body": {
"mode": "raw",
"raw": "{{header}}\n\n<SessionCloseRQ>\n\t<POS>\n\t\t<Source PseudoCityCode=\"{{pcc}}\"/>\n\t</POS>\n</SessionCloseRQ>\n \n{{footer}}"
},
"url": {
"raw": "{{soap_endpoint}}",
"host": [
"{{soap_endpoint}}"
]
},
"description": "Used to close stateful sessions on Sabre's Passenger Sales System"
},
"response": [
]
}