Re: Inserting multiple rows using the blocked INSERT statement

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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