Discussion :

[bakounine]

Bonjour ,

Je dois faire un SORT INCLUDE dans un fichier pour rechercher tous les enregistrements contenant la chaîne "XXXX".

Je code donc : "INCLUDE COND=(1,80,SS,EQ,C'XXXX ')

Par contre , ma chaîne peut être écrite "Xxxx" , "xxxx" , "XxXx" , etc... avec bien sur toutes les combinaisons possibles.

Vu la puissance impressionnante de SORT , je me demandais s'il existait une option lui permettant de me récupérer toutes les combinaisons de "XXXX" ?

Si vous connaissez ce paramètre....

Merci d'avance

Bakounine

[Luc Orient]

Une solution simple avec ICETOOL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K 
//* copy avec selection independante de la casse 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
 COPY FROM(INDD) TO(OUTDD) USING(CTL1) 
//CTL1CNTL DD * 
 INREC BUILD=(1,4,TRAN=LTOU) 
 OUTFIL INCLUDE=(1,4,CH,EQ,C'XXXX') 
//OUTDD DD SYSOUT=* 
//INDD DD * 
XXXX 
xxxx 
xxxX

Ici la paramètre INREC BUILD convertit la chaîne de caractères en majuscules avant traitement.

L'inconvénient de la solution, bien sûr, c'est qu'on perd la casse d'origine.

A affiner si nécessaire ...

[bakounine]

Bonjour Luc ,

C'est nickel-chrome ! Exactement ce que je recherchais.

Il y a en effet la perte de la casse d'origine dans le fichier en sortie (J'ai cru un instant qu'il se permettait de changer aussi la casse dans le fichiers en entrée !) , mais dans mon cas précis , cela n'a aucune importance ...

Merci !

Bakounine

[bernard59139]

Bonjour
en retard, dsl.

Une solution alternative avec ALTSEQ. La table ALTSEQ doit être chargée avec tous les caractères de l'alaphabet, minuscules+majuscules.

//SORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
OUI
oui
Oui
non
//SORTOUT DD SYSOUT=*
//SYSIN DD *
ALTSEQ CODE=(96D6,A4E4,89C9)
SORT FIELDS=COPY
INCLUDE COND=(1,3,AQ,EQ,C'OUI')

[bakounine]

Bonjour ,

Merci Bernard pour cette deuxième solution qui offre l'avantage de conserver la casse dans le fichier en sortie.

Par contre , elle possède un inconvénient , c'est que je ne connais pas la position exacte de ma chaîne dans le fichier en entrée , c'est pourquoi j'utilise le paramètre 'SS'.

Existe-t-il un mixte de 'AQ' et de 'SS' ? Si oui , c'est le top !

De toute façon , je note ces deux solutions , chacune ayant son utilité.

Merci à vous

Bakounine

[Pioup01]

Une solution simple avec ICETOOL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K 
//* copy avec selection independante de la casse 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
 COPY FROM(INDD) TO(OUTDD) USING(CTL1) 
//CTL1CNTL DD * 
 INREC BUILD=(1,4,TRAN=LTOU) 
 OUTFIL INCLUDE=(1,4,CH,EQ,C'XXXX') 
//OUTDD DD SYSOUT=* 
//INDD DD * 
XXXX 
xxxx 
xxxX

Ici la paramètre INREC BUILD convertit la chaîne de caractères en majuscules avant traitement.

L'inconvénient de la solution, bien sûr, c'est qu'on perd la casse d'origine.

A affiner si nécessaire ...

Bonjour,

met toi en edit sur ta sysin,et entre CAPS OFF en commande ispf. Ensuite insère ta chaîne de caractère avec et sans majuscules et sauvegarde ...

une solution qui va faire rougir Luc Orient

[Luc Orient]

Bonjour,

met toi en edit sur ta sysin,et entre CAPS OFF en commande ispf. Ensuite insère ta chaîne de caractère avec et sans majuscules et sauvegarde ...

une solution qui va faire rougir Luc Orient

... euh ... pas compris là ...

[Pioup01]

... euh ... pas compris là ...

Et bien,en plus de la méthode de bernard59139, on peut construire une condition de la manière suivante (c'est pas très propre):

Code :

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

1
2
3
4
5
 INCLUDE COND=(1,80,SS,EQ,C'XXXX'),
                       OR,(1,80,SS,EQ,C'xxxx'),
                       OR,(1,80,SS,EQ,C'Xxxx'),
                       etc...

En espérant que ta chaîne de caractères ne soit pas trop longue

[bakounine]

Bonjour ,

Le fait de saisir toutes les possibilités de mélange majuscule/minuscule n'est pas vraiment jouable , car la chaîne qui m'intéresse fait en réalité 11 caractères , soit , si je compte bien 2048 possibilités...

Et CAPS OFF dans un JCL , je n'aime pas du tout...

Merci quand même , je me sert de la méthode de Luc (Et j'ai mis de coté celle de Bernard)

Bakounine