Re: Error Reading JSON using Data-INTO

[Charles Wilt <charles.wilt@xxxxxxxxx>]

I should have included title...

dcl-ds doc;
  dcl-ds data;
    ...
  end-ds;
  title char(50);
end-ds;

Charles

On Wed, Aug 4, 2021 at 3:19 PM Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

> Your JSON doc is a little wonky...
>
> Thing to keep in mind is that the root of a JSON doc isn't named.  "Data"
> is actually the name of a json object in your document.
>
> the ds you need is like so
>
> dcl-ds doc;
>   dcl-ds data;
>     ...
>   end-ds;
> end-ds;
>
> Data-into doc %Data(JsonString:'allowextra=yes') %PARSER('YAJLINTO');
>
> HTH,
> Charles
>
>
> On Wed, Aug 4, 2021 at 3:07 PM Kathan Pandya <kathan.p@xxxxxxxxx> wrote:
>
> > Hi,
> >
> > I am new to YAJL and using DATA-INTO. I have a simple json and I am trying
> > to read it using DATA-INTO and getting below error:
> > Cause . . . . . : While parsing a document for the DATA-INTO operation,
> > the
> > parser found that the document does not correspond to RPG variable "data"
> > and the options do not allow for this. The reason code is 4. The exact
> > subfield for which the error was detected is "data.instruction2". The
> > options are "allowextra=yes". The document name is *N; *N indicates that
> > the
> > document is not an external file. The parser is 'YAJLINTO'. *N indicates
> > that the parser is a procedure pointer.
> >
> > JSON -
> > {
> > "data": {
> > "instruction2": "FIRST SEAT",
> > "seat1l3": "2356",
> > "reset34": "Yes",
> > "temp": "-78",
> > "seat1l4": "326",
> > "seat2l3": "3265",
> > "instruction1": "** Daily Check Call **",
> > "seat2l4": "986",
> > "trl": "12345",
> > "seat2a70": "253",
> > "seat1a70": "895",
> > "eta": "2021-08-18T11:23:24-07:00",
> > "onsched": "Yes",
> > "hub": "896586",
> > "odo": "123658",
> > "reasonoffsched": "traffic"
> > },
> > "title": "Daily Check Call - 01"
> > }
> >
> >
> > RPG Declaration -
> >
> > dcl-ds data qualified;
> > instruction2 char(50);
> > seat1l3 char(5);
> > reset34 char(1);
> > temp char(3);
> > seat1l4 char(5);
> > seat2l3 char(5);
> > instruction1 char(50);
> > seat2l4 char(5);
> > trl char(6);
> > seat2a70 char(5);
> > seat1a70 char(5);
> > eta char(26);
> > onsched char(1);
> > hub char(7);
> > odo char(11);
> > reasonoffsched char(70);
> > title char(50);
> > end-ds;
> >
> > I am moving the data into a standalone character variable name JsonString
> > (using it below in Data-INTO)
> >
> > Statement -
> > Data-into data %Data(JsonString:'allowextra=yes') %PARSER('YAJLINTO');
> >
> >
> > Please advise what am I doing wrong?
> > --
> > This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
> > list
> > To post a message email: WEB400@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/web400
> > or email: WEB400-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/web400.