Discussion :

[JauB]

Bonjour,
Je veux copier un fichier contenant des zones numériques dans un fichier contenant les mêmes noms de champs, sauf que ce tous les champs de ce 2ème fichier sont déclarés en alphanumériques (et je ne veux pas plus y toucher) ! Lorsque j'utilise la commande CPYF comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CPYF       FROMFILE(MYFILE1) TOFILE(MYFILE2) MBROPT(*ADD)  CRTFILE(*YES)

ça plante !
Comme erreur j'ai :
Commande de copie interrompue à la suite d'une erreur.


Comme détail :

La zone MONCHAMP1 ne mappe pas le fichier d'origine MYFILE1 de MABIB.

sachant que MYFILE1 est utilisé par un programme COBOL, y aurait t-il moyen pour contourner ce problème ?

[K2R400]

Tu rentres sous SQL : STRSQL
Puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO MYFILE1 SELECT * FROM MYFILE2

[JauB]

Oui c'est ce que je viens de faire
J'ai voulu passer par une commande plus propre à AS400 mais ...
Merci

[Mercure]

Si tous les champs numériques de MYFILE1 sont en décimal étendu et que tous les champs alphanumériques de MYFILE2 occupent le même nombre d'octets que dans MYFILE1, tu peux utiliser la commande de copy suivante qui fait une copie "brute" sans contrôle de MYFILE1 dans MYFILE2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CPYF FROMFILE(MYFILE1) TOFILE(MYFILE2) MBROPT(*ADD)  FMTOPT(*NOCHK) CRTFILE(*YES)

[JauB]

Merci infiniment Mercure
Ta solution marche à merveille

Si tous les champs numériques de MYFILE1 sont en décimal étendu et que tous les champs alphanumériques de MYFILE2 occupent le même nombre d'octets que dans MYFILE1, tu peux utiliser la commande de copy suivante qui fait une copie "brute" sans contrôle de MYFILE1 dans MYFILE2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CPYF FROMFILE(MYFILE1) TOFILE(MYFILE2) MBROPT(*ADD)  FMTOPT(*NOCHK) CRTFILE(*YES)