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.

[ted the Ors]

Code :

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

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

et j'obtiens ca:

Code :

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

1
2
3
000140C600000
FFFFFFCFFFFFF
0001403600000

[ekans]

Etonnant...

Questions bêtes :

* tu as bien un FB en entrée ?
* ton champ "..îÌ[" est bien en position 1 dans ton fichier d'entrée ?

[ted the Ors]

Etonnant...

Questions bêtes :

* tu as bien un FB en entrée ?
* ton champ "..îÌ[" est bien en position 1 dans ton fichier d'entrée ?

Oui aux 2 questions!

[ekans]

Désolé mais je sèche.
Déjà, pour moi, il me parait difficile d'avoir une longueur de 13 en sortie en précisant que l'entrée est sur 5.

Sinon peux-tu essayer ça et me confirmer que tu obtiens 1234567890 dans la sysout :

Code :

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

1
2
3
4
5
6
7
8
9
10
//STEP01  EXEC PGM=SORT  
//SYSOUT  DD SYSOUT=*    
//SORTIN  DD *           
  îÌ°TOTOTO              
//SORTOUT DD SYSOUT=*    
//SYSIN   DD *           
  OPTION COPY            
  OUTREC FIELDS=(1,5,HEX)
/*

[bernard59139]

dans ton fichier en entrée, tu as x'000140C6', ca ne correspond à rien de ce que je connais.

si tu as le descriptif cobol, j'essayerai de répondre. Au pire, ce que tu veux en sortie.

[Luc Orient]

Pour moi et dans l'exemple qui est donné, il manque la représentation du signe.

Je dirais que :

Code :

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

1
2
3
1  A  PIC 9(10) PACKED-DECIMAL

MOVE 1234567890 TO A

devrait se représenter par :

Code :

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

X'01234567890F'

X'F' voulant dire non signé.

[Homer-ac]

Je viens de vérifier, la réponse d'Ekans est appropriée et donne bien le résultat attendu :

Code :

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

1
2
3
4
5
6
7
8
9
//S0010    EXEC PGM=SORT                         
//SYSOUT   DD SYSOUT=*                           
//SORTIN   DD DISP=SHR,DSN=.............
//SORTOUT DD SYSOUT=*,LRECL=80,RECFM=FB                     
//SYSIN    DD *                                  
  SORT FIELDS=COPY                       
  OUTREC FIELDS=(1,5,HEX,6,9)                    
//*