Re: Inserting multiple rows using the blocked INSERT statement

Il 29 aprile 2021 alle 17.33 Charles Wilt <charles.wilt@xxxxxxxxx> ha scritto:


Actually, now that I read the (new & improved, thanks IBM!) message...
Reason: A member of the host structure array used for indicators is
not a dimensioned
array.

You need this
D ISTRUCT DS QUALIFIED DIM(100)
ind campi
D nullFlag 5i 0 dim(3)

D DSTRUCT DS QUALIFIED DIM(100)
val campi
D DS_NROP 6 0

D DS_CDPA 15A
D DS_NRPA 6 0

Charles

On Thu, Apr 29, 2021 at 2:19 AM Mario Martoriello <
martoriello@xxxxxxxxxxxxxxx> wrote:

Hi
I am trying to use with RPG the SQL blocked INSERT statement i.e,
EXEC SQL INSERT INTO YAPARNCU (PYNROP, PYCDPA, PYNRPA)
:I ROWS VALUES(:DSTRUCT:ISTRUCT) ;
But I receive an error from precompiler
SQL5011 30 228 Posizione 41 La schiera della struttura host ISTRUCT
non
è definita o non è utilizzabile. Reason: A member of
the
host structure array used for indicators is not a

dimensioned array.


My hosts structure definitions are the following
D ISTRUCT DS QUALIFIED DIM(100)
ind campi
D DS_NROP_i 5i 0

D DS_CDPA_i 5i 0

D DS_NRPA_i 5i 0

D DSTRUCT DS QUALIFIED DIM(100)
val campi
D DS_NROP 6 0

D DS_CDPA 15A

D DS_NRPA 6 0

I googled for this kind of error SQL5011 and found that is related to Data
rapresentation and so I put the following statement
exec sql set option commit=*none, datfmt=*iso ;
without results,
So which is my mistake?
Thanks in advance
regards
Mario
--
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

--
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