Re: [EXTERNAL] Re: DATA-INTO problem

I'm a little surprised actually. In your original code you qualified YAJLINTO with YAJL (i.e. YAJL/YAJLINTO), so it should have found it. Did you remove the qualification?

All the examples I saw never showed it qualified except in the IBM manual.

On 3/17/2023 10:14 PM, Scott Luckenbaugh via RPG400-L wrote:

Much obliged, Peter.
Once I put YAJL into the library list, it worked like a charm.
Imagine that!
😊

-----Original Message-----
From: RPG400-L<rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Peter Dow
Sent: Friday, March 17, 2023 6:43 PM
To:rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] Re: DATA-INTO problem

CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.


Hi Scott,

MCH3401 - cannot resolve to object.

In this context, I'd say it cannot find YAJL/YAJLINTO. Does the YAJL library exist on the system? If so, does the YAJLINTO program exist in that library? Do you have authority to the program?

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx
pdow@xxxxxxxxxxxxxx /

On 3/17/2023 2:16 PM, Scott Luckenbaugh via RPG400-L wrote:

I have gained access to an API and am receiving four test records, but
they are not loading to the database. The docsReady array is blank
except that the num_Docs field of each element contains the same value
(1077952576.)

I am getting a message:
Error MCH3401 occurred while running the program or procedure for
the DATA-INTO

I don't know what I may be doing incorrectly. Can you help?

Thank you,
Scott


dcl-s buffer VARCHAR(160000);

dcl-ds docsReady dim(9999) qualified;
num_docs INT(10);
groupID ZONED(5:0);
groupName VARCHAR(40);
recorderApprovedDate CHAR(23);
sequence ZONED(3:0);
priaDocObjectID ZONED(6:0);
end-ds;


Data-Into docsReady
%data( buffer : 'case=any countPrefix=num_ allowExtra=yes' )
%parser( 'YAJL/YAJLINTO' );

[
{
"groupID":86559,
"groupName":"XYZ COMPANY",
"recorderApprovedDate":"2019-05-21 19:40:50.471",
"sequence":1,
"priaDocObjectID":100470
},
{
"groupID":86559,
"groupName":"XYZ COMPANY",
"recorderApprovedDate":"2019-05-21 19:40:50.471",
"sequence":2,
"priaDocObjectID":100469
},
{
"groupID":86559,
"groupName":"XYZ COMPANY",
"recorderApprovedDate":"2019-05-21 19:40:50.471",
"sequence":3,
"priaDocObjectID":100468
},
{
"groupID":86559,
"groupName":"XYZ COMPANY",
"recorderApprovedDate":"2019-05-21 19:40:50.471",
"sequence":4,
"priaDocObjectID":100471
}
]

--
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://urldefense.com/v3/__https://lists.midrange.com/mailman/listinfo/rpg400-l__;!!HzYX23eHnp2Wbe4!Ss0mM045N0f2U3Zq39TQ3w7q7wIlnOp2vmHvsg9N69ylfKYUQBqEgdDG4Y_FBSb0yErsk9VI6Cx37FNX-CTq9k8v3Q$
or email:RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives athttps://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!HzYX23eHnp2Wbe4!Ss0mM045N0f2U3Zq39TQ3w7q7wIlnOp2vmHvsg9N69ylfKYUQBqEgdDG4Y_FBSb0yErsk9VI6Cx37FNX-CQbAMryNA$ .

Please contactsupport@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.