Discussion :

[ted the Ors]

Bonsoir,

Est-il possible d'utiliser des clés "partielles" avec les fichiers VSAM?
J'ai un fichier avec la structure suivante:

Code :

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

1
2
3
4
5
01 ENREGISTREMENT-FICHIER-VSAM.
    05 CLE-FICHIER.
        10 CLE-PARTIELLE-1               PIC X(06).
        10 CLE-PARTIELLE-2               PIC X(06).
    05 ENREGISTREMENT-FIN-FICHIER PIC X(1000).

et le contenu suivant (seules les clés sont mentionnées)

Code :

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

1
2
3
4
111111TOTOTO
111111TITITI
222222TUTUTU
222222TATATA

Je souhaiterai interroger (= lire?) le VSAM uniquement en valorisant CLE-PARTIELLE-1 avec 111111 et récupérer les valeurs des 2 enregistrements:

Code :

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

1
2
111111TOTOTO
111111TITITI

Est-ce possible? Si oui, comment faut-il procéder?
En me renseignant, j'ai cru comprendre qu'il fallait passer par une instruction START et une instruction READ NEXT mais je ne parviens pas à coder cela de façon à ce que ça fonctionne.
De plus, je connais la valeur de CLE-PARTIELLE-1 mais comment doit-être valorisée CLE-PARTIELLE-2 pour trouver les enregistrements correspondants à la valeur de CLE-PARTIELLE-1?

D'avance merci.

[Hédhili Jaïdane]

Bonsoir.

Je ne sais pas si c'est valable pour VSAM, en principe :

- avant le START, on renseigne la partie majeure de la clé, ici CLE-PARTIELLE-1 avec 111111 et le reste des clés à LOW-VALUE, ici CLE-PARTIELLE-2.

- START... NOT LESS CLE-FICHIER INVALID "non trouvé"

- READ ... NEXT jusqu'à fin fichier ou CLE-PARTIELLE-1 différent de 111111

- si la lecture est réussie, tu as les différentes valeurs de CLE-PARTIELLE-2

[ted the Ors]

Avec un peu de retard, je répond.

La solution de Hédhili Jaïdane fonctionne!
Merci.