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 :

mise en forme en fichier csv


Sujet :

Cobol

  1. #1
    Invité
    Invité(e)
    Par défaut mise en forme en fichier csv
    Bonjour,
    Je dois créer un programme en COBOL pour faire de la mise en forme de données de longueur fixe en longueur variable en supprimant les espaces non significatifs pour avoir en sortie un fichier csv dont les séparateurs entre chaque donnée est un pipe '|'.

    Pour la donnée MONTANT, lorsque celle-ci est valorisée à 9999999.99, cela signifie qu'en sortie il ne faudra rien mettre.
    Pour les autres valeurs autre que 9999999.99, il faudra supprimer les zéro non significatifs de la partie entière et conserver 2 décimales même si celles-ci sont à 0.

    Mêmes règles pour la donnée TAUX, lorsque celle-ci est valorisée à 99.999, cela signifie qu'en sortie il ne faudra rien mettre.
    Pour les autres valeurs autre que 99.999, il faudra supprimer les zéro non significatifs de la partie entière et conserver 3 décimales même si celles-ci sont à 0.


    Voici la description de mon fichier en entrée du programme :
    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
    16
    17
    18
    19
    20
    21
    05 NOM                            PIC X(20).
    05 FILLER                         PIC X(01)  VALUE '|'.
    05 PRENOM                      PIC X(15).
    05 FILLER                         PIC X(01)  VALUE '|'.
    05 TELEPHONE                  PIC X(20).
    05 FILLER                         PIC X(01)  VALUE '|'.
    05 CODE POSTAL              PIC X(10).
    05 FILLER                        PIC X(01)  VALUE '|'.
    05 ADRESSE                    PIC X(30).
    05 FILLER                       PIC X(01)  VALUE '|'.
    05 MONTANT.
            10 MT-ENTIERE            PIC 9(07). 
            10 FILLER                    PIC X(01) VALUE '.'. 
            10 MT-DECIMAL           PIC 9(02).     
    05 FILLER                           PIC X(01)  VALUE '|'.
    05 TAUX.
            10 TAUX-ENTIERE       PIC 9(02). 
            10 FILLER                  PIC X(01) VALUE '.'. 
            10 TAUX-DECIMAL      PIC 9(03).  
    05 FILLER                          PIC X(01)  VALUE '|'.


    Exemple de fichier en entrée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    DUBOIS              |JEAN           | 09 17 23 56 19     | 93510    | 2 RUE DES CHAMPIGNONS        |9999999.99|99.999|
    DUJARDIN            |PIERRE         |0353521236          |56230     | 16 CHE. DES OLIVIERS         |0000235.00|00.100|

    Résultat attendu en sortie :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    DUBOIS|JEAN|09 17 23 56 19|93510|2 RUE DES CHAMPIGNONS|||
    DUJARDIN|PIERRE|0353521236|56230|16 CHE. DES OLIVIERS|235.00|0.100|


    Comment faire pour écrire ce programme de mise en forme ?
    Dernière modification par Invité ; 14/11/2019 à 18h29.

  2. #2
    Expert éminent sénior
    Homme Profil pro
    Ingénieur d'Etude Mainframe/AS400
    Inscrit en
    novembre 2012
    Messages
    1 620
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur d'Etude Mainframe/AS400
    Secteur : Finance

    Informations forums :
    Inscription : novembre 2012
    Messages : 1 620
    Points : 10 077
    Points
    10 077
    Par défaut
    Bonjour, tu peux jouer avec l'instruction string delimited by double space pour ôter les blancs à droite. Pour les montants il suffit de tester les contenu. Ce sujet traitait de la même problématique : https://www.developpez.net/forums/d2...ortie-fichier/

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Pouvez-vous me donner le code (les instructions cobol) à mettre en oeuvre et notamment avec les tests pour le numérique ?

  4. #4
    Expert éminent sénior
    Homme Profil pro
    Ingénieur d'Etude Mainframe/AS400
    Inscrit en
    novembre 2012
    Messages
    1 620
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Ingénieur d'Etude Mainframe/AS400
    Secteur : Finance

    Informations forums :
    Inscription : novembre 2012
    Messages : 1 620
    Points : 10 077
    Points
    10 077
    Par défaut
    Bonjour, nous ne fournissons pas de solution clef en main (ce n'est pas la vocation de ce forum). C'est à toi de nous proposer quelque chose et là nous pourrons t'aider.

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

Discussions similaires

  1. [XL-2016] Mise en forme contenu fichier CSV
    Par bugstar dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 22/12/2018, 10h49
  2. [Débutant] Mise en forme de fichier .csv
    Par Bl4nd1n3 dans le forum MATLAB
    Réponses: 3
    Dernier message: 17/11/2014, 11h34
  3. [VBA]Mise en forme de fichier Ecxel aprés exportation
    Par taisherg dans le forum VBA Access
    Réponses: 3
    Dernier message: 04/05/2007, 15h40
  4. [XML][RSS] Mise en forme dans fichier XML
    Par Mister Nono dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 24/01/2007, 23h58
  5. [DOM XML] Mise en forme du fichier
    Par fragmonster dans le forum Bibliothèques et frameworks
    Réponses: 2
    Dernier message: 02/03/2006, 12h02

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