Tronquer des données [Résolu]

[sam01]

Bonjour est-il possible de tronquer les 30 premières colonnes d'un fichier VB de 200 caractères ?

Avec un fichier en sortie qui à le même DCB.

j'y parviens avec du FB et outrec mais en VB pas moyen..

Merci d'avance pour votre aide.

[bernard59139]

essaye ceci, (je fais de tête, je n'ai pas accès à un mvs avant 1 semaine)

Code :

1
2
3
4
option vlshrt
sort fields=(copy)
outfil outrec=(5,30)

Une autre solution, c'est de coder le LRECL dans le JCL, avec éventuellement l'option "TRUNC=RC0" dans la sysin.

[sam01]

Bonjour,

ça ne fonctionne pas.

Voici le message d 'erreur :

OPTION VLSHRT
SORT FIELDS=COPY
OUTFIL OUTREC=(5,30)
RECORD TYPE IS V - DATA STARTS IN POSITION 5
VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
INCONSISTENT SORTOUT IFTHEN 0 REFORMATTING FIELD FOUND
C5-K21008 C6-K90007 C7-K90000 C8-K23476 E9-K90007 E7-K11698
END OF DFSORT


Est-il possible de le faire avec ICETOOL ?

[bernard59139]

Ma mémoire me joue des tours.
Ca, ca devrait le faire:

Code :

1
2
  OPTION VLLONG
  SORT FIELDS=(COPY)

[sam01]

toujours pas :

- CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 14:52 ON MON SEP
OPTION VLLONG
SORT FIELDS=COPY
OUTFIL OUTREC=(5,30)
RECORD TYPE IS V - DATA STARTS IN POSITION 5
VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
INCONSISTENT SORTOUT IFTHEN 0 REFORMATTING FIELD FOUND
C5-K21008 C6-K90007 C7-K90000 C8-K23476 E9-K90007 E7-K11698
END OF DFSORT

[bernard59139]

Sans mettre le OUTREC.....

En ne mettant que les 2 lignes. Le LRECL du fichier devra être dans le JCL.

[sam01]

Mais à quel moment je lui dis de sauter les 30 premières colonnes si je ne mets le OUTREC ?

[Homer-ac]

Bonjour,
Comme bernard59139 et bien que nos Jobs et employeurs soient sans rapport, je n'aurai pas non plus le temps de vérifier en MVS pendant quelques jours. Je peux peut-être quand même te donner des pistes. Il y a pas mal d'options dont celles indiquées par Bernard. Regarde aussi dans la Doc DFSORT les paramètres VTOF et FTOV. Le premier te permet de passe de VB en FB, le second, bien entendu le contraire. Mais comme les 2 s'appliquent plutôt dans l'OUTFIL il faudrait tester les cas. Au pire en t'appuyant sur les 2, tu t'en sort en 2 steps. 1) VB en FB avec FTOF + VLFILL, 2) FB en VB via FTOV. Il y a certainement un moyen direct, mais réponse seulement fin de semaine en ce qui me concerne.

[bernard59139]

Désolé, j'ai mal lu la question

essaye ceci:

Code :

1
2
sort fields=(copy)
outfil outrec=(1,4,34)

explications:

• 1,4 permet de tenir compte du RDW (le fichier est en variable)
• 34 saute les 30er records + les 4c du rdw. Et sans mettre la longueur, SORT prend le "reste"

[sam01]

Nickel,

ça, ça marche !

merci.

[Homer-ac]

Message perso : merci du tuyau.
J'ai parfois géré des trucs comme ça en bien plus compliqué, pour du variable en m'appuyant sur la doc.