Bonjour,
J'ai le problème suivant.
Je demande à l'utilisateur de saisir un nombre et, selon ce nombre, je vérifie que l'enregistrement existe ou non.
Le nombre à saisir est de déclaration PIC X(6).
Le problème étant que la saisie, sinon avec les 6 numéros, renverra à chaque fois une erreur car la saisie étant en X(6) sera "remplie" par des espaces.
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 IF W-TEMP IS NUMERIC THEN START FVOL IS KEY = F-NUMVOL INVALID KEY DISPLAY "Aucun vol ne correspond à votre saisie." AT LINE 20 COLUMN 05 SUBTRACT 1 FROM W-COMPTEUR NOT INVALID KEY PERFORM CONTINUER END-START ELSE DISPLAY "Veuillez saisir un numéro de vol." AT LINE 20 COLUMN 05 SUBTRACT 1 FROM W-COMPTEUR END-IF
Et les espaces ne sont pas des numériques >.<
Sinon je peux dire que c'est une variable en 9(6)...
Mais en ce cas, s'il saisit un alpha, il est convertit en numérique et j'obtiens un résultat 000000... Donc ça passe outre mon test :/
Une idée ?
Partager