Précédent   Forum des professionnels en informatique > Autres langages > Autres langages > Cobol
Cobol Forum d'entraide sur la programmation en langage Cobol
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 17/11/2011, 20h44   #1
Membre du Club
 
Inscription : juillet 2006
Messages : 153
Détails du profil
Informations personnelles :
Âge : 28
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : juillet 2006
Messages : 153
Points : 40
Points : 40
Envoyer un message via MSN à ted the Ors
Par défaut VSAM: utilisation d'une clé partielle

Bonsoir,

Est-il possible d'utiliser des clés "partielles" avec les fichiers VSAM?
J'ai un fichier avec la structure suivante:
Code :
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 :
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 :
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.
ted the Ors est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/11/2011, 21h25   #2
Membre Expert
 
Avatar de Hédhili Jaïdane
 
Homme Hédhili Jaïdane
Consultant/Assistant/Formateur/Développeur Indépendant AS/400 Cobol
Inscription : juin 2007
Messages : 1 670
Détails du profil
Informations personnelles :
Nom : Homme Hédhili Jaïdane
Localisation : Tunisie

Informations professionnelles :
Activité : Consultant/Assistant/Formateur/Développeur Indépendant AS/400 Cobol

Informations forums :
Inscription : juin 2007
Messages : 1 670
Points : 2 170
Points : 2 170
Envoyer un message via Skype™ à 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
__________________

Hédhili Jaïdane est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 02/12/2011, 14h00   #3
Membre du Club
 
Inscription : juillet 2006
Messages : 153
Détails du profil
Informations personnelles :
Âge : 28
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : juillet 2006
Messages : 153
Points : 40
Points : 40
Envoyer un message via MSN à ted the Ors
Avec un peu de retard, je répond.

La solution de Hédhili Jaïdane fonctionne!
Merci.
ted the Ors est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 13h51.


 
 
 
 
Partenaires

Hébergement Web