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



Hi,

Maybe your idx3 is wrong. Use %ELEM()

-----Message d'origine-----
De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de gio.cot via RPG400-L
Envoyé : jeudi 31 octobre 2024 16:56
À : 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc : gio.cot <gio.cot@xxxxxxxxxxx>
Objet : RNQ0121 with DS Array with dim(*AUTO)



ATTENTION : Ce message provient d'une source EXTERNE. Veuillez n'ouvrir les liens ou pièces jointes que si vous êtes sûr de l'expéditeur.



Hi all

I'm try to use the *auto keyword in a Ds Array ; i have defined this Ds



Dcl-Ds xMagArt Qualified Dim(*auto:256) inz ;

Key;

xMag like(zMag) Overlay(Key);

xArt like(zArt) Overlay(Key:*NEXT);

End-Ds;



when i try to run :



Idx2 = %Lookup(Mag+Art:xMagArt(*).Key:1:Idx3);

Keep in mind (Idx3 = 1 )



i receive RNQ0121 An array index is out of range

Where am i wrong ??

If i not use *auto, it works



Thanks in advance

--
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__;!!J76aczzK!3LvXbkK7MDAxHb8iPCY-ixky9TEXYf8uyEXFyqh1f8NxBYfG8bsrdWs8Oj4UKc_HikLAA5ZMI4hpRaMhIWBdUAQg1y9i0A$
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__;!!J76aczzK!3LvXbkK7MDAxHb8iPCY-ixky9TEXYf8uyEXFyqh1f8NxBYfG8bsrdWs8Oj4UKc_HikLAA5ZMI4hpRaMhIWBdUAQ6zYlnHQ$ .

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.