Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 8 sur 8
  1. #1
    Candidat au titre de Membre du Club
    Inscrit en
    décembre 2007
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 65
    Points : 14
    Points
    14

    Par défaut Convertir fichier de données en fichier COBOL

    Bonjour tout le monde,

    Je souhaite faire un transfert de fichiers (AS400) vers une machine utilisant le COBOL. Comment faire cette conversion :
    champ AS400
    PRIX 15S 3 TEXT('PRIX')

    convertir en cobol :
    pic s9(12)v9(3) comp-3.

    Comment je dois m'y prendre sous AS400 ?

    d'avance merci à tous ceux qui me répondront.
    cdt

  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 868
    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 868
    Points : 3 252
    Points
    3 252

    Par défaut

    Citation Envoyé par inpra Voir le message
    Bonjour tout le monde,

    Je souhaite faire un transfert de fichiers (AS400) vers une machine utilisant le COBOL. Comment faire cette conversion :
    champ AS400
    PRIX 15S 3 TEXT('PRIX')

    convertir en cobol :
    pic s9(12)v9(3) comp-3.

    Comment je dois m'y prendre sous AS400 ?

    d'avance merci à tous ceux qui me répondront.
    cdt
    Bonjour.

    Vers quel type de machine tu veux faire ton transfert et quels OS et compilateur ?

  3. #3
    Candidat au titre de Membre du Club
    Inscrit en
    décembre 2007
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 65
    Points : 14
    Points
    14

    Par défaut

    Citation Envoyé par Hédhili Jaïdane Voir le message
    Bonjour.

    Vers quel type de machine tu veux faire ton transfert et quels OS et compilateur ?
    Bonjour Hédhili,

    Bé, on me demande de transférer un fichier (AS400) au format COBOL.
    Pour les montants, ça sera sous la forme pic s9(12)v9(3) comp-3 (c'est ce format-là qui me trouble), et pour un champ alphanum (par exemple) pic x(010) (là Ok).

    Je n'ai que cela pour le moment en ma possession, je ne sais sur quelle machine va être traitée le fichier.
    Merci pour ta réponse.

  4. #4
    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 868
    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 868
    Points : 3 252
    Points
    3 252

    Par défaut

    - Sur l'AS/400, il n'y a pas type de fichiers spécifique à un langage particulier. Tous les fichiers sont considérés comme des tables ou des index/vues DB2 même s'ils sont des fichiers, soit disant plats, texte, ou même de type S/36. Tous les utilitaires et les programmes écrits dans n'importe quel langage y accèdent sans traitements particuliers.
    Si tu restes sur l'AS/400 et que tu vas convertir ton fichier contenant le champ PRIX décrit en 15S 3 pour que tu puisses le traiter en PIC S9(12)v9(3) comp-3 par un programme Cobol, il suffit de déclarer un nouveau fichier dans lequel le champ PRIX sera décrit en 15P 3 et d'y faire un CPYF avec les options *MAP *DROP à partir du premier fichier ou de faire un programme Cobol qui copie le champ PRIX d'un fichier à un autre du format S9(12)v9(3) au format S9(12)v9(3) comp-3.

    - Si ton fichier va être transféré vers le monde micro (Windows/Unix), donc le monde ASCII, et puisque ta zone PRIX d'origine n'est pas condensée (packée) (15S 3 équivaut à S9(12)v9(3), il faut dans un premier temps le transférer comme fichier TEXTE par Client/IBM Access ou FTP puis le copier, par un programme Cobol, dans un fichier où la description de PRIX sera S9(12)v9(3) COMP-3.

  5. #5
    Membre confirmé
    Homme Profil pro Stéphane
    Analyste-Programmeur as/400, Java et Windev
    Inscrit en
    août 2002
    Messages
    189
    Détails du profil
    Informations personnelles :
    Nom : Homme Stéphane
    Localisation : Luxembourg

    Informations professionnelles :
    Activité : Analyste-Programmeur as/400, Java et Windev
    Secteur : Finance

    Informations forums :
    Inscription : août 2002
    Messages : 189
    Points : 237
    Points
    237

    Par défaut

    Bonjour,

    Je penche pour une machine plus grosse qui tourne sous z/os.
    Il existe des solutions qui vont chercher des données sur une machine pour les transférer sur une autre.
    Il faut demander vers quelle machine les données vont être tranférées.
    A partir de là, tu auras plus de visibilité.

    Larry57

  6. #6
    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 868
    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 868
    Points : 3 252
    Points
    3 252

    Par défaut

    Citation Envoyé par larry57 Voir le message
    Bonjour,

    Je penche pour une machine plus grosse qui tourne sous z/os.
    Il existe des solutions qui vont chercher des données sur une machine pour les transférer sur une autre....
    Larry57
    Bonjour.

    Oui, il y a ça aussi. S'il n'y a pas d'outils/moyens pour transférer directement, moyennant ou non une conversion automatique EBCDIC/ASCII, il faudrait, peut être, passer par un fichier texte séquentiel et le découper par la suite sur la machine cible d'autant plus que sur la machine source (l'AS/400) le champ PRIX n'est pas condensé (comp-3), donc il n'y a aucune décompression à faire, ensuite il faudrait convertir le champ PRIX de l'usage étendu à l'usage condensé.

    Mais il faudrait savoir aussi que l'usage condensé (compressé/packé = comp-3) n'est pas spécifique à Cobol ni obligatoire. C'est un type de données numériques utilisé par tous les langages dont le Cobol (à la limite la plupart des langages usuels) et le Cobol n'exige pas que les données numériques soient de ce type.

  7. #7
    Candidat au titre de Membre du Club
    Inscrit en
    décembre 2007
    Messages
    65
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 65
    Points : 14
    Points
    14

    Par défaut

    Citation Envoyé par Hédhili Jaïdane Voir le message
    Bonjour.

    Oui, il y a ça aussi. S'il n'y a pas d'outils/moyens pour transférer directement, moyennant ou non une conversion automatique EBCDIC/ASCII, il faudrait, peut être, passer par un fichier texte séquentiel et le découper par la suite sur la machine cible d'autant plus que sur la machine source (l'AS/400) le champ PRIX n'est pas condensé (comp-3), donc il n'y a aucune décompression à faire, ensuite il faudrait convertir le champ PRIX de l'usage étendu à l'usage condensé.

    Mais il faudrait savoir aussi que l'usage condensé (compressé/packé = comp-3) n'est pas spécifique à Cobol ni obligatoire. C'est un type de données numériques utilisé par tous les langages dont le Cobol (à la limite la plupart des langages usuels) et le Cobol n'exige pas que les données numériques soient de ce type.
    Bonjour, Ok, ça correspond donc à du 15P 3, là ca me parle, je vais donc faire la conversion et je verrai après. Le fichier est destiné au host (connais pas le type de machine). Les gars qui me demandent cela sont assez mystérieux ... (milieu bancaire ... j'ai rien dit).

    Merci à vous deux.

  8. #8
    Membre confirmé
    Homme Profil pro Stéphane
    Analyste-Programmeur as/400, Java et Windev
    Inscrit en
    août 2002
    Messages
    189
    Détails du profil
    Informations personnelles :
    Nom : Homme Stéphane
    Localisation : Luxembourg

    Informations professionnelles :
    Activité : Analyste-Programmeur as/400, Java et Windev
    Secteur : Finance

    Informations forums :
    Inscription : août 2002
    Messages : 189
    Points : 237
    Points
    237

    Par défaut

    Le host est une machine IBM, on peux faire du RPG2....!!!! dessus.

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

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
  •