Utiliser la commande CPYTOIMPF

Cet exemple permet de copier un fichier AS vers un fichier XLS.
A noter : le paramètre FLDDLM (tabulation) permet d’ouvrir directement avec excel.
fichier AS 400 BOOKS
fichier PC /HOME/BOOK.XLS

CPYTOIMPF FROMFILE(SERGE/BOOKS)
TOSTMF('/HOME/BOOK.XLS')
MBROPT(*REPLACE)
STMFCODPAG(*PCASCII)
RCDDLM(*CRLM)
STRDLM(*NONE)
FLDDLM(X'05')
DECPNT(*COMMA)

Remarque concernant le formatage : Si vous avez des zones alpha contenant des nombres (ex : '000007') excel formatera votre colonne comme étant numérique donc les zéros non significatifs (ceux de droite) seront supprimés.
Pour éviter cela il faut exporter votre fichier avec l'extention .txt l'ouvrir (sur le pc) avec le bloc note, sélectionner et copier tout le texte, coller (collage spécial, que les valeurs) le contenu du presse-papier dans une feuilles xls préalablement formatée (colonne texte ou numérique).
Serge G.

Print Friendly, PDF & Email