[JCL] Tri particulier [Résolu]

[Agent_Nivek]

Bonjour à tous,

j'ai besoin de faire un tri particulier dans un fichier, c'est-à-dire que j'ai une zone et je veux mettre en premier celles qui ont la valeur V1, puis celles qui ont las valeur V2 etc...., sachant qu'il n'y a pas forcement d'ordre dans les Vn.

Est-ce possible par JCL? Si oui comment?

Je vous remercie par avance.

[Luc Orient]

L'instruction de contrôle ALTSEQ du SORT permet de modifier l'ordre des caractères dans la réprésentation EBCDIC.

Par contre, elle ne s'applique qu'à un seul caractère, si votre zone en comporte plusieurs ça peut être plus compliqué ...

Donnez-nous un exemple de ce que vous voulez.

....

[Agent_Nivek]

Bonjour,

Alors en fait c'est simple, ce sont des listes de compte et on me demande de les trier suivant une catégorie (compte de dépôt, épargne liquide, etc...). Le problème étant que cette catégorie se définie suivant le code produit qui est un X(4) et par exemple un compte de dépôt à un code 0004 alors que le premier des épargne liquide a un code 0000.

En fait j'ai deux solutions : soit je peux trier par JCL et dans ce cas je n'ai pas beaucoup de modif. Soit je dois ajouter dans mes programmes un code de tri secondaire qui va me permettre d'ordonnancer ces produits.

[Julien Del]

En 2 steps cela devrait fonctionner
D'abord OUTFIL pour créer le nombre de fichiers correspondant aux catégories voulues
puis un IEBGENER pour concaténer les fichiers dans l'ordre voulu

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//SERV0030 EXEC PGM=SORT                                              
//SYSOUT   DD SYSOUT=*                                                
//SORTIN   DD  DISP=SHR,DSN=fichier-entrée 
//OUT1     DD  DISP=(,CATLG,DELETE),SPACE=(CYL,(1,5),RLSE),           
//             DCB=*.SORTIN,                                          
//             DSN=fichier-cat1                      
//OUT2     DD  DISP=(,CATLG,DELETE),SPACE=(CYL,(1,5),RLSE),           
//             DCB=*.SORTIN,                                          
//             DSN=fichier-cat2                     
//OUT3     DD  DISP=(,CATLG,DELETE),SPACE=(CYL,(1,5),RLSE),           
//             DCB=*.SORTIN,                                          
//             DSN=fichier-reste          
//SYSIN    DD    *                                            
              SORT FIELDS=COPY                                
              OUTFIL INCLUDE=(29,4,CH,EQ,C'0004'),               
                                                 FNAMES=OUT1  
              OUTFIL INCLUDE=(29,4,CH,EQ,C'0000'),               
                                                 FNAMES=OUT2  
              OUTFIL SAVE,FNAMES=OUT3                         
//*

Code :

1
2
3
4
5
6
7
8
//S010IEB  EXEC PGM=IEBGENER                                   
//SYSPRINT DD SYSOUT=*                                         
//SYSUT1 DD DISP=SHR,DSN=fichier-cat1 
//            DD DISP=SHR,DSN=fichier-cat2 
//            DD DISP=SHR,DSN=fichier-reste
//SYSUT2 DD   DISP=(,CATLG,DELETE),SPACE=(CYL,(5,50),RLSE),    
//            DCB=*.SYSUT1,                                    
//            DSN=fichier-trié

[Homer-ac]

Si il y a un filler dans le fichier, il très facile de gérer ce problème avec INREC dans un simple sort, sinon ICETOOL est plus adapté en passant par un fichier CTRL.
Si on suppose le code produit sur 4 en col. 10, un filler en dernière position = 80 (que l'on va donc pouvoir modifier en entrée de tri) et le reste du critère de tri sur 10 octets derrière le code produit ça donne :

Code :

1
2
3
4
5
6
7
8
//SYSIN    DD  *                                                 
 SORT FIELDS=(80,1,CH,A,10,14,CH,A) 
 INREC   IFTHEN=(WHEN=(10,4,CH,EQ,C'0004'),OVERLAY(80:C'1')),    
         IFTHEN=(WHEN=(10,4,CH,EQ,C'0000'),OVERLAY(80:C'2')),    
         IFTHEN=(WHEN=NONE,OVERLAY(80:C'9'))                     
 OUTREC FIELDS=(1,79,C' ')                                       
//*

On aura les 0004 au début, puis les 0000, puis le reste

[Agent_Nivek]

Bonjour,

merci à vous pour ces réponses, c'est parfait.