(PowerBuilder) Yapily - Get Application Self

See more Yapily Examples

Get the information about the institutions configured in your application

For more information, see https://docs.yapily.com/api/reference/#operation/getApplicationMe

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

integer li_rc
oleobject loo_Http
integer li_Success
oleobject loo_SbResponseBody
oleobject loo_JResp
integer li_RespStatusCode
string ls_StrVal
string ls_Id
string ls_FullName
string ls_EnvironmentType
string ls_CredentialsType
integer j
integer li_Count_j
string ls_DisplayName
string ls_CountryCode2
string ls_Source
string ls_V_type
string ls_Uuid
string ls_Name
integer li_Active
string ls_Created
string ls_Updated
integer i
integer li_Count_i

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

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Implements the following CURL command:

// curl -i -X GET \
//   -u <username>:<password> \
//   https://api.yapily.com/me

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

loo_Http.Login = "<username>"
loo_Http.Password = "<password>"

loo_SbResponseBody = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb("https://api.yapily.com/me",loo_SbResponseBody)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SbResponseBody
    return
end if

loo_JResp = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JResp.LoadSb(loo_SbResponseBody)
loo_JResp.EmitCompact = 0

Write-Debug "Response Body:"
Write-Debug loo_JResp.Emit()

li_RespStatusCode = loo_Http.LastStatus
Write-Debug "Response Status Code = " + string(li_RespStatusCode)
if li_RespStatusCode >= 400 then
    Write-Debug "Response Header:"
    Write-Debug loo_Http.LastHeader
    Write-Debug "Failed."
    destroy loo_Http
    destroy loo_SbResponseBody
    destroy loo_JResp
    return
end if

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "uuid": "64949de6-6510-4d70-9500-d4aa094c506c",
//   "name": "APPLICATION NAME",
//   "active": true,
//   "authCallbacks": [
//     "https://display-parameters.com/"
//   ],
//   "institutions": [
//     {
//       "id": "modelo-sandbox",
//       "name": "Modelo Sandbox",
//       "fullName": "Modelo Sandbox",
//       "countries": [
//         {
//           "displayName": "United Kingdom",
//           "countryCode2": "GB"
//         }
//       ],
//       "environmentType": "SANDBOX",
//       "credentialsType": "OPEN_BANKING_UK_AUTO",
//       "media": [
//         {
//           "source": "https://images.yapily.com/image/ce2bfdbf-1ae2-4919-ab7b-e8b3d5e93b36?size=0",
//           "type": "icon"
//         },
//         {
//           "source": "https://images.yapily.com/image/ca502f24-d6df-4785-b4b8-1034b100af77?size=0",
//           "type": "logo"
//         }
//       ],
//       "features": [
//         "INITIATE_SINGLE_PAYMENT_SORTCODE",
//         "CREATE_DOMESTIC_PERIODIC_PAYMENT",
//         "ACCOUNT_REQUEST_DETAILS",
//         "ACCOUNT_STATEMENT_FILE",
//         "CREATE_SINGLE_PAYMENT_SORTCODE",
//         "ACCOUNTS",
//         "CREATE_DOMESTIC_SCHEDULED_PAYMENT",
//         "ACCOUNT_PERIODIC_PAYMENTS",
//         "CREATE_DOMESTIC_SINGLE_PAYMENT",
//         "INITIATE_DOMESTIC_PERIODIC_PAYMENT",
//         "EXISTING_PAYMENTS_DETAILS",
//         "INITIATE_BULK_PAYMENT",
//         "EXISTING_PAYMENT_INITIATION_DETAILS",
//         "ACCOUNT_DIRECT_DEBITS",
//         "ACCOUNT_TRANSACTIONS",
//         "INITIATE_DOMESTIC_SINGLE_PAYMENT",
//         "PERIODIC_PAYMENT_FREQUENCY_EXTENDED",
//         "CREATE_INTERNATIONAL_SINGLE_PAYMENT",
//         "ACCOUNT_SCHEDULED_PAYMENTS",
//         "ACCOUNT",
//         "ACCOUNT_STATEMENTS",
//         "ACCOUNT_TRANSACTIONS_WITH_MERCHANT",
//         "CREATE_BULK_PAYMENT",
//         "ACCOUNT_BALANCES",
//         "INITIATE_INTERNATIONAL_SINGLE_PAYMENT",
//         "INITIATE_DOMESTIC_SCHEDULED_PAYMENT",
//         "ACCOUNT_BENEFICIARIES",
//         "IDENTITY",
//         "ACCOUNT_STATEMENT",
//         "INITIATE_ACCOUNT_REQUEST"
//       ]
//     }
//   ],
//   "media": [
//   ],
//   "created": "2020-11-09T10:05:29.897+0000",
//   "updated": "2021-04-14T12:51:07.419+0000"
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

ls_Uuid = loo_JResp.StringOf("uuid")
ls_Name = loo_JResp.StringOf("name")
li_Active = loo_JResp.BoolOf("active")
ls_Created = loo_JResp.StringOf("created")
ls_Updated = loo_JResp.StringOf("updated")
i = 0
li_Count_i = loo_JResp.SizeOfArray("authCallbacks")
do while i < li_Count_i
    loo_JResp.I = i
    ls_StrVal = loo_JResp.StringOf("authCallbacks[i]")
    i = i + 1
loop
i = 0
li_Count_i = loo_JResp.SizeOfArray("institutions")
do while i < li_Count_i
    loo_JResp.I = i
    ls_Id = loo_JResp.StringOf("institutions[i].id")
    ls_Name = loo_JResp.StringOf("institutions[i].name")
    ls_FullName = loo_JResp.StringOf("institutions[i].fullName")
    ls_EnvironmentType = loo_JResp.StringOf("institutions[i].environmentType")
    ls_CredentialsType = loo_JResp.StringOf("institutions[i].credentialsType")
    j = 0
    li_Count_j = loo_JResp.SizeOfArray("institutions[i].countries")
    do while j < li_Count_j
        loo_JResp.J = j
        ls_DisplayName = loo_JResp.StringOf("institutions[i].countries[j].displayName")
        ls_CountryCode2 = loo_JResp.StringOf("institutions[i].countries[j].countryCode2")
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_JResp.SizeOfArray("institutions[i].media")
    do while j < li_Count_j
        loo_JResp.J = j
        ls_Source = loo_JResp.StringOf("institutions[i].media[j].source")
        ls_V_type = loo_JResp.StringOf("institutions[i].media[j].type")
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_JResp.SizeOfArray("institutions[i].features")
    do while j < li_Count_j
        loo_JResp.J = j
        ls_StrVal = loo_JResp.StringOf("institutions[i].features[j]")
        j = j + 1
    loop
    i = i + 1
loop
i = 0
li_Count_i = loo_JResp.SizeOfArray("media")
do while i < li_Count_i
    loo_JResp.I = i
    i = i + 1
loop


destroy loo_Http
destroy loo_SbResponseBody
destroy loo_JResp