formatter les colonnes [Résolu]

[sam01]

Bonjour,

j'ai un fichier en FB dans lequel j'aimerais uniquement garder les 50 premières colonne. Est-il possible d faire cela avec un sort ou via un autre programme (icetool...) ?

[Peut-êtreUneRéponse]

Via DFSORT tu peux faire un BUILD:

Code :

1
2
3
4
5
//SYSIN        DD *            
  SORT FIELDS=COPY             
      OUTFIL FNAMES=SORTOUT,   
         BUILD=(1,50)          
/*

[bernard59139]

meme sans mettre l'OUTFIL cela devrait fonctionner.
le SORT se base sur le LRECL du fichier en sortie, lex rc devrait être égal à 00, sauf si une option a été changée.

[Peut-êtreUneRéponse]

Mwarf, comment faire compliqué quand on peut faire simple. Merci @Bernard59139

[sam01]

Ben au fait ça n'a pas l'air de fonctionner :

Code :

1
2
3
4
5

 OUTFIL FNAMES=SORTOUT,BUILD=(1,50)                                    
RECORD TYPE IS F - DATA STARTS IN POSITION 1                           
50 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 174 BYTE LRECL FOR SORTOUT

Il attend un fichier 50 en sortie...

[bernard59139]

Récupère le message d'erreur et regarde dans la doc....

[Luc Orient]

Comment est alloué le fichier en sortie ?

J'ai fait un essai et, pour moi, si on laisse DFSORT faire l'allocation du fichier, on a un LRECL à 50.

[sam01]

Bonjour,

mon fichier en sortie est un fichier existant qui à une longueur de 174.

Ce que j'ai fait :

Je suis passé par un fichier intermédiaire (en FB, 50) et ensuite j'ai fait un ICEGENER du FB 50 vers le FB 174.

[Peut-êtreUneRéponse]

Si ce fichier doit avoir une longueur de 174 il te suffit de rajouter 124X à ton BUILD.

[sam01]

voici ce que j'ai fait :

Code :

1
2
3

OUTFIL FNAMES=SORTOUT,BUILD=(1,50,174:X)

ça fonctionne.

Merci.