|
On Apr 13, 2021, at 3:36 PM, Jack Prucha <Jack.Prucha@xxxxxxx> wrote:
Yes. It was clear enough.
I had an odd compiler issue. Defining the embedded JSON as 1024 caused all sorts of corruption in the definitions/lengths of subsequent fields. That according to debug before even executing data-into. Data-into wouldn't populate anything past the PAYLOAD (embedded JSON) field. The actual length was around 200 but I had picked 1024 as being plenty big enough. Reducing the size of field PAYLOAD to 512 allowed the program to populate the rest of the fields properly.
Thx again to all who responded.
dcl-ds txSuccessorJSONDoc qualified;
ID VarChar(20) inz('0');
count_PAYLOAD int(10) inz(0);
PAYLOAD VarChar(1024) inz('');
INTERNALACCOUNTNUMBER VarChar(9) inz('0');
AS400ACCOUNTNUM VarChar(12) inz('0');
EVENTTYPE varchar(10) inz('');
SOURCE varchar(50) inz('');
STATUS varchar(50) inz('');
SUBMITDATE varchar(25) inz('');
CREATEDDATE varchar(25) inz('');
CREATEDBY varchar(128) inz('');
LASTMODIFIEDDATE varchar(25) inz('');
LASTMODIFIEDBY varchar(128) inz('');
End-ds;
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Brad Stone
Sent: Tuesday, April 13, 2021 1:09 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Embedded payload in a JSON - How to define and process
Hopefully explained clear enough. :) Even I had trouble explaining it.
Something about springs in MN the pollen makes my head ache and brain
fog... allergies are so great. :) But I imagine they go along with being
a "computer nerd". haha..
On Tue, Apr 13, 2021 at 11:46 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:
Brad has the right approach and it should work just fine with DATA-INTO.--
Jon Paris
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
[CFNC]
This email, including any documents, files, or previous email messages attached to it, has been sent from an email account of College Foundation Inc., (CFI) and may contain confidential, proprietary, or legally privileged information belonging to CFI. If you are not the intended recipient, any dissemination, distribution, or copying of this email or its attachments is strictly prohibited. If you have received this email in error, please immediately notify the sender by email and destroy the original email and any attachments.
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
