If you are already in an modernization project, why not using the appropriate SQL Service Table Function RECEIVE_DATA_QUEUE (
https://www.ibm.com/docs/en/i/7.4?topic=services-receive-data-queue-table-function) it should handle any lengths problems correctly.
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Singh, Ashwani (Lake Mary) via RPG400-L
Sent: Mittwoch, 19. Januar 2022 17:39
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Singh, Ashwani (Lake Mary) <Ashwani.Singh@xxxxxxxxxx>
Subject: RE: QRCVDTAQ Question - O/P Data Parm
Thanks Alan,
We increased the length of all Q's to 64512 for our platform modernization project.
PGM2 - is sending only 8192 data , that's all we want.
My question was will the DATA length (IN PGM1) cause any issue since it is larger than what is being received - I think no but want to see if anyone has seen any issues with that.
Thanks,
Ashwani Singh
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Campin
Sent: Wednesday, January 19, 2022 11:31 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: QRCVDTAQ Question - O/P Data Parm
⚠ EXTERNAL MESSAGE – Think Before You Click
I am surprised that the API will allow you to do that but, of course. If your data is 64K in size, why are you defining the data queue to only by 8192? Anything longer than 8192 is not going to be sent.
On Wed, Jan 19, 2022 at 8:21 AM Singh, Ashwani (Lake Mary) via RPG400-L < rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:
Hello,
I have a question regarding the data parameter to rule out QRCVDTAQ
involvement.
PGM 1 - Receives data with length 64512 , using a DTAQ with MAXLEN
(10240) , PGM2 which sends the data to this queue can send max 8192
Bytes only.
D QRCVDTAQ PR EXTPGM('QRCVDTAQ')
D DataQ 10 Const
D Lib 10 Const
D QLength 5P 0 Const
D OtData 64512
D Qwait 5P 0 Const
Is there any possibility that data received in PGM1 get corrupted
because of length of OTDATA > MaxLen ?
Thanks,
Ashwani Singh
--
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/listinf
o/rpg400-l__;!!P9vvK-4S!xtGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZ
RY0GdCMCfIQMK2fIyB8uA$ or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!P9vvK-4S!xtGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZRY0GdCMCfIQMK2R6K5iF8$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!P9vvK-4S!x
tGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZRY0GdCMCfIQMK2FvU6Zp0$
--
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__;!!P9vvK-4S!xtGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZRY0GdCMCfIQMK2fIyB8uA$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!P9vvK-4S!xtGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZRY0GdCMCfIQMK2R6K5iF8$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!P9vvK-4S!xtGf2d8bZPyNjfQuBDGj98x0chbeSIJerri1Mk_FAd5UCZRY0GdCMCfIQMK2FvU6Zp0$
--
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.