Discussion :

[inpra]

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

[Hédhili Jaïdane]

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 ?

[inpra]

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.

[Hédhili Jaïdane]

- 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.

[larry57]

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

[Hédhili Jaïdane]

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.

[inpra]

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.

[larry57]

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