Outfile must be a CLOB_FILE CCSID 1208.
DCL-S OutFle SQLType(CLOB_FILE) CCSID(1208);
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: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Stephen
Piland
Sent: Mittwoch, 8. Januar 2020 01:46
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: JSON_OBJECT and Writing to IFS
Anyone have any luck writing the encoded JSON out to the IFS like we have
done with XML using sqltype(xml_clob_File) and Select-ing into that
variable? Do I need to convert / cast the JSON_OBJECT into a CLOB in the
SQL? Thanks!
Quick Test...
dcl-s Outfile sqltype(xml_clob_File) ;
exec sql Set Option COMMIT=*NONE,CLOSQLCSR=*ENDMOD,DATFMT=*ISO;
// Prep JSON File
Outfile_Name = %trim('/temp/test.json'); Outfile_NL =
%len(%trimr(Outfile_Name)); Outfile_FO = SQFCRT;
exec sql Select json_object ('upc' value fldupc, 'price' value price) Into
:Outfile From PRICING;
--
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
midrange.com
