+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Membre à l'essai
    Inscrit en
    mai 2008
    Messages
    186
    Détails du profil
    Informations forums :
    Inscription : mai 2008
    Messages : 186
    Points : 23
    Points
    23

    Par défaut 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

  2. #2
    Expert Confirmé
    Homme Profil pro Hédhili Jaïdane
    Consultant/Formateur/Développeur AS/400, iSeries, System i et Cobol
    Inscrit en
    juin 2007
    Messages
    1 883
    Détails du profil
    Informations personnelles :
    Nom : Homme Hédhili Jaïdane
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Consultant/Formateur/Développeur AS/400, iSeries, System i et Cobol
    Secteur : Conseil

    Informations forums :
    Inscription : juin 2007
    Messages : 1 883
    Points : 3 437
    Points
    3 437

    Par défaut

    Citation Envoyé par alex2746 Voir le message
    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •