Discussion :

[ted the Ors]

Bonjour à tous,

Je souhaiterai dépacker des zones d'un fichier via un sort mais j'ai beau chercher sur le net ou sur le site d'IBM, je ne trouve rien qui fonctionne.
Si par exemple, mon fichier contient (les lignes 2 et 3 correspond à l'édition en hexa)

Code :

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

1
2
3
..îÌ[BLABLIBLO
13579
24680

je voudrais en sortie pouvoir avoir
1234567890BLABLIBLO

J'ai essayé ceci mais ca ne fonctionne pas du tout:

Code :

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

1
2
3
SORT FIELDS=COPY                     
OUTREC BUILD=(1,5,PD,TO=PD,LENGTH=10,
              6,3,PD,TO=PD,LENGTH=06)

D'avance merci à ceux qui prendront le temps de m'aider.


Bonne journée.

[bernard59139]

Bonjour

je vais te donner une piste.
Ton essai transforme une zone PD de 5 de long, en une zone PD de 10 de long.

suffit de changer le format de la zone de sortie.

[ekans]

Bonjour,

Je rajouterais aussi que le PD en entrée devrait avoir le signe en dernière position...

[bernard59139]

Bonjour
j'ai vérifier, et désolé, j'avais répondu beaucoup trop vite.

les zones de ton fichier en entrée ne sont pas en PD (packed décimal signed) mais en Binaire équivalent cobol "PIC 9(x) comp".

Pour avoir les zones en "clair", c'est assez simple, :

Code :

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

1
2
 SORT FIELDS=COPY             
 OUTREC FIELDS=(1,5,HEX,........)

[ted the Ors]

Bonjour
j'ai vérifier, et désolé, j'avais répondu beaucoup trop vite.

les zones de ton fichier en entrée ne sont pas en PD (packed décimal signed) mais en Binaire équivalent cobol "PIC 9(x) comp".

Pour avoir les zones en "clair", c'est assez simple, :

Code :

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

1
2
 SORT FIELDS=COPY             
 OUTREC FIELDS=(1,5,HEX,........)

Ca ne marche pas, j'ai un abend user 0007...

Code :

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

1
2
3
4
5
- CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5
 SORT FIELDS=COPY                                  
 OUTREC FIELDS=(1,5,HEX,ZD,LENGTH=10)              
                         $                         
SYNTAX ERROR

[bernard59139]

Ne cherche pas à faire trop bien, code juste

Code :

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

 OUTREC FIELDS=(1,5,HEX)

[ted the Ors]

En fait, j'ai réussi à avoir un code retour 0 mais le résultat n'est pas probant:

Code :

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

1
2
3
.. F....o..îÌ[
004C0001913579
01060018624680

[ekans]

Autant pour moi il ne s'agissait pas de comp-3 en entrée...

Concernant ton output, peux-tu copier ici ton outrec car ce que t'as donné bernard59139 devrait fonctionner.