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

[alex2746]

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

[Hédhili Jaïdane]

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