Discussion :

[ptiyo]

Bonjour,

je ne suis que débutant en RPG4....

j'ai un fichier qui se compose d'une clé unique composée de 2 éléments. Dans ce fichier j'ai une propriété cp qui fait référence à un autre fichier appelé p et dans lequel je dois récupérer le libellé correspondant à la clé cp. Comment je dois m'y prendre pour récupérer l'information?
Merci

[DevDX]

Bonjour,

Tu retrouveras les infos que tu souhaites par des commandes CL.

DSPFD nom du fichier qui te donnera les clés de ce fichier.

DSPFFD nom du fichier qui te donnera le descriptif de chaque champ de ce fichier.

Cordialement.
DevDX.

[ptiyo]

merci de ta réponse mais j'ai pas dû m'exprimer correctement en fait désolé.
dans les deux fichiers j'ai une info CP.. ce que je veux c'est dire au fichier2 (P) de me donner le libellé de CP (la clé) et qui doit être égale à cp de fich1
dans mon cheminement je part de fich1 dont j'ai la clé et dans lequel se trouve la propriété CP (qui n'est qu'un numérique) et je veux accéder au libellé de ce CP dans le fichier P donc il faut que le CP de fich1 soit le même que pour P
j'ai besoin de ça pour continuer à coder
(ne serait-ce pas un chain ? )

[Mercure]

Si, bien sûr ! Avec un CHAIN tu vas récupérer le premier enreg. de la table2 qui a la même clé cp que la table1.

Code :

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

1
2
3
4
5
6
7
/free
chain table2 (cp);
if %found();  // clé cp trouvée en table2
 ...
else;  // cp non trouvée
 ...
endif;

MAIS, s'il y a plusieurs CP dans table2 qui correspondent au CP de la table1, il faudra que tu te positionnes sur le premier CP de table2 avec un SETLL sur CP puis que tu établisses une bouble pour faire les READE de chaque CP pour obtenir le libellé de chaque.
/free

Code :

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

1
2
3
4
5
6
7
8
9
SETLL table (cp);
DoU %EOF();
 Reade Table2 CP;
 If %EOF();
    Leave;
 Endif;
 ici, traitement du libellé
 ...
 Enddo;

[Green Hornet]

les clés se mettent entre le chain/read/setll et le fichier

[ptiyo]

tu es sur de ton code ?
normalement il faut d'abord rentrer le premier facteur puis l'opération puis le second facteur

facteur1 -> opération -> facteur2

le cp de mon fichier1 n'est pas la clé de ce fichier, juste une propriété qui est relié à une clé1 et en fonction de cette propriété cp1 je dois trouver le même cp (dans le fichier p) qui me donnera le libellé donc est ce que le chain marche vu que je sais qu'il se décompose en setll et reade (pour une clé)

Merci

[Mercure]

Ok, désolé, je me suis trompé.
c'est bien

Code :

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

1
2
3
chain cle1 table2;  en RPG IV free
ou 
CLE1 CHAIN TABLE2 en RPG III

qu'ilfaut lire.

[ptiyo]

Bonjour,
je développe en RPG IV et la structure est : clé1 chain table2

Code :

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

1
2
3
chain cle1 table2;  en RPG IV free
ou 
CLE1 CHAIN TABLE2 en RPG III

voila
et puis mon problème est résolu en ce qui concerne leur utilisation

merci a vous

[Mercure]

je développe en RPG IV et la structure est : clé1 chain table2

Non, en mode libre ("/free"), la syntaxe est bien

Code :

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

chain cle1 table2;

c'est à dire :

Code :

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

CHAIN argument nom du fichier (ou du format);

En mode colonné, la syntaxe peut être en effet codée comme en RPG III, c'est à dire

Code :

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

C     CLE1   CHAIN TABLE2

(colonnage non respecté dans cet exemple)

Revois le manuel ILE RPG Reference. Tout y est indiqué.

Je veux bien me tromper une fois, mais pas deux !

[ptiyo]

désolé Mercure d'avoir douté de tes compétences

[Green Hornet]