Discussion :

[hermellin]

Bonjour,

Je viens de m'inscrire. J'ai developpé sur as400 jusqu'en 2003, surtout du rpg3. Puis plus rien jusque aujourd'hui donc je suis plutot rouillé
De plus il s'agit d'un dev en rpgle.

Mon pb est le suivant : j'ai un fichier dans QGPL issu d'un PC, le format fait 334 caracteres de long. Chaque enreg a une lgeur totale differente, le separateur des champs est X'25' et chaque champs a aussi une lgeur differente d'un enreg a l'autre.

Habitué a decoupé des DS a lgueur fixe, y a t il une solution plus habile dans RPGLE ou devrai je passer par une recherche systematique du separateur X'25' pour trouver la fin de chacun des champs des enregs ?

merci.

[Green Hornet]

les longueurs sont variables mais le nombre de séparateurs est il le même pour chaque enregistrements? si oui, récupère ton fichier dans Excel puis redescend le sur le 400 dans un fichier zoné ça devrait déjà te simplifier la vie

[hermellin]

merci pour cette tres bonne idée ! oui y'a toujours le meme nbre de champs dans les enregs.
je teste cela demain

[Mercure]

Quel est le caractère de fin d'enregistrement ?

La solution définitive ne peut que passer par la commande CPYFRMIMPF <F4>, X'25' étant le caractère tabulation en EBCDIC.

Code :

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

1
2
3
4
5
CPYFRMIMPF FROMFILE(QGPL/MYPCFILE) 
           TOFILE(MYLIB/MYDBFILE)  
           RCDDLM(*EOR)    <--- A revoir peut-être         
           STRDLM(*NONE)           
           FLDDLM(*TAB)

[hermellin]

Mon probleme est resolu en étant passé par Excel, sauvegarde en fichier .prn avec separateur =espace, ce qui produit un fichier aux alignements parfaits. Chaque enreg fait desormais la meme taille ainsi que tous les champs.

Ensuite j'ai fait un FTP send vers un repertoire de l'IFS sur l'as400.

la commande CPYFRMIMPF n'existe pas sur mon AS (v4R2) donc j'ai utilisé CPYFRMSTMF vers un membre de la base de données DB2 et j'obtiens pour le moment des enregs nickels pret a etre decoupés dans une DS a tailles fixes

Merci bcp pour m'avoir remis le pied a l'etrier !