Re: RPG calling a REST service

[Bradley Stone <bvstone@xxxxxxxxx>]

You didn't mention if your IBM i is making a request TO a service, or
acting as the server.

But, with your authentication it most likely is using some form of OAuth so
you probably need to pass the authentication information back in an HTTP
header (if you're making the request to a service).  Normally it's
something like this:

Authorization: Bearer 0b79bab50daca910b000d4f1a2b675d604257e42

I am not familiar with how to add HTTP headers with the application you're
using since I always use GETURI for my HTTP requests.  But I'm sure you can
find that or someone else can help as well.  I would just make sure you
study the docs and most have sections on authentication/authorization that
are fairly specific.

Dealing with quite a few services over the past few years most use OAuth or
some "version" of that.

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #12 <https://www.bvstools.com/mailtool.html>: Both Text
and HTML email support

On Tue, Nov 14, 2017 at 7:03 AM, Deon Fourie <DFourie@xxxxxxxxxxxxxxxxx>
wrote:

> Hi, I need to initiate a REST service on a PC server, after a RPG job
> completes.
>
> There are a set of JSON requests available on the PC server.
>
> I had a look on IBM developerworks that gives very good examples how to
> initiate a REST service.
>
> 1)The first one is a Authentication call.
>
> I managed to make the authentication call with the supplied login
> credentials (I get a "SUCCESS" XML back)
>
> Uri = <url with the user and password supplied>
> Uri2= <url with the actual call ti initate the job on the PC>
>
> tHandle_A = axiscTransportCreate(uri:AXISC_PROTOCOL_HTTP11);
>    if (tHandle_A = *NULL);
>      PRINT ('TransportCreate() failed');
>      return;
>    endif;
>
>
>    propBuf = 'GET' + X'00';
>    axiscTransportSetProperty(tHandle_A: AXISC_PROPERTY_HTTP_METHOD:
> %addr(propBuf));
>    flushAndReceiveData();
>
>
>
>
> 2)I'm struggling to find a way to pass this Authentication handle/token
> (tHandle_A) back to the next call that initiates the actual service.
>
> In the next call, that will initiate the job on the PC server,  I create
> new Handle , with a new URL (Uri2) to pass the necessary info to be able to
> make the call .
>
> I tried to rather set the authentication properties on the second call by
> utilizing:
>
> rc =axiscTransportSetProperty(tHandle:AXISC_PROPERTY_HTTP_
> BASICAUTH:%addr(propBuf1):%addr(propBuf2));
>
> That doesn't work.
>
> What I need is something like this: rc =axiscTransportSetProperty(
> tHandle_B:AXISC_PROPERTY_HTTP_BASICAUTH:thandle_A);
>
> Where I pass the original handle (tHandle_A) that I got when I
> authenticated with the first call.
>
> Or any other method to supply the authentication token with the next call.
>
> Any advice would be appreciated.
>
>
> Deon Fourie
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD