Discussion :

[piboula]

Bonsoir,

Comme c'est le premier post de l'année 2013, je souhaite une excellente année a tous

Je souhaiterai savoir s'il existe une utilitaire pour éclater une fichier en N fichier suivant une clé et le tout bien sur sans passé par un REXX.... enfin si je dois...

Exemple j'ai un fichier d'extraction

01 000
02 000
03 000
04 001
05 002

et j'aimerai que dans le fichier 1 il y ai tous les enregistrements contenant les 000
dans le fichier 2 tous les 001 et dans le fichier 3 tous les 002

sachant bien sur je ne sais pas combien de clés différentes j'ai
J'ai bien pensé au SORT mais je n'ai pas trouvé d'exemple

Merci pour votre aide

Bonne soirée

[bernard59139]

Bonne année à toi aussi.

J'ai bien pensé au SORT mais je n'ai pas trouvé d'exemple

tiré de la doc, un truc avec SORT:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//OUTFIL  EXEC PGM=SORT
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DISP=SHR,DSN=....
//G1STATS  DD  SYSOUT=*
//G2STATS  DD  SYSOUT=*
//G2RESTE  DD  SYSOUT=*
//SYSIN    DD    *    
 SORT FIELDS=COPY
 OUTFIL FNAMES=G1STATS,INCLUDE=(3,3,CH,EQ,C'001')
 OUTFIL FNAMES=G2STATS,INCLUDE=(3,3,CH,EQ,C'002')
 OUTFIL FNAMES=G2RESTE,SAVE

[piboula]

Merci Bernard59139

passe une bonne journée

[Darkzinus]

Bonjour et meilleurs voeux pour cette année 2013 !

En autre utilitaire qui fait la même chose tu as l'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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
//SORT     EXEC PGM=ICETOOL                                     
//TOOLMSG  DD SYSOUT=*                                          
//DFSMSG   DD SYSOUT=*                                          
//ENTREE   DD DISP=SHR,DSN=...            
//S0       DD DSN=...,                  
//            DISP=(),                          
//            DCB=(),               
//            SPACE=(),UNIT=3390                 
//S1       DD DSN=...,                  
//            DISP=(),                          
//            DCB=(),               
//            SPACE=()UNIT=3390 
//S2       DD DSN=...,                  
//            DISP=(),                          
//            DCB=(),               
//            SPACE=()UNIT=3390   
//S3       DD DSN=...,                  
//            DISP=(),                          
//            DCB=(),               
//            SPACE=()UNIT=3390   
//S4       DD DSN=...,                  
//            DISP=(),                          
//            DCB=(),               
//            SPACE=()UNIT=3390                   
//INDDCNTL DD *                                                 
   SORT FIELDS=COPY                         
   OUTFIL FNAMES=(S0),INCLUDE=(3,3,CH,EQ,C'000')
   OUTFIL FNAMES=(S1),INCLUDE=(3,3,CH,EQ,C'001')  
   OUTFIL FNAMES=(S2),INCLUDE=(3,3,CH,EQ,C'002')  
   OUTFIL FNAMES=(S3),INCLUDE=(3,3,CH,EQ,C'003')            
   OUTFIL FNAMES=(S4),SAVE                                      
/*                                                              
//TOOLIN   DD  *                                                
   COPY FROM(ENTREE) TO(S0,S1,S2,S3,S4) USING(INDD)                      
/*                                                              
//*

(Je ne connais pas la limite du nombre de fichiers de sortie possibles, je suis allé jusqu'à 10)