Discussion :

[Aluminium_Overcast]

Bonjour à tous,

voici mon petit soucis (à priori j'ai pas trouvé de cas similaire sur le forum ?), j'ai un fichier qui se présente ainsi :

Code :

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

1
2
3
4
5
6
AAZZZZZZ20120613
AAZZZZZZ20100304
BBZZZZZZ20100305
AAZZZZZZ20110504
FFZZZZZZ20111004
BBZZZZZZ20120409

j'aimerais, via un seul step de tri, opérer un tri ascending sur les 2 premiers caractères tout en ne conservant que celui dont la date est la plus récente.

Le résultat serait alors :

Code :

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

1
2
3
AAZZZZZZ20120613
BBZZZZZZ20120409
FFZZZZZZ20111004

Dans l'absolu je peux le faire sur deux steps, mais ça ne m'arrange pas des masses, je suppose qu'il y a sûrement moyen de le faire via ICETOOL ?

Merci d'avance de vos réponses.

[coderetour0]

salut,

à priori j'ai pas trouvé de cas similaire sur le forum ?

c'est chose faite maintenant

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
//carte job ...                                                      
//       EXEC PGM=ICETOOL                                            
//TOOLMSG DD SYSOUT=*                                                
//DFSMSG  DD SYSOUT=*                                                
//F1      DD *                                                       
AAZZZZZZ20120613                                                     
AAZZZZZZ20100304                                                     
BBZZZZZZ20100305                                                     
AAZZZZZZ20110504                                                     
FFZZZZZZ20111004                                                     
BBZZZZZZ20120409                                                     
//OUT     DD SYSOUT=*                                                
//TOOLIN  DD *                                                       
 SPLICE FROM(F1) TO(OUT) ON(1,2,CH) WITH(3,14) KEEPNODUPS USING(CTL1)
//CTL1CNTL DD *                                                      
 SORT FIELDS=(1,2,A,9,4,A,13,2,A,15,2,A),FORMAT=CH

++

[Aluminium_Overcast]

Nickel, c'est parfait !

[bernard59139]

Ma solution, très voisine du collègue:

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
//LISTDEF EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//OU01 DD SYSOUT=*
//IN01 DD *
AAZZZZZZ20120613
AAZZZZZZ20100304
BBZZZZZZ20100305
AAZZZZZZ20110504
FFZZZZZZ20111004
BBZZZZZZ20120409
//TOOLIN DD *
 SELECT FROM(IN01) TO(OU01)  ON(1,2,CH) LAST USING(CTL1)
/*
//CTL1CNTL DD *
 SORT FIELDS=(1,2,A,9,8,A),FORMAT=CH
//*
//* NODUPS/HIGHER(X)/LOWER(Y)/EQUAL(V)/FIRST/LAST/FIRSTDUP/LASTDUP
//*

[Luc Orient]

Ma solution, très voisine du collègue:

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
//LISTDEF EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//OU01 DD SYSOUT=*
//IN01 DD *
AAZZZZZZ20120613
AAZZZZZZ20100304
BBZZZZZZ20100305
AAZZZZZZ20110504
FFZZZZZZ20111004
BBZZZZZZ20120409
//TOOLIN DD *
 SELECT FROM(IN01) TO(OU01)  ON(1,2,CH) LAST USING(CTL1)
/*
//CTL1CNTL DD *
 SORT FIELDS=(1,2,A,9,8,A),FORMAT=CH
//*
//* NODUPS/HIGHER(X)/LOWER(Y)/EQUAL(V)/FIRST/LAST/FIRSTDUP/LASTDUP
//*

Je préfère cette solution car je trouve l'opérateur SELECT plus conforme au problème posé et plus simple à lire aussi ... J'allais poster quasiment la même solution avec l'option FIRST et en triant en décroissant sur la date ... Mais bon c'est vrai que toutes ces solutions sont très proches ...

[coderetour0]

je préfère moi aussi la solution de Bernard ... parce que tout simplement plus simple ! et donc plus fiable !

++