Include Cond et TAG

Salut à vous

J'ai une interrogation sur l'utilisation d'INCLUDE COND dans un SORT.

Je souhaites filtrer un fichier pour ne conserver que certaines valeurs dans une zone bien précise mais en fonction de la valeur filtrée, je souhaites ajouter un TAG en fin de fichier (OUTREC). Exemple

Code:

---

1 2 3 4 5 6 7 8

XXX VALA XXX XXX VALA XXX XXX VALB XXX XXX VALA XXX XXX VALB XXX XXX VALB XXX XXX VALC XXX XXX VALB XXX

---

Je souhaites filtrer uniquement les VALA et VALB et obtenir :

Code:

---

1 2 3 4 5 6 7

XXX VALA XXX NOMA XXX VALA XXX NOMA XXX VALB XXX NOMB XXX VALA XXX NOMA XXX VALB XXX NOMB XXX VALB XXX NOMB XXX VALB XXX NOMB

---

Savez vous comment je peux m'y prendre ?

Je suggère une combinaison avec OUTFIL/IFTHEN et INCLUDE ...

Soit (exemple testé) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//SORT EXEC PGM=SORT //* RESTRUCTURATION SELECTIVE ET SELECTION //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTFIL IFTHEN=(WHEN=(5,4,CH,EQ,C'VALA'), BUILD=(1,12,C' NOMA')), IFTHEN=(WHEN=(5,4,CH,EQ,C'VALB'), BUILD=(1,12,C' NOMB')) INCLUDE COND=(5,4,CH,EQ,C'VALA',OR,5,4,CH,EQ,C'VALB') //SORTOUT DD SYSOUT=* //SORTIN DD * XXX VALA XXX XXX VALA XXX XXX VALB XXX XXX VALA XXX XXX VALB XXX XXX VALB XXX XXX VALC XXX XXX VALB XXX

---

Merci beaucoup, je vais réfléchir à cette solution car j'ai beaucoup de VAL* mais c'est un bon départ ...

J'ai réalisé une ébauche mais j'ai toujours ce message :

Code:

---

WER001A COL 1 OR 1-15 NOT BLANK

---

Voici ma SYSIN :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

OPTION COPY OUTFIL IFTHEN=(WHEN=(1,8,CH,EQ,C'JOBNAME '),BUILD=(1,137,10X)), IFTHEN=(WHEN=(1,8,CH,EQ,C'AAAAAAAA'),BUILD=(1,137,C' VALA ')), IFTHEN=(WHEN=(1,8,CH,EQ,C'BBBBBBBB'),BUILD=(1,137,C' VALB ')), * IFTHEN=(WHEN=(1,8,CH,EQ,C'CCCCCCCC'),BUILD=(1,137,C' VALC ')), * IFTHEN=(WHEN=(1,8,CH,EQ,C'DDDDDDDD'),BUILD=(1,137,C' VALD ')) INCLUDE COND=(1,8,CH,EQ,C'JOBNAME ',OR, 1,8,CH,EQ,C'AAAAAAAA',OR, 1,8,CH,EQ,C'BBBBBBBB',OR, 1,8,CH,EQ,C'CCCCCCCC',OR, 1,8,CH,EQ,C'DDDDDDDD') WER001A COL 1 OR 1-15 NOT BLANK WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

---

Savez vous pourquoi ? Je ne trouve pas de doc claires ...

Aie ... semble-t-il, c'est SYNCSORT que tu utilises ("l'autre" tri) ... moi je t'ai donné une solution à base de DFSORT (le tri "standard" d'IBM) ... là je ne peux plus t'aider ...

3 choses:

1. syncsort respecte (et doit) respecter la syntaxe DFSORT
2. en sysin, la colonne 1 doit être à blanc (sauf cas particulier=
   ce qui n'est pas le cas dans ton exemple
3. toujours en sysin, ne jamais dépasser la colonne 71, sauf à mettre en 72 un caractère de "continuation à la ligne suivante".
   dans ton exemple, des lignes font 75c.

OK merci pour vos précisions respectives.

Ma SYSIN est générée en amont par les STEP précédent mais je suis confronté à un autre problème.

Pour générer mes OUTFIL, j'utilise un JCL avec OUTREC sur un fichier en entrée contenant mes valeurs mais je ne sais pas comment générer deux lignes pour un même enregistrement en entrée pour avoir ma commande OUTFIL sur deux lignes ... ceci afin de ne pas dépasser la colonne 72 !

Je fais un premier STEP comme ceci

Code:

---

1 2	OPTION COPY OUTREC FIELDS=(C' IFTHEN=(WHEN=(1,8,CH,EQ,C''',1,8,10,10,28X)

---

Puis avec le premier fichier généré, je passe ce second STEP :

Code:

---

1 2	OPTION COPY OUTREC FIELDS=(1,42,C'''),BUILD=(1,137,C'' ',43,10,C''')),',5X)

---

Est-il possible pour chaque enregistrement de générer deux lignes comme ceci :

Code:

---

1 2	IFTHEN=(WHEN=(1,8,CH,EQ,C'DDDDDDDD'), BUILD=(1,137,C' VALD '))

---

PS : je n'ai pas reporté sur mon exemple mais la première colonne est bien vide...

Trouvé !

J'ai utilisé ceci :

Code:

---

OUTFIL BUILD=(1,45,35X,/,7X,46,29,43X)

---

Du SORT qui génère du SORT ... moi je dis c'est beau ... :ccool:

Citation:

---

Envoyé par Luc Orient

Du SORT qui génère du SORT ... moi je dis c'est beau ... :ccool:

---

En effet... C'est comme compter le nombre d'enregs en récursif :mouarf:

Oui mais ça marche ... j'ai une SYSIN dynamique en fonction d'une liste de valeur d'un fichier en entrée ...

A moins que vous ayez une meilleurs solution !

Citation:

---

Envoyé par Antichoc

Oui mais ça marche ... j'ai une SYSIN dynamique en fonction d'une liste de valeur d'un fichier en entrée ...

A moins que vous ayez une meilleurs solution !

---

Pas de meilleure solution ... Mon propos n'est nullement négatif car je trouve la solution plutôt originale voire élégante ... Quand j'étais DBA DB2, il m'arrivait parfois d'écrire du SQL qui générait du SQL et c'était très pratique ...

Et puis, l'important est que tu as trouvé la solution qui résout ton problème.