Discussion :

[marcl1]

Bonjour,
Tout d'abord j'utilise le RPGIV en version 5r3:
J'ai decrit une datastructure de la sorte :
d DS
d Tab_2 214a dim(99)
d Ad1sv2 50 Overlay(Tab_2:1)
d Ad2sv2 50 Overlay(Tab_2:51)
d Ad3sv2 50 Overlay(Tab_2:101)
d Cpsv2 14 Overlay(Tab_2:151)
d Villesv2 50 Overlay(Tab_2:165)

La compilation me jette car elle n'admet pas la description de la premiere
ligne:
d Tab_2 214a dim(99)

*RNF3705 20 a 014911 L'entrée Nom de sous-zone TAB_2 ne doit pas être un nom de
table. Blancs pris par défaut.

J'ai essaye sur un autre systeme (en timeshare) et ca passe sans probleme.
Ca ne sentirait pas une PTF a installer????
Est-ce que le probleme est connu?
Je n'ai aucun support ici, je cherche sur le site d'IBM mais c'est long et n'arrive pas a trouver d'info la dessus .

[Mercure]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
d Tab_2           ds                   dim(99) qualified  
d  Ad1sv2                       50                        
d  Ad2sv2                       50                        
d  Ad3sv2                       50                        
d  Cpsv2                        14                        
d  Villesv2                     50                        
                                                          
 /free        
   // Chargement du tableau                                            
   Tab_2(1).Ad1sv2   = ... ;
   ...                            
   Tab_2(1).Villesv2 = ... ;

• Qualifie ton tableau et enlève les overlay qui sont inutiles ici.
• Qualifie la zone à alimenter comme suit : nomtableau(index).nomzone.

Utilise la balise CODE ( # ) lorsque tu postes du code, c'est plus facile à lire et à récupérer.

[marcl1]

Merci pour ta reponse et je ferai attention par la suite pour la balise.
J'ai aussi essaye cette solution avec le mot clé Qualified.
Seulement cette structure m'interesse pour effectué des recherche. J'utilise
donc le %lookup
CODE(#)
count = %lookup(adresse: Tab_2)
j'ai ce message :
Le second paramètre de la fonction %LOOKUPxx n'est pas
correct. (Ou adresse est l'adresse complete )
/CODE(#)

Que signifie exactement ce Qualified ?

[mbonnetaud]

Ton nom de tableau est incorrect, il ne doit pas commencer par TAB. Le compilateur considère alors qu'il s'agit d'une table et non d'un array. La définition de DS que tu indiques est relative à un array et non pas à une table. Les tables font partie des "vieilleries" du RPG et ne sont que très peu utilisées, ce que l'on utilise régulièrement, ce sont des arrays bien qu'elles soient appellées dans le langage courant des tables !
RPG distingue Table et array. Voir doc de référence du RPG pour plus de détail

[marcl1]

C'est evidemment ce type de structure que je cherche a utiliser un array. Mais ici il s'agit du type et non du nom dont il est question. Maintenant si l'as400 interprete le nom pour reconnaitre un type de donnée.....on va s'amuser......

[Mercure]

Ah, ça se corse alors !

D'abord, nbonnetaud a raison, ne nomme pas tes tableaux en commançant par Tab pour la raison qu'il signale. Appelle-les Ary comme Array ou Mat pour Matrice par ex.

Ensuite, si tu dois effectuer des recherches dans ce tableau, remets les overlay et fais ta recherche comme illustré ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
d Mat2            ds                   qualified                 
d  Mat2_Poste                          dim(99)                   
d   Ad1sv2                      50     overlay(Mat2_Poste:*next) 
d   Ad2sv2                      50     overlay(Mat2_Poste:*next) 
d   Ad3sv2                      50     overlay(Mat2_Poste:*next) 
d   Cpsv2                       14     overlay(Mat2_Poste:*next) 
d   Villesv2                    50     overlay(Mat2_Poste:*next) 
  /free                                                                
    count = %lookup( adresse: Mat2.Ad1sv2 );

En mettant les overlay, chaque élément de la DS Mat2 ci-dessus est un tableau. Tu peux donc effectuer une recherche sur un élément quelconque le composant. Si pas d'overlay, la DS Mat2 est un simple tableau sans possibilité d'adresser un élément particulier le composant. Capite ?

[marcl1]

Une autre chose: le même code dans deux systèmes différents avec des resultats de compilation différents .... Il y a certainement une explication.

[Mercure]

Les IBM Labs à Rochester font évoluer le langage RPG d'une release à l'autre. C'est probablement ce que tu rencontres ici.

[marcl1]

Bien maintenant c'est reglé et avec votre aide. Merci beaucoup.
Je tombe quand meme sur le ... qu'un nom de structure vienne perturber la declaration implicite d'un type de donnée .
Merci