Discussion :

[SGR]

Bonjour,

j'ai construit un JCL d'UNLOAD (requete sur 2 tables DB2).
Mon seul souci... 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.

[Luc Orient]

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.

[Luc Orient]

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 ...

[Peut-êtreUneRéponse]

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 Format avec signe plus et moins à gauche :

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

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

Code Format avec signe plus et moins à droite :

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

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

Code Format avec signe moins à gauche :

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

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

Code Format avec signe moins à droite :

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

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 Format avec utilisation d'un masque :

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

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


.