IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Cobol Discussion :

[Cobol] Num to Alphanum


Sujet :

Cobol

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Avril 2003
    Messages
    119
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Avril 2003
    Messages : 119
    Points : 100
    Points
    100
    Par défaut [Cobol] Num to Alphanum
    Bonjour,

    Je suis à la recherche d'une fonction ou méthode pour transformer une variable déclarée en "COMP" afin de l'utiliser avec la clause STRING.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    01 maVar PIC 999 COMP
    STRING 'blabla ' maVar ' blabla'
    END-STRING
    me retourne une erreur...

    Si possible (hmm) un truc comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    01 maVar PIC 999 COMP
    STRING 'blabla ' ToStr(maVar) ' blabla'
    END-STRING
    Merci d'avance.

  2. #2
    Membre expert
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2005
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2005
    Messages : 1 473
    Points : 3 283
    Points
    3 283
    Par défaut
    Citation Envoyé par VitamineC
    ...
    Je suis à la recherche d'une fonction ou methode pour transformer une variable declaree en "COMP" afin de l'utiliser avec la clause STRING ...
    A mon avis il suffit de passer par une variable intermédiaire d'USAGE DISPLAY (c'est par défaut quand on ne met rien ...)
    Par exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    1 MAVAR    PIC 999 COMP. 
    1 MAVAR-UD PIC 999. 
    1 MSG-OUT  PIC X(72). 
    ...
    MOVE SPACE TO MSG-OUT 
    MOVE MAVAR TO MAVAR-UD 
    STRING 'BLA BLA BLA BLA BLA ' DELIMITED BY SIZE 
           MAVAR-UD DELIMITED BY SIZE 
           'BLA BLA ' DELIMITED BY SIZE 
           INTO MSG-OUT
    Sur un sujet voisin voir aussi ce fil :
    STRING avec valeurs numériques

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Avril 2003
    Messages
    119
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Avril 2003
    Messages : 119
    Points : 100
    Points
    100
    Par défaut
    Ok merci bcq ca marche !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [COBOL] Alpha -> NUM
    Par Antichoc dans le forum z/OS
    Réponses: 6
    Dernier message: 07/07/2009, 10h19
  2. Algorithme de génération de mdp (alphanum et num)
    Par _SamSoft_ dans le forum Algorithmes et structures de données
    Réponses: 2
    Dernier message: 11/09/2007, 19h42
  3. [VB6] Avec num. de semaine, savoir le 1er et der. jour ouvrable?
    Par lololefada dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 23/01/2004, 13h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo