Contraire du SPLICE ? [Résolu]

[macgawel]

Bonjour.

Est-il possible de faire le contraire d'un SPLICE ?

Explication :
J'ai un fichier de paramètrage construit comme ça :

Code :

1
2
3
DEPARTEMENT1CODE1CODE2
DEPARTEMENT2CODE3
DEPARTEMENT3CODE4CODE5CODE6

Evidemment, on peut retrouver plusieurs fois le même code (un par département), et on a maximum 10 codes par département...
Et je voudrais obtenir ça :

Code :

1
2
3
4
5
6
DEPARTEMENT1CODE1
DEPARTEMENT1CODE2
DEPARTEMENT2CODE3
DEPARTEMENT3CODE4
DEPARTEMENT3CODE5
DEPARTEMENT3CODE6

Là, je sèche lamentablement


[Edit]Correction suite à la remarque d'ekans.

Au passage :
Il y a peut-être moyen de simplifier le problème global...
L'objectif final est de filtrer un autre fichier sur le couple département+code en fonction de ces paramètres.
Je sais faire une jointure si j'ai mon fichier de paramètrage construit sous la forme une ligne par couple, d'où ma question.

Mais je peux aussi envisager le problème sous un autre angle :
Si j'ai une ligne de 1 à 10 codes (chacun sur 3 caractères), est-il possible de filtrer le fichier principal pour récupérer tous les enregistrements correspondants ?

[ekans]

Bonjour,

La ligne 6 de ta sortie est-elle correcte ?
Ce ne serait pas :

Code :

DEPARTEMENT3CODE6

Si ton exemple est correct, ce que tu demandes ne me semble pas assez clair.

[macgawel]

Mea culpa, je me suis bien trompé

J'ai corrigé mon message...

[Luc Orient]

Une suggestion avec ICETOOL (c'est du vite fait ... on peut peut être faire mieux ...) :

Pour faire simple, je traite que le cas de 3 codes département ... A compléter pour les autres ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
 COPY FROM(INDD) TO(OUTDD) USING(CTL1)
//CTL1CNTL DD *
 OUTFIL IFTHEN=(WHEN=(18,1,CH,EQ,C' '),
         BUILD=(1,12,13,5)),
        IFTHEN=(WHEN=(23,1,CH,EQ,C' '),
         BUILD=(1,12,13,5,/,
                1,12,18,5)),
        IFTHEN=(WHEN=(28,1,CH,EQ,C' '),
         BUILD=(1,12,13,5,/,
                1,12,18,5,/,
                1,12,23,5))
//OUTDD DD SYSOUT=*
//INDD DD *
DEPARTEMENT1CODE1CODE2
DEPARTEMENT2CODE3
DEPARTEMENT3CODE4CODE5CODE6

A noter que j'ai supposé que si le département n'était pas renseigné dans le fichier, il y avait des caractères ESPACE à la place. Si ton fichier est géré en format variable, je pense qu'il faudra trouver une autre solution ...

[Pico-----]

Autre solution avec ICETOOL.

Comme Luc Lorient, je me suis limité à 3 codes, et j'ai utilisé le space comme valeur "non renseigné"

Personnellement, je préfère éviter les IFTHEN quitte à décomposer en plusieurs étapes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//ICETOOL  EXEC PGM=ICETOOL                                             
//TOOLMSG  DD SYSOUT=*                                                  
//DFSMSG   DD SYSOUT=*                                                  
//SORTIN   DD *                                                         
DEPARTEMENT1CODE1CODE2                                                  
DEPARTEMENT2CODE3                                                       
DEPARTEMENT3CODE4CODE5CODE6                                             
//TEMP     DD DSN=&&TEMP1,RECFM=FB,LRECL=17,DISP=(MOD,PASS),            
//            SPACE=(TRK,(1,1),RLSE)                                    
//SORTOUT  DD SYSOUT=*                                                  
//*                                                                     
//TOOLIN   DD *                                                         
 COPY FROM(SORTIN) TO(TEMP) USING(COP1)                                 
 SORT FROM(TEMP) TO(SORTOUT) USING(TRI1)                                
//*                                                                     
//COP1CNTL DD *                                                         
 OUTFIL OUTREC=(1,12,13,5,/,                                            
                1,12,18,5,/,                                            
                1,12,23,5)                                              
//*                                                                     
//TRI1CNTL DD *                                                         
 SORT FIELDS=(1,17,CH,A)                                                
 INCLUDE COND=(13,5,CH,NE,C'     ')                                     
//*

De plus, pour cette solution comme pour celle de Luc Lorient, si ton fichier en entrée est de format variable, tu peux rajouter un étape de conversion en premier lieu.

[macgawel]

Bingo !

En fait, ce qui me manquait c'est le / pour passer à la ligne

Question au passage : ça fonctionne aussi sur un SORT OUTREC ?

[Pico-----]

Oui le OUTREC fonctionne avec le SORT.

[Luc Orient]

Envoyé par macgawel

Question au passage : ça fonctionne aussi sur un SORT OUTREC ?

Oui ça fonctionne aussi avec un SORT mais OUTFIL pas OUTREC.

Version avec SORT :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//SORT EXEC PGM=SORT
//* ECLATER UNE LIGNE EN PLUSIEURS
//SYSOUT DD SYSOUT=*
//SYSIN DD *
 OPTION COPY
 OUTFIL IFTHEN=(WHEN=(18,1,CH,EQ,C' '),
         BUILD=(1,12,13,5)),
        IFTHEN=(WHEN=(23,1,CH,EQ,C' '),
         BUILD=(1,12,13,5,/,
                1,12,18,5)),
        IFTHEN=(WHEN=(28,1,CH,EQ,C' '),
         BUILD=(1,12,13,5,/,
                1,12,18,5,/,
                1,12,23,5))
//SORTOUT DD SYSOUT=*
//SORTIN DD *
DEPARTEMENT1CODE1CODE2
DEPARTEMENT2CODE3
DEPARTEMENT3CODE4CODE5CODE6