Discussion :

[inpra]

Bonjour tout le monde,

Tout d'abord mes meilleurs voeux pour cette année 2009.
Comme cité dans l'objet, je souhaite compresser un ou plusieurs fichiers sur AS/400 avant de les transférer par FTP sur un réseau windows. Je ne sais pas si c'est possible, car, mes fichiers sont assez volumineux (des fois plus 2 000 000 enregs) et en plus c'est un transfert au quotidien que me prend 20 mn (même si c'est un job de nuit, c'est quand même long, et les fichiers sont amenés à grossir).

J'aurai pu les sauvegarder en SAVF, mais inexploitables sous windows.

Merci à tous ceux qui me répondront.

[vazymimil]

Bonjour,

oui c'est possible
y gagner du temps en transfert c'est sûr, mais selon la puissance de ton 400 la compression peut être longue

d'abord copier les données dans un fichier à plat ou un fichier source

puis dans l'ifs avec la page de code windows
CPYTOSTMF FROMMBR('/qsys.lib/bib.lib/fic.file/mbr.mbr')
TOSTMF('/tmp/mbr.txt')
STMFOPT(*REPLACE)
STMFCODPAG(*PCASCII)


puis
qsh cmd('compress /tmp/mbr.txt')

le fichier est alors remplacé par /tmp/mbr.txt.Z

la doc de compress


nicolas

[BALLAT]

Bonjour,

Meilleurs Voeux pour 2009
Dans l'ordre ou le désordre : Pognon , Santé, Amour..........
Et Meuf car 2009 c'est l'année de la Meuf..Hi ! Hi !

Tu peux compresser aussi en ZIP :
GNU GZIP qui est trés performant et Fiable
http://www.gzip.org/index-f.html
Tu zippes donc ton Fichier sur l'IFS puis transfert FTP

Cet outils te permettra aussi d'exploiter des fichiers zip.

Cordialement,
Jean-Philippe

[inpra]

Merci à Vazymimil et Ballat qui m'ont suggéré leurs solutions, je vais faire quelques essais et vous tiendrai au courant. Si j'ai bien compris, quelle que soit la solution, les fichiers à transférer se trouvent obligatoirement dans l'IFS ?

[vazymimil]

Oui, y'a peut-être moyen de faire autrement mais en tout cas c'est préférable, les fichiers à enregistrements du 400 ne sont pas fait pour héberger des résultats de compression

[vazymimil]

, j'ai fais un peu mumuse !

tu peux aussi utiliser :

QSH CMD('RFile -rQ bib/fichier | iconv -f 297 -t 1252 | compress -c > /tmp/fichier.txt.z')

directement sur un fichier bd, RFile -rQ "bib/fichier(membre)" , avec les double quotes
pour un membre particulier
çà t'évitera tout le temps du cpytostmf donc çà devrait être un peu plus rapide

par contre :

1. Le caratère de fin est LF et non CRLF
2. Ne pas utiliser de zones packées ou binaires qui sont rendues dans leur format de stockage

PS: çà marche sans doute en remplaçant compress par gzip, ou pas loin