Re: qsys2.http_post

[Jay Vaughn <jeffersonvaughn@xxxxxxxxx>]

aw man...

sadly but gladly....

you are right!

all is well now.

thanks!

On Wed, Nov 23, 2022 at 10:29 AM Martijn van Breden <
m.vanbreden@xxxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

> Hi Jay
>
> From the documentation (
> https://www.ibm.com/docs/en/i/7.5?topic=functions-http-post) it says that
> the message should be the second parameter and options should be the third.
> To me it looks as they have switched places in your call.
>
> Kind regards,
>
> Martijn van Breden
> lead software architect
>
> --
>
> Pantheon Automatisering B.V.
> T. 0513 657 357
> M. 06 2075 2931
>
> E-mail disclaimer
>
>
> -----Oorspronkelijk bericht-----
> Van: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> Namens Jay Vaughn
> Verzonden: woensdag 23 november 2022 15:36
> Aan: RPG programming on the IBM i (AS/400 and iSeries) <
> rpg400-l@xxxxxxxxxxxxxxxxxx>
> Onderwerp: qsys2.http_post
>
> CAUTION: This email originated from outside of the organization. Do not
> click links or open attachments unless you recognize the sender and know
> the content is safe.
>
>
>
> I have an api using qsys2.http_post that is working just fine when called
> from ACS run sql scripts...
>
> I'm moving it to embedded SQL in RPG and getting the following error when
> running...
>
> is 1. The error codes and their meanings follow:
>   1 -- The external program or service program returned SQLSTATE 38501.
> The text message returned from the program is: ERROR  : OPTION NOT JSON .
>
> I have converted char for char... it is identical
>
> Here is the embedded sql in rpg...
> What is wrong and why am I getting this error?
>
> l_url = 'https://api.twilio.com/2010-04-01/Accounts/'
>          %trim(l_apiKey)
>         '/Messages.json';
>
> l_hdr = '{'
>            '"basicAuth":"'
>              %trim(l_apiKey) + ','
>              %trim(l_authToken) + '"'
>           ',"header":"content-type,application/x-www-form-'
>                                   'urlencoded"'
>           ',"sslTolerate":"true"'
>         '}';
>
> l_bdy = '&To=+'
>               %char(i_phone)
>         '&From=REDACTED'
>         '&MessagingServiceSid='
>                                %trim(l_msgSvcId)
>         '&Body='
>                 %trim(i_msg);
>
> exec sql
>   select ifnull("error_message",' ')
>    into :o_errorMsg
>    from json_table(
>                    qsys2.http_post(:l_url
>                                   ,cast(:l_hdr as varchar(855))
>                                   ,cast(:l_bdy as clob(10k))
>                                   )
>   ,'$' columns (
>                  "error_message" char(100)  path '$.error_message'
>                 ) error on error
>                    ) as x;
>
> if sqlcode = 0;
>   return *on;
> else;
>   return *off;
> endif;
>
>
> tia jay
> --
> 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com
> --
> 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com