Discussion :

[mery007]

bonjour tout le monde,
s'il vous plait si quelqu'un a une idée :

j'ai un fichier physique avec une seule zone de 500 caracteres alphanumerique :exemple (281;xxxxxxxxxx;ffffffffffff;uuuuuuuu;date debut;date fin ;heure debut;heure fin;llllllllllll....)

je veux extraire ses données et les stocké dans un autre fichier physique pour metre chaque valeur dans une zone spécifique ,sachant que dans le nouveau fichier contient plus de zones (donc ce n'est pas juste ses données qui existe dans le fichier)

[Hédhili Jaïdane]

Bonjour.

Quels système d'exploitation et version ?

C'est faisable en sql avec SUBSTRING et éventuellement les fonctions de conversion d'une sous-chaine de caractères en date, nombre, etc...

[mery007]

merci pour ta reponse

on travail avec as400,on doit faire un programme RPGLE pour lire du premier fichier et remplir le deusieme...
donc avec rpgle

[Hédhili Jaïdane]

Si les données occupent les mêmes emplacements dans le fichier en entrée, il suffit de :
- soit le décrire dans ton rpgle
- soit décrire un fichier identique avec des DDS et le créer puis faire un CPYF avec *NOCHK du premier fichier vers le fichier nouvellement créé qui sera le fichier en entrée au rpgle

sinon, utiliser CPYFRMIMPF en indiquant FROMFILE, le séparateur des zones, le point décimal, etc..., pour copier le fichier dans un fichier décrit par des DDS et rejoindre l'option précédente

[mery007]

merci jaidane c gentil ,
demain je vais essayer votre solution et je vous tiendrai au courant.
merci

[larry57]

Bonjour mery,

Tes zones, elles sont fixes dans ton fichier de 500 caractères ?
Si c'est le cas, tu fais une ds externe avec les zones du style :
Dma_ds E DS Extname(mon fichier externe) prefix(#)
MA_DS a les mêmes noms de champs que ton fichier de destination.
puis dans ton programme, tu fais un move de ton fichier de 500 vers ma_ds.
tu complètes les champs qui sont dans ton fichier final et que tu n'as pas dans MA_DS.
puis tu fais ton write.

C'est une solution que j'ai encore utilisée ce matin.

Larry57 :-))))

[mery007]

bonsoir larry
merci d’abord.
pour les enregistrement de mon fichier ,ne sont pas fixe ,c'est a dire
ligne1==>123;xxxxxxxxxxxxxxxxxxx;aaaaaaaaaaa;ooooooo
ligne2==>233;xxxxxxxxxxxxxxx;aaaaaaa;

donc ce que j'ai fait,c'est des scan pour le point virgul(pour fixer l'emplacement) et des subst pour recuperer les donnes ,un looooooooong programme , mais bon ,c'est ce quand a pu faire pour l'instant....

[Hédhili Jaïdane]

...pour les enregistrement de mon fichier ,ne sont pas fixe ,c'est a dire
ligne1==>123;xxxxxxxxxxxxxxxxxxx;aaaaaaaaaaa;ooooooo
ligne2==>233;xxxxxxxxxxxxxxx;aaaaaaa;

donc ce que j'ai fait,c'est des scan pour le point virgul(pour fixer l'emplacement) et des subst pour recuperer les donnes ,un looooooooong programme , mais bon ,c'est ce quand a pu faire pour l'instant....

et quid de ça ? :

Si les données occupent les mêmes emplacements dans le fichier en entrée, il suffit de :
- ....
sinon, utiliser CPYFRMIMPF en indiquant FROMFILE, le séparateur des zones, le point décimal, etc..., pour copier le fichier dans un fichier décrit par des DDS et rejoindre l'option précédente

[mery007]

bonsoir jaidan

pour votre solution ,je n l'ai pas bien compris,j'ai essayer la commande mais c etai pas clair... ,et parce qu'on m a demande de faire un programme ,et comme le point virgul n existe pas dans le meme emplacement pour chaque enregistrement ,j ai utiliser un read sur le fichier et puis des scan et subst et enfin une ecriture dans le nouveau fichier.

sinon si tu peux m'expliquer ta solution un peu en detail?
merci d avance

[pwrdwnsys]

C'est une commande de ce type :

Code :

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

1
2
3
4
5
6
7
8
 
CPYFRMIMPF FROMFILE(MYLIB/FILE_FROM)
           TOFILE(MYLIB/FILE_TO)    
           MBROPT(*REPLACE)         
           STRDLM(*NONE)            
           RMVBLANK(*BOTH)          
           FLDDLM(';')              
           DECPNT(*COMMA)

dans laquelle le fichier FILE_FROM est celui qui n'est pas colonné (une seule zone de 500) et le FILE_TO celui qui est colonné.

[larry57]

Bonjour,

Si tu dois le faire dans un programme
Tu met ton fichier de destination en usropn.
Dans ton programme RPG tu mets ceci en déclaration :

Code :

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

1
2
3
4
5
6
7
8
9
d exec            pr                  extpgm('QCMDEXC')
d                             3000a   options(*varsize) const
d                               15p 5 const
monitor;
puis cmd = 'la commande au dessus'
exec(cmd:%len(cmd));
on-error;
si tu veux gérer l'erreur.
endMon;

et le tour est joué.
Après, si tu as autre chose à faire sur ton fichier de destination, tu fais ton open et ton close.

La commande va prendre en charge le découpage des zones en fonction du séparateur que tu auras déclaré dans FLDDLM(';').

Larry57

[mery007]

OOOK maintenant je pense que c est plus clair
merci larry et pwrdwnsys ..
demain je vais essayer la nouvelle solution .