Tronquer des données

**sam01** · 25/09/2009, 16h28

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** · 26/09/2009, 15h59

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

Code :

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

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** · 28/09/2009, 10h29

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** · 28/09/2009, 12h55

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

Code :

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

1
2
  OPTION VLLONG
  SORT FIELDS=(COPY)

**sam01** · 28/09/2009, 14h53

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** · 28/09/2009, 15h38

Sans mettre le OUTREC.....

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

**sam01** · 28/09/2009, 16h07

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

**Homer-ac** · 28/09/2009, 18h36

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** · 28/09/2009, 21h12

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

essaye ceci:

Code :

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

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"