Bonjour,
Voici un fichier indexé : MARQUE
Nom d'enregistrement: MARQUER
ACROMAR est l'identifiant unique.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Enregistrements: ACROMAR PIC X(5) NOMMAR PIC X(25)
Je voudrais vérifier si dans ce fichier il y a bien une marque donnée (disons RENAULT , ACROMAR = RENAU pour l'exemple).
Voici les parties de mon code:
Disons que RENAU n'existe pas dans mon fichier MARQUE.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 ... FILE CONTROL. SELECT MARQ ASSIGN TO DATABASE-MARQUE ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY EXTERNALLY-DESCRIBED-KEY. ... PROCEDURE DIVISION. OPEN INPUT MARQ. ... MOVE "RENAU" TO ACROMAR OF MARQUER MOVE SPACES TO NOMMAR OF MARQUER START MARQ KEY NOT LESS EXTERNALLY-DESCRIBED-KEY INVALID KEY DISPLAY "Cette marque n'existe pas" NOT INVALID DISPLAY "Cette marque existe" END-START. ...
Je voudrais que "Cette marque n'existe pas" s'affiche, mais ce n'est pas le cas... Pouvez-vous m'aider?
Merci d'avance!
Partager