Re: DATA-INTO where number of records not known -- MIDRANGE-L

Your understand of %Handler is incorrect. It will be called for every n elements found - where n is the number of elements defined in the handler's input parameter.

For example - this handler procedure would receive 4 at a time due to the Dim.

Dcl-Pr HandleCompany Int(10);
commArea Int(10);
company Char(32) Dim(4) Const;
numElements Int(10) Value;
End-Pr;

Also if you are dealing with a repeat at the top level of the document as Charles' example shows then there is no need to provide a count - RPH already places one in the PDSD at offset 372 which is populated automatically when the target is an array or DS array.

Dcl-Ds progStatus psds;
xmlElements Int(20) POS(372);
End-Ds;

I'll gladly show you an example of %Handler but it would be easier if you showed the json as I said earlier.

On Dec 10, 2020, at 6:41 PM, Don Brown via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

Thanks Charles,

Ok so you have confirmed the count will provide the total number of
records received even if it exceeds the array limit.

And like you trying to find an example of %handler has not been
successful.

But my reading so far of %handler is that it would be called for each
record received.

Hopefully someone on the list may have a example of how they used
%handler.

Thank you for your reply

Don

From: "Charles Wilt" <charles.wilt@xxxxxxxxx>
To: "Midrange Systems Technical Discussion"
<midrange-l@xxxxxxxxxxxxxxxxxx>
Date: 11/12/2020 09:27 AM
Subject: Re: DATA-INTO where number of records not known
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx>

Have you looked at using YAJLGEN to generate the DS & DATA-INTO call you
need?

You can do it yourself or course, but YAJLGEN sure makes for an easy first
pass.

Basically, in the data-into you include "count prefix" like so:
countprefix=num_

then in your DS, you include a field
dcl-ds jsonDoc;
num_SOMEARRAY int(10);
SOMEARRY char(10) dim(9999);
end-ds;

YAJLINTO will load the array and the value in num_SOMEARRAY will be how
many entries were loaded to the array.

Now if your # of entries exceeds the max array size for RPG, then I think
%handler() is your solution.

I've only seen it used once, and that was for XML...but it only processes
part of the doc at a time before passing the data to your handler. A
quick
serach didn't turn up a good exmaple of using it for JSON.

Teraspace and a based pointer might be another option if you're dealing
with really large documents...just a thought.

Charles

On Thu, Dec 10, 2020 at 3:01 PM Don Brown via MIDRANGE-L <
midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

(Sorry, not sure if this is should be the RPG list only or the Midrange
list)

We are using data-into with YAJLINTO to process a json file we retrieve
from an external site using a web service.

The web service does not provide any options as to controlling the

number

of records to be returned.

The json returned does not have an element for the number of records
provided.

If I put a count at the highest level will this be set correctly if the
number of records retrieved exceeds the array size ? And if yes how do I
then process the records past that point ?

I don't think the %handler option helps - well the way I read the doco

it

wont.

How do I either check how many records have been returned or process a
json string that exceeds the number of elements in my receiving array ?

Thanks for all suggestions

Don

--
This email has been scanned for computer viruses. Although MSD has taken
reasonable precautions to ensure no viruses are present in this email,

MSD

cannot accept responsibility for any loss or damage arising from the use

of

this email or attachments..
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:

https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=hirmV788fhJEaASEQO0FXq6jTKco9QvzBTWHslQpkqM&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at

https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=tHYTxFLSSsI2yghAwIccJb9r99wY9LjByFQrBw79hLU&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support

https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=hmZ9UPlwomqZp3cZy6EnetB8jmwD9IgyHZcDE9DAYZY&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=speJM2dL4e6S7th_1_Ly_et4cxHogMzTq9dguU0Lde8&e=
with our affiliate

link:

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=8RBI4zBnOjf4NTdgqoZgyuvbvA1Pv3x2v6XXe1i65Tg&e=

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=hirmV788fhJEaASEQO0FXq6jTKco9QvzBTWHslQpkqM&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=tHYTxFLSSsI2yghAwIccJb9r99wY9LjByFQrBw79hLU&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support
https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=hmZ9UPlwomqZp3cZy6EnetB8jmwD9IgyHZcDE9DAYZY&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=speJM2dL4e6S7th_1_Ly_et4cxHogMzTq9dguU0Lde8&e=
with our affiliate link:
https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=Kys-lxRCMpPr7up01Pp1FRjOe49ne6imWwi1b-ue8yQ&m=-PWDCmLBxYYH13bcXYxWkNMenCdRQ8fUXqdj9htfCHI&s=8RBI4zBnOjf4NTdgqoZgyuvbvA1Pv3x2v6XXe1i65Tg&e=

--
This email has been scanned for computer viruses. Although MSD has taken reasonable precautions to ensure no viruses are present in this email, MSD cannot accept responsibility for any loss or damage arising from the use of this email or attachments..
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-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