Problème de tri

[sam01]

Bonjour à tous,

je tente de faire le tri suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13

//S60      EXEC PGM=SORT                                    
//SYSOUT   DD SYSOUT=*                                      
//SORTIN   DD DISP=SHR,DSN=W.X.TEST     
//SORTOUT  DD DISP=SHR,DSN=W.X.TEST2     
//SYSIN    DD *                                             
 SORT FIELDS=(5,20,CH,A),EQUALS                             
 INCLUDE COND=((20,1,CH,EQ,C'.',AND,10,2,CH,NE,C'00'),AND,  
      (5,5,CH,EQ,C'9894A',OR,5,5,CH,EQ,C'9894B',OR,         
       5,5,CH,EQ,C'9894C',OR,5,5,CH,EQ,C'9894D',OR,         
       5,5,CH,EQ,C'9894E'))                                 
 OUTREC FIELDS=(5,5,C';',41,11,C';',54,41,C';',98,38,C';')

les fichiers en entrée et en sortie sont en VB, 290 et j'ai le message d'erreur suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
- CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 10:08 ON THU NO
 OPTION VLSHRT                                                        
 SORT FIELDS=(5,20,CH,A),EQUALS                                       
 INCLUDE COND=((20,1,CH,EQ,C'.',AND,10,2,CH,NE,C'00'),AND,            
      (5,5,CH,EQ,C'9894A',OR,5,5,CH,EQ,C'9894B',OR,                   
       5,5,CH,EQ,C'9894C',OR,5,5,CH,EQ,C'9894D',OR,                   
       5,5,CH,EQ,C'9894E'))                                           
 OUTREC FIELDS=(5,5,C';',41,11,C';',54,41,C';',98,38,C';')            
VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
RECORD TYPE IS V - DATA STARTS IN POSITION 5                          
MISSING RDW OR DATA FOR *OUTREC : REASON CODE 03, IFTHEN 0            
END OF DFSORT

Merci d''avance pour votre aide.

[bernard59139]

tu n'as pas inclus les messages "ICE****", très important pour mettre le doigt sur la source de l'erreur.
A vu de nez, l'erreur vient de là:

Code :

MISSING RDW OR DATA FOR *OUTREC : REASON CODE 03, IFTHEN 0

.

change

Code :

OUTREC FIELDS=(5,5,C';',41,11,C';',54,41,C';',98,38,C';')

par

Code :

OUTREC FIELDS=(1,5,5,5,C';',41,11,C';',54,41,C';',98,38,C';')

ou ceci:

Code :

OUTREC FIELDS=(5:5,5,C';',41,11,C';',54,41,C';',98,38,C';')

[sam01]

Voici message entier :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5                          
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE805I 1 JOBNAME: MSAMDTM4 , STEPNAME: S60                                     
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                     
ICE000I J - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 10:08 ON THU NO
           OPTION VLSHRT                                                        
           SORT FIELDS=(5,20,CH,A),EQUALS                                       
           INCLUDE COND=((20,1,CH,EQ,C'.',AND,10,2,CH,NE,C'00'),AND,            
                (5,5,CH,EQ,C'9894A',OR,5,5,CH,EQ,C'9894B',OR,                   
                 5,5,CH,EQ,C'9894C',OR,5,5,CH,EQ,C'9894D',OR,                   
                 5,5,CH,EQ,C'9894E'))                                           
           OUTREC FIELDS=(5,5,C';',41,11,C';',54,41,C';',98,38,C';')            
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE201I J RECORD TYPE IS V - DATA STARTS IN POSITION 5                          
ICE251A J MISSING RDW OR DATA FOR *OUTREC : REASON CODE 03, IFTHEN 0            
ICE052I J END OF DFSORT                                                         
EFSCAN MSAMDTM4JOB01376O    CAX1  03 NOV 11

Avec ton outrec, le sort ne plante plus mais mon fichier est sortie est vide...

Pour info,

la sysin initiale était

Code :

1
2
3
4
5
SORT FIELDS=(1,20,CH,A),EQUALS                                  
INCLUDE COND=(16,1,CH,EQ,C'.',AND,(1,5,CH,EQ,C'9894A',OR,       
1,5,CH,EQ,C'9894B',OR,1,5,CH,EQ,C'9894C',OR,1,5,CH,EQ,C'9894E'))
OUTREC FIELDS=(1,5,C';',37,11,C';',50,41,C';',94,38,C';')

comme c'est du VB,jai ajouté 4 partout et même dans l'OUTREC, c'est bien ce qu'il fallait faire ?

[Pico-----]

Si ça ne plante plus, c'est que l'outrec est correct, ou du moins fonctionnel (à voir ensuite si il correspond à ce qui est désiré).

Si le fichier est vide, je pense que ça doit venir de l'INCLUDE COND : as-tu vérifier que des enregistrements validaient les conditions ? si ce n'est pas le cas, alors le fichier vide est normal.

[bernard59139]

Pour completer la réponse de Pico

avec le tri et des fichiers Variables, il faut toujours ajouter 4 par raport au Browse/Edit pour tenir compte du Rdw.

[sam01]

Bonjour bernard59139,

pourrais-tu m'expliquer cet outrec :

Code :

1
2
OUTREC FIELDS=(1,5,5,5,C';',41,11,C';',54,41,C';',98,38,C';')

Pourquoi trois 5 à la suite...

Quelle est la différence avec celui-ci :

Code :

1
2
OUTREC FIELDS=(5,5,C';',41,11,C';',54,41,C';',98,38,C';')

Merci.

[coderetour0]

je pense que dans le 1er outrec il a voulu ecrire 1,4,5,5 et non pas 1,5,5,5 pour prendre en compte le RDW qui fait 4 de long !

[bernard59139]

effectivement, je me suis trompé.
désolé