Re: JSON output in CGIPGM - Wrong type or CCSID?

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Pete,

When I'm stuck using SQL for stuff like that, I do the following... this 
works fine for me.  The only caveat is you must have your job CCSID set 
properly.  (It won't work with 65535)

dcl-s request  varchar(2000);

exec sql select json_object(
                  'source' value :fromLang,
                  'target' value :toLang,
                  'text' value json_array(:fromText)
                )
           into :request
           from SYSIBM.SYSDUMMY1;

On 5/21/2021 5:53 PM, Pete Helgren wrote:
> Posted to Midrange by habit.....sorry for the duplicate...
>
>
> I have an sqlrpgle program that creates JSON output using JSON_ARRAY 
> (among others) and outputs JSON (actually, SQL is pretty cool along 
> these lines).  Running just the SQL statement interactively, I get 
> just what I expect, nicely formatted JSON. When I run it within the 
> RPG program, I have some issues.  It really boils down to 
> understanding a couple of things:
>
> If the goal is to output the SQL into a variable and then dump that 
> variable out using Standard Out (QtmhWrStout) what should the variable 
> type be?  Originally I tried varchar but I got an error when it was 
> output due to "reason code 12:   -- The CCSIDs (Coded Character Set 
> Identifiers) of the operands cannot be made compatible."   So either I 
> chose the wrong data type or I need to set a CCSID.  I tripped across 
> a post from a few years ago that using a DBCLOB or a CLOB type an 
> CCSID of 1200.  I do get output now (no error) but it is just a string 
> of '@@@@@@@@@@@@@@@@...'s that tells me a have CCSID issue.
>
> Tried a few other ideas, still get the wrong output.  So the question 
> is:  If the plan is to output through a CGI pgm using QtmhWrStout how 
> should I define the variable and should it be assigned a CCSID?