Discussion :

[bernard59139]

Bonjour

Est-il possible de convertir un fichier EBCDIC en ASCII et en choisissant les codepage ebcdic et ascii?
Si possible en utilisant une table de translation tcp-ip existante.
Et si possible en rexx.

J'ai bien vu la fonction C++ iconv, mais je ne sais pas comment l'appeller.

bon week-end

[Peut-êtreUneRéponse]

Bonjour Bernard59139,

ça ne répond pas à ta question (choix du codepage et rexx) mais as-tu vu la "nouvelle" fonction DFSORT de conversion EBCDIC vers ASCII (TRAN=ETOA) et l'inverse (TRAN=ATOE) des PTFs UK90025 et UK90026 ?

http://www-01.ibm.com/support/docvie...d=isg3T7000242

Bonnes fêtes.

.

[bernard59139]

Bonjour

merci pour ta réponse.

Les ptf ne seront pas installées avant fin janvier, au mieux.

Et en lisant le document, le mot clef "ETOA, ebcdic to ascii" ne me convient pas.
Le tri se base sur une table de translation par défaut qui est de type américain avec l'impossibilité de changer la table de transcodage.

J'ai besoin de translation qui se base sur des caractères francais (avec des "à" qui restent des "à" par ex).

En attendant de savoir utiliser iconv, le soucis a été bypassé en utilisant le SORT et une table de transcodage ALTSEQ customisée.

Bonnes fêtes

[Peut-êtreUneRéponse]

ET avec EDCICONV ? Je ne l'ai jamais utilisé mais un collègue m'a dit avoir fait des transcos ASCII/EBCDIC nickels.

En plus, une 100aine de codeset EBCDIC peuvent être utilisés : ftp://public.dhe.ibm.com/eserver/zse...Conversion.pdf [Attention FTP, un proxy d'entreprise peut interdire l'accès à ce lien]

.

[bernard59139]

Bonjour

C'est exactement ce que je cherchais. Mon SORT va partir à la poubelle.

Merci

[Fabizor]

Voici un exemple (si encore besoin) :

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
//*===================================================================*
//* STEP010: EDCICONV CONVERT FILE                                    *
//*===================================================================*
//         IF ( STEP005.RC LE 4 ) THEN                                 
//STEP010  EXEC PGM=EDCICONV,                                          
// PARM='FROMCODE(IBM-500),TOCODE(IBM-819)'                            
//SYSOUT   DD SYSOUT=*                                                 
//SYSUT1   DD DSN=I2.DO.VT.IDODX025.WPI.EPOQUE.TEMP,                   
//            DISP=(SHR,PASS)                            ** DO000563 **
//SYSUT2   DD DSN=I2X.DO.VX.WPI.EPOQUE(+1),                            
//            DISP=(,PASS),                              ** DO000483 **
//            RECFM=VB,LRECL=32756,                                    
//            UNIT=VTS                                                 
//         ENDIF