JCL : obtenir de l'étendu a partir d'un format comp

Bonjour,

j'ai construit un JCL d'UNLOAD (requete sur 2 tables DB2).
Mon seul souci...:cry: c'est qu'une des zones recuperées est un montant packé...

Est ce que quelqu'un connait l'eventuelle manip JCL pour convertir une zone packée issue de DB2 en zone étendue lisible ?

Merci à vous.

Je vois deux possibilités :

1. décoder la colonne au moment de l'UNLOAD - quel est l'outil utilisé pour faire cet UNLOAD ? DSNTIAUL ou autre ?
2. faire la conversion à partir du fichier plat - un outil comme ICETOOL devrait arriver à faire ce travail.

Ah j'oubliais !

Il y a aussi des outils de mise en forme de fichiers comme "File-Aid".
Le tutoriel de Guillaume "au dessus" des questions présente justement un exemple d'une telle mise en forme.

Bien entendu, c'est un produit non IBM et donc payant.
Il faut qu'il soit installé et disponible sur le site bien sûr ...

Via ICETOOL ou DFSORT, tu fais un OUTREC FIELD avec conversion de format comme suit:

Supposons un fichier de longueur 100 avec une zone packée de longueur 16 commençant à 2, cette zone packée correspond à un décimal avec 2 chiffre après la virgule:

Code:

---

1 2 3 4

OUTREC FIELDS=(1,1, 2,8,PD,EDIT=(STTTTTTTTTTTTT.TT),SIGNS=(+,-), 10,91)

---

Code:

---

1 2 3 4

OUTREC FIELDS=(1,1, 2,8,PD,EDIT=(TTTTTTTTTTTTT.TTS),SIGNS=(,,+,-), 10,91)

---

Code:

---

1 2 3 4

OUTREC FIELDS=(1,1, 2,8,PD,EDIT=(STTTTTTTTTTTTT.TT),SIGNS=(,-), 10,91)

---

Code:

---

1 2 3 4

OUTREC FIELDS=(1,1, 2,8,PD,EDIT=(TTTTTTTTTTTTT.TTS),SIGNS=(,,,-), 10,91)

---

Bien sûr à la place de EDIT tu peux utiliser un masque :

Code:

---

1 2 3 4

OUTREC FIELDS=(1,1, 2,8,PD,M1, 10,91)

---

M1 étant un masque d'édition du type: TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTS

Plus d'info sur z/OS V1R8.0-V1R9.0 DFSORT Application Programming Guide


.