Hi Berit,

Could you please test it in Postman first? I am not sure about the parameters in your TokenRequest. I suggest you provide us with a screenshot of the test in Postman for reference and analysis.
You can refer to the following link about how to use OAuth 2.0 authorization

https://docs.appeon.com/pb2022r3/application_techniques/ch04s08s01.html
https://docs.appeon.com/pb2022r3/application_techniques/ch04s08s01.html#d0e14799
https://docs.appeon.com/pb2022r3/application_techniques/ch04s08s01.html#d0e14833

Regards,

Hi Mark,

Thank you for replying. This is the setup in Postman:

This is the code in PowerBuilder:

// example from https://docs.appeon.com/pb2019r3/application_techniques/ch04s08.html
String ls_id, ls_secret, ls_Scope//, ls_Redirect
String ls_Body, ls_code, ls_Url_code, ls_AccessToken, ls_temp, ls_type, ls_description, ls_uri, ls_state
Integer li_rtn
OAuthClient loa_Client
TokenRequest ltr_Request
TokenResponse ltr_Response
OAuthRequest loa_Request
ResourceResponse lrr_Response
CoderObject lco_Code
Blob lb_data

lco_Code = Create CoderObject
loa_Client = Create OAuthClient

//Step 1: Get the authorization code
ls_code = is_altinn_code
If Len ( ls_code ) < 1 Then Return
lb_data = lco_Code.Urldecode( ls_code)
ls_code = String ( lb_data,EncodingANSI!)

//Step 2: Get the RESTful Server token
ltr_Request.ClearHeaders()
ltr_Request.tokenlocation = "https://test.idporten.no/token"
ltr_Request.SetHeader("Content-Type","application/x-www-form-urlencoded")
ltr_Request.Method = "POST"
ltr_Request.granttype = "authorization_code"
ltr_Request.clientid = is_client_id
ltr_Request.clientsecret = is_client_secret
ltr_Request.Scope = is_scope

ltr_Request.ClearParams()
//ltr_Request.AppendParam( "grant_type","authorization_code")
//ltr_Request.AppendParam( "client_id", is_client_id )
//ltr_Request.AppendParam( "client_secret", is_client_secret )
//ltr_Request.AppendParam( "scope", is_scope )
ltr_Request.AppendParam( "code", ls_code )
ltr_Request.AppendParam( "redirect_uri", is_redirect_url ) // what should this be??

li_rtn = loa_Client.AccessToken( ltr_Request, ltr_Response )
If li_rtn = 1 Then
ls_AccessToken = ltr_Response.GetAccessToken ( ) // Empty
messagebox("token", ls_accessToken)
ls_temp = string(ltr_response.getStatusCode()) // Empty
ls_temp = ltr_response.getStatusText() // Empty
li_rtn = ltr_response.getTokenError(ls_type, ls_Description, ls_uri, ls_state) // Empty

//Step 3: Get the RESTful Server resource
// If Len(ls_AccessToken) > 0 Then
// loa_Request.SetAccessToken (ls_AccessToken)
// loa_Request.Method = "GET"
// loa_Request.Url = "https://www.googleapis.com/oauth2/v1/tokeninfo" // what should this be???
// li_rtn = loa_Client.requestresource( loa_Request, lrr_Response )
// If li_rtn = 1 Then
// lrr_Response.GetBody(ls_Body)
// MessageBox ( "Tips", ls_Body )
// End If
// End If
End If

Hi Berit,

Thanks for providing the screenshot.
For the Authorization Code grant type, you need to use a popup window to receive the code. If you don’t have values like the redirect_uri, you can ignore it.
You can refer to the following link for the details.
https://docs.appeon.com/pb2022r3/application_techniques/ch04s08s01.html

Code example:

String ls_id, ls_secret, ls_Scope, ls_Redirect
String ls_Body, ls_code, ls_Url_code, ls_AccessToken
Integer li_rtn
OAuthClient loa_Client
TokenRequest ltr_Request
TokenResponse ltr_Response
OAuthRequest loa_Request
ResourceResponse lrr_Response
CoderObject lco_Code
Blob lb_data

lco_Code = Create CoderObject
loa_Client = Create OAuthClient

ls_id = "434849452875-6905f1g9rjiargcnqut06afmnn0b0fp7.apps.googleusercontent.com"
ls_secret = "E1b7RsBxZWKq_yrl-kbfONF5"
ls_Scope = "https://www.googleapis.com/auth/youtube"
ls_Redirect = "https://www.appeon.com/callback"

//Step 1: Get the authorization code
ls_Url_code = "https://accounts.google.com/o/oauth2/auth?client_id=" + ls_id + "&redirect_uri=" + ls_Redirect +"&scope=" + ls_Scope + "&response_type=code"
OpenWithParm ( w_webbrowser,ls_Url_code )
ls_code = Message.Stringparm
If Len ( ls_code ) < 1 Then Return
If Pos( ls_code, "code=" ) < 0 Then return
ls_code = Mid ( ls_code, pos(ls_code,"=") + 1)
ls_code = Mid ( ls_code, 1, pos(ls_code,"&") - 1)
lb_data = lco_Code.Urldecode( ls_code)
ls_code = String ( lb_data,EncodingANSI!) 

//Step 2: Get the RESTful Server token
ltr_Request.tokenlocation = "https://accounts.google.com/o/oauth2/token"
ltr_Request.Method = "POST"
ltr_Request.granttype = "authorization_code"
ltr_Request.clientid = ls_id
ltr_Request.clientsecret = ls_secret
ltr_Request.ClearParams()
ltr_Request.AppendParam( "grant_type","authorization_code")
ltr_Request.AppendParam( "client_id", ls_id )
ltr_Request.AppendParam( "client_secret", ls_secret )
ltr_Request.AppendParam( "scope", ls_Scope )
ltr_Request.AppendParam( "code", ls_code )
ltr_Request.AppendParam( "redirect_uri", ls_Redirect )
ltr_Request.ClearHeaders()
ltr_Request.SetHeader("Content-Type","application/x-www-form-urlencoded")

li_rtn = loa_Client.AccessToken( ltr_Request, ltr_Response )
If li_rtn = 1 Then
 ls_AccessToken = ltr_Response.GetAccessToken ( )
 //Step 3: Get the RESTful Server resource
 If Len(ls_AccessToken) > 0 Then
  loa_Request.SetAccessToken (ls_AccessToken)
  loa_Request.Method = "GET"
  loa_Request.Url = "https://www.googleapis.com/oauth2/v1/tokeninfo"
  li_rtn = loa_Client.requestresource( loa_Request, lrr_Response )
  If li_rtn = 1 Then
   lrr_Response.GetBody(ls_Body)
   MessageBox ( "Tips", ls_Body )
  End If

 End If
End If