AS400 Compter le nombre de caractères différents de blanc

Bonjour,

J'ai un petit programme COBOL qui utilise un DISPLAYFILE.

Ce displayfile permet de rentrer au clavier une chaine dans une zone input de 5 caractères.

Dans mon programme cobol j'aimerais vérifier que quand la personne entre sa chaine, la chaine ne soit pas vide et fasse exactement 5 de taille.

Dans mon programme cobol je récupère donc un PIC X(5) contenant la chaîne entrée par l'utilisateur de l'écran. Tout fonctionne très bien mais comment vérifier dans mon programme cobol que cette chaîne contienne bien 5 caractères qui ne soit pas des blancs, donc " " n'est pas valide, tout comme "TEST " n'est pas valide vu qu'il y a un blanc.

Je pensais faire un inspect machine tallying cpt for characters mais ça me retourne toujours 5 meme si la chaîne contient des blancs...

Merci d'avance :)

Citation:

---

Envoyé par alex2746

Bonjour, ...
Je pensais faire un inspect machine tallying cpt for characters mais ça me retourne toujours 5 meme si la chaîne contient des blancs...

Merci d'avance :)

---

Bonjour.
C'est l'idée mais il faut faire l'inverse : compter les blancs et tester à 0.

Code:

---

1 2	INSPECT machine TALLYING cpt FOR ALL SPACE

---