Read JSON direct from IFS file

Art Tostaine, Jr. <atostaine@xxxxxxxxx>
10:14 AM (15 minutes ago)


to RPG400-L-request
I cobbled this example together from Scott's examples and other sources. I
can't get it to compile. I've processed JSON before with other methods, I'd
like to use all SQL this time.


dcl-s p_Ifs_file char(256)
inz('/api/logs/globale/20260604/497439-GLOBALE-Out-rsp.txt');
exec sql select t.id, t.DocumentData
from
JSON_TABLE( :p_ifs_file,
'lax $.*' COLUMNS(
id VARCHAR(30) PATH '$.id',
DocumentData VARCHAR(100000) PATH '$.DocumentData
)
) as t;

My compile errors are on the SELECT line are position 10 INTO clause
missing from embedded statement and the Document Data line Postition 38
attributes are not valid.

My JSON has a large base64 encoded value as DocumentData. I was planning on
decoding it later. I would love to decode it in this statement.

Thanks for any help