Re: RPGLE, web services, json and Forbidden, Forbidden - by rule., , You do not have permission to access /states on this server.

This is really all you need to write it out to STDOUT, as mentioned a few
times before. why monkey with the CGI APIs directly and large text
variables when you don't have too?

begsr JSON_Save;

if (success);
httpStatus = 200;
else;
httpStatus = 500;
endif;

yajl_writeStdout(httpStatus:errMsg);
endsr;

I refer again to this sample I put together for you:
https://www.fieldexit.com/forum/display?threadid=522

Now, if you still have problems, please refresh us on what the problem is,
if it isn't the same as the title of the message.

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #19 <https://www.bvstools.com/mailtool.html>: The ability
to turn off "Strict SSL" settings. This means no importing Certificate
Authorities (CAs) unless you want to.

On Sun, Sep 30, 2018 at 5:26 PM Booth Martin <booth@xxxxxxxxxxxx> wrote:

This is what I have in my program:

begsr JSON_Save;
if (success);
httpStatus = 200;
else;
httpStatus = 500;
endif;
CharVar = 'Status: ' + %char(httpStatus) + CRLF

+ 'Content-type: text/plain' + CRLF
+ CRLF;
QtmhWrStout( charVar : %len(charVar): err );

yajl_copyBuf( CCSID
: %addr(bigCharVar)
: %size(bigCharVar)
: length );

yajl_genClose();
QtmhWrStout( bigCharVar : length: err );
endsr;

I believe that is an accurate copy/paste of Scott's example. Typos get
past me, but I checked more than three times.

Is it possible that there is a library issue? When I sign in I have to
edit my library list to include YAJL. So how would a web service know
to add YAJL?



On 9/30/2018 8:10 AM, Bradley Stone wrote:

Yes, Booth. This is the part that writes the headers:

CharVar = 'Status: ' + %char(httpStatus) + CRLF
+ 'Content-type: text/plain' + CRLF
+ CRLF;
QtmhWrStout( charVar : %len(charVar): err );

...

--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/web400.