combiner deux tris en un seul [Résolu]

[sam01]

Bonjour à tous.

J'en profite pour vous souhaiter la bonne année.

Voilà, j'ai le JCL suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//TRIA  EXEC PGM=SORT                                                 
//SYSOUT   DD SYSOUT=*                                                
//SORTIN   DD DISP=SHR,DSN=X.Y.FOR                
//SORTOUT  DD DISP=SHR,DSN=X.Y.FORS               
//SYSIN DD *                                                          
 SORT FIELDS=COPY                                                     
 INCLUDE COND=(1,50,SS,EQ,C'X.A')                                
/*                                                                    
//TRIB  EXEC PGM=SORT                                                 
//SYSOUT   DD SYSOUT=*                                                
//SORTIN   DD DISP=SHR,DSN=X.Y.FOR        
//SORTOUT  DD DISP=MOD,DSN=X.Y.FORS               
//SYSIN DD *                                                          
 SORT FIELDS=COPY                                                     
 INCLUDE COND=(1,50,SS,EQ,C'X.B')                                
/*

Voilà mon but est de garder uniquement les enregistrements X.B et X.A,
mais j'en ai d'autres à garder aussi : X.C, X.D, X.E et X.F

J'aimerais s'il est possible de faire un seul step de tri car je trouve ça un peu lourd de faire un step de tri à chaque fois et mettre le fichier en sortie en DISP=MOD

Merci d'avance pour votre aide.

[yannga]

tu peux utiliser ICETOOL qui te permet de faire plusieurs chose en un seul step

[bernard59139]

bonjour
essaye:

Code :

1
2
3
4
5
6
7
8
9
//TRIB  EXEC PGM=SORT                                                 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DISP=SHR,DSN=X.Y.FOR        
//SORTOUT  DD DISP=MOD,DSN=X.Y.FORS
//SYSIN DD *
 SORT FIELDS=COPY
 INCLUDE COND=(1,50,SS,EQ,C'X.B',
            OR,1,50,SS,EQ,C'X.A')

[sam01]

Bonjour bernard59139 et un grand merci

Ca fonctionne parfaitement !