Ciao.
Try this syntax that I have found in " Embedded SQL programming":
DCL-DS DEPARTMENT OCCURS(10);
DEPTNO CHAR(3);
DEPTNM CHAR(29);
MGRNO CHAR(6);
ADMRD CHAR(3);
END-DS;
DCL-DS IND_ARRAY OCCURS(10);
INDS INT(5) DIM(4);
END-DS;
-----Messaggio originale-----
Da: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> Per conto di Mario Martoriello
Inviato: giovedì 29 aprile 2021 10.19
A: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Oggetto: Inserting multiple rows using the blocked INSERT statement
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
midrange.com
