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 :

[JCL] Transformer un 9(xx) COMP-3 en S9(xx) COMP-3


Sujet :

Cobol

  1. #1
    Rédacteur
    Avatar de Arnaud F.
    Homme Profil pro
    Développeur COBOL
    Inscrit en
    Août 2005
    Messages
    5 183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France

    Informations professionnelles :
    Activité : Développeur COBOL
    Secteur : Finance

    Informations forums :
    Inscription : Août 2005
    Messages : 5 183
    Points : 8 873
    Points
    8 873
    Par défaut [JCL] Transformer un 9(xx) COMP-3 en S9(xx) COMP-3
    Bonjour,

    je souhaiterais transformer la zone d'un fichier qu'est décrite en 9(13) COMP-3 pour la passer en S9(13) COMP-3.

    Est-ce possible?

    Merci
    C'est par l'adresse que vaut le bûcheron, bien plus que par la force. Homère

    Installation de Code::Blocks sous Debian à partir de Nightly Builds

  2. #2
    Expert confirmé
    Homme Profil pro
    ANCIEN Consultant/Formateur/Développeur AS/400, iSeries, System i et Cobol
    Inscrit en
    Juin 2007
    Messages
    2 096
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

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

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 096
    Points : 4 155
    Points
    4 155
    Par défaut
    Bonjour.

    Je ne vois pas ce qui peut s'y opposer. Et puis la passer où et à qui, et c'est quoi ton OS ?

    On peut mouvementer la zone 9(13) COMP-3 dans la zone S9(13) COMP-3 et on pourrait même la prendre telle quelle, ton système saura interpréter le F terminal en C si la zone finale cible est du packé signé.

  3. #3
    Expert éminent sénior
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    6 803
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 6 803
    Points : 32 058
    Points
    32 058
    Par défaut
    pour paraphraser Hédhili Jaïdane, voici le code complet :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    77 NOMBRE-NON-SIGNE PIC 9(13) COMP-3.
    77 NOMBRE-SIGNE     PIC S9(13) COMP-3.
    (.../...)
    MOVE NOMBRE-NON-SIGNE TO NOMBRE-SIGNE 
    .
    La conversion est implicite. Je l'ai fait des milliers de fois. C'est bien pratique.
    Les 4 règles d'airain du développement informatique sont, d'après Michael C. Kasten :
    1)on ne peut pas établir un chiffrage tant qu'on a pas finalisé la conception
    2)on ne peut pas finaliser la conception tant qu'on a pas complètement compris toutes les exigences
    3)le temps de comprendre toutes les exigences, le projet est terminé
    4)le temps de terminer le projet, les exigences ont changé
    Et le serment de non-allégiance :
    Je promets de n’exclure aucune idée sur la base de sa source mais de donner toute la considération nécessaire aux idées de toutes les écoles ou lignes de pensées afin de trouver celle qui est la mieux adaptée à une situation donnée.

  4. #4
    Rédacteur
    Avatar de Arnaud F.
    Homme Profil pro
    Développeur COBOL
    Inscrit en
    Août 2005
    Messages
    5 183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France

    Informations professionnelles :
    Activité : Développeur COBOL
    Secteur : Finance

    Informations forums :
    Inscription : Août 2005
    Messages : 5 183
    Points : 8 873
    Points
    8 873
    Par défaut
    Désolé ma demande initiale n'était pas claire et j'ai réussi à trouver la source de mon problème...
    C'est par l'adresse que vaut le bûcheron, bien plus que par la force. Homère

    Installation de Code::Blocks sous Debian à partir de Nightly Builds

  5. #5
    Membre régulier
    Homme Profil pro
    Ingénieur d'étude Mainframe
    Inscrit en
    Septembre 2012
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Ingénieur d'étude Mainframe
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Septembre 2012
    Messages : 61
    Points : 124
    Points
    124
    Par défaut
    Si le nombre "non signé" est égal à -1, est-ce que le move non-signé to signé renverra -1 quand même ?

    Question peut être stupide mais un nombre "non" signé est-il la valeur absolue du nombre (donc positif) ?

  6. #6
    Membre habitué
    Homme Profil pro
    Retraité ex-Développeur Grands Systèmes IBM
    Inscrit en
    Août 2008
    Messages
    74
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Retraité ex-Développeur Grands Systèmes IBM

    Informations forums :
    Inscription : Août 2008
    Messages : 74
    Points : 133
    Points
    133
    Par défaut
    Bonsoir,
    Physiquement dans un COMP-3 ou PACKED DECIMAL il y a toujours l'emplacement du signe que l'on mette S ou pas dans la déclaration.

    En résumé, un COMP-3 est toujours signé !

    @+
    PS:
    Ce serait sympa d'indiquer la solution du problème

  7. #7
    Expert confirmé
    Homme Profil pro
    ANCIEN Consultant/Formateur/Développeur AS/400, iSeries, System i et Cobol
    Inscrit en
    Juin 2007
    Messages
    2 096
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

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

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 096
    Points : 4 155
    Points
    4 155
    Par défaut
    Citation Envoyé par Skylyn Voir le message
    Si le nombre "non signé" est égal à -1, est-ce que le move non-signé to signé renverra -1 quand même ?

    Question peut être stupide mais un nombre "non" signé est-il la valeur absolue du nombre (donc positif) ?
    Inutile de chercher midi à quatorze heures ni de calculer la racine carré de -1 dans R.

    Un nombre non signé ne pourra pas contenir un nombre négatif. Il est tout simplement considéré (ou assimilé) comme un nombre positif.
    1 est représenté en interne en F1 ou en 1F selon qu'il soit en display ou en comp-3.
    +1 est représenté en interne en F1 (ou C1 pour certains OS) ou en 1F (ou 1C pour certains OS) selon qu'il soit en display ou en comp-3.
    -1 est représenté en interne en D1 ou en 1D selon qu'il soit en display ou en comp-3.

  8. #8
    Expert confirmé
    Homme Profil pro
    ANCIEN Consultant/Formateur/Développeur AS/400, iSeries, System i et Cobol
    Inscrit en
    Juin 2007
    Messages
    2 096
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

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

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 096
    Points : 4 155
    Points
    4 155
    Par défaut
    Citation Envoyé par Jean GVE Voir le message
    Bonsoir,
    Physiquement dans un COMP-3 ou PACKED DECIMAL il y a toujours l'emplacement du signe que l'on mette S ou pas dans la déclaration.

    En résumé, un COMP-3 est toujours signé !

    @+
    PS:
    Ce serait sympa d'indiquer la solution du problème
    L'emplacement oui mais pas toujours l'indication du signe négatif. On ne pourra jamais mettre un nombre négatif dans une zone nombre non signée. C'est la même chose pour l'usage display. Le signe ne prend jamais de place sauf avec sign separate (leading ou trailing)

  9. #9
    Membre régulier
    Homme Profil pro
    Ingénieur d'étude Mainframe
    Inscrit en
    Septembre 2012
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Ingénieur d'étude Mainframe
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Septembre 2012
    Messages : 61
    Points : 124
    Points
    124
    Par défaut
    Citation Envoyé par Hédhili Jaïdane Voir le message
    Inutile de chercher midi à quatorze heures ni de calculer la racine carré de -1 dans R.
    Nul besoin d'être médisant... je posais juste une question simple!

    De plus, si je veux être ironique :

    Inutile de chercher midi à quatorze heure car dans R la racine carrée de -1 tu peux toujours la chercher...

    Je me disais juste que, par rapport au sujet, quelle est la différence entre un S9(3) COMP-3 et un 9(3) COMP-3 s'il n'y a aucune différence ?

    Pourquoi le nombre non signé devrait avoir un emplacement pour le signe s'il ne l'est pas ?

  10. #10
    Expert éminent sénior
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    6 803
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 6 803
    Points : 32 058
    Points
    32 058
    Par défaut
    Citation Envoyé par Skylyn Voir le message
    (.../...)
    Pourquoi le nombre non signé devrait avoir un emplacement pour le signe s'il ne l'est pas ?
    Parceque c'est comme ça que c'est défini. Le "signe" est à C pour "+", D pour "-", et F pour "non signé". Donc, ton COMP-3 non signé a un F à la fin. Je suppose que c'est pour optimiser d'éventuelles opérations avec des éléments qui eux, sont signés(comme par exemple le MOVE que j'ai donné en exemple).
    Les 4 règles d'airain du développement informatique sont, d'après Michael C. Kasten :
    1)on ne peut pas établir un chiffrage tant qu'on a pas finalisé la conception
    2)on ne peut pas finaliser la conception tant qu'on a pas complètement compris toutes les exigences
    3)le temps de comprendre toutes les exigences, le projet est terminé
    4)le temps de terminer le projet, les exigences ont changé
    Et le serment de non-allégiance :
    Je promets de n’exclure aucune idée sur la base de sa source mais de donner toute la considération nécessaire aux idées de toutes les écoles ou lignes de pensées afin de trouver celle qui est la mieux adaptée à une situation donnée.

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

Discussions similaires

  1. JCL : obtenir de l'étendu a partir d'un format comp
    Par SGR dans le forum JCL - SORT
    Réponses: 3
    Dernier message: 26/09/2007, 13h43
  2. [PERL] transformation de fichier
    Par bob20000 dans le forum Langage
    Réponses: 6
    Dernier message: 27/07/2006, 11h13
  3. transformer un jour en JJ/MM/AA
    Par gemini_010 dans le forum Algorithmes et structures de données
    Réponses: 8
    Dernier message: 08/11/2002, 22h55
  4. Transformer un caractère en type énuméré
    Par HT dans le forum Langage
    Réponses: 3
    Dernier message: 22/10/2002, 20h46
  5. FFT(Fast Fourier Transform)
    Par IngBen dans le forum Traitement du signal
    Réponses: 6
    Dernier message: 23/05/2002, 16h35

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