Re: http_post question

[Adam Dodson <a.dodson@xxxxxxxxxxxxxxxx>]

The HTTP 401 response code would indicate they're refusing authorization to
the requested resource based the credentials you've provided.  You may want
to take this issue up with usaepay.

Perhaps, you could tell us all this Mr. Doe's Social Security Numbe? ;)


Regards,

Adam B. Dodson
IT Dept.
Software Developer, Systems Administrator
Powercon Corporation


On Tue, Apr 16, 2019 at 5:00 PM tim <iseriesstuff@xxxxxxxxx> wrote:

> I am trying to use rest to access usaepay system
> (https://help.usaepay.info/developer/rest-api/) (code below).
>
> Im getting the following error "HTTP/1.1 401 Valid authentication
> required". I generated the key using the PHP sample code on the site.
>
>
> H DFTACTGRP(*NO) BNDDIR('HTTPAPI':'QC2LE')
>
> D myJSON          s            500a   varying
> D authorization   s            500a   varying
> D rc              s             10i 0
>
>   /copy LIBHTTP/QRPGLESRC,httpapi_h
>
>     *inlr = *on;
>
>     myjson = ' +
>       {"command": "cc:sale", +
>        "amount": "5.00", +
>        "amount_detail": +
>         { +
>         "tax": "1.00", +
>         "tip": "0.50" +
>         }, +
>        "creditcard": +
>         { +
>           "cardholder": "John doe", +
>           "number": "4000100011112224", +
>           "expiration": "0919", +
>           "cvc": "123", +
>           "avs_street": "1234 Main", +
>           "avs_zip": "12345" +
>         }, +
>        "invoice": "12356" +
>       } +
>       ';
>
>     http_debug(*on: '/home/tim/result.txt');
>
>     http_setOption( 'content-type'  : 'application/json' );
>     http_setOption( 'user-agent'    : 'uelib v6.8');
>     authorization = 'Basic +
> v0dIcexyabhyMEdIOTdeSnBVWVNddvFSNevKODl6vVk6czvvYdJvd+
> vgmZ2hpamtsbd5vcC8zrDJhYdU1YTEyNT2xMmY4NzVhZmU2M+
> zg5NDc4YdNhdjd5MdUdYggdYTJdNvddYzEdOWFkdTvwZTFkdvVldTv2';
>     http_setOption( 'Authorization' : authorization);
>     rc = http_post( 'https://sandbox.usaepay.com/api/v2/transactions'
>                      : %addr( myJSON : *data )
>                      : %len( myJSON )
>                      : '/home/tim/result.json'
>                      : HTTP_TIMEOUT
>                      : HTTP_USERAGENT
>                      : 'application/json' );
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> 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: https://amazon.midrange.com