Hi Pete,
it really depends how big your data (or your variable) is.
If it is shorter then 32K you can write it into a VarChar-Variable CCSID 1208 (UTF-8)
If it is longer then 32K you have to write it into a CLOB-Variable CCSID 1208.
When using CLOB-Variables, be aware that the SQL precompiler converts the variable into a Data Structure with the Sub-Fields:
1. Name of the Clob Variable with suffix _LEN (Definition UNS(10))
2. Name of the CLOB Variable with the suffix _DATA (Definition CHAR(Length of your Variable).
With RPG you have to use the data structure subfields and with SQL you use the data structure name.
Here an example:
DCL-S GblJSONData SQLType(CLOB: 1000000) CCSID(1208);
//More RPG Code
//Generate and output the JSON into the CLOB-Variable
exec sql
With x as (....)
Select JSON_Object(...)
into :GblJSONData
From x;
If SQLCODE < *Zeros;
//Handle SQL Error
EndIf;
//Write the data to the Web
WrtStdout(%Addr(GblJSONData_Data): GblJSONData_Len: DsApierr);
On-Error;
EndMon;
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Pete Helgren
Sent: Samstag, 22. Mai 2021 00:41
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: JSON output in CGIPGM - Wrong type or CCSID?
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?
--
Pete Helgren
www.petesworkshop.com
GIAC Secure Software Programmer-Java
AWS Certified Cloud Practitioner
Microsoft Certified: Azure Fundamentals
Twitter - Sys_i_Geek IBM_i_Geek
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-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
midrange.com
