Great! Thanks! That did work. It only allows me to fetch the first row to dump into the IFS file, which makes sense to me.
How could I include multiple JSON messages / 'rows'? Someone approached us about doing ND JSON, which might be what this would be. I'm not sure to be honest.
Any thoughts?
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Birgitta Hauser
Sent: Tuesday, January 7, 2020 11:23 PM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS
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
--
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
