× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.