Discussion :

[eliepoinT]

Bonjour,

Je dois extraire tous les enregistrements d'un fichier F1 dont le matricule est un de ceux contenu dans un second fichier F2. Au debut on m'a dit de faire un Cobol avec un tri etc.... Mais que je trouve qu'un JCL est plus approprié et surtout plus simple.
Donc j'ai pensé à faire une "jointure" avec le SORT et les JOINKEYS, en théorie ça fonctionne (super bien d'ailleurs ) mais le soucis se situe sur la clé (le matricule) qui est en représentation hexadécimale dans F1 et en étendu dans F2.

D'ou ma question comment faire en JCl pour convertir une zone étendu en héxa?

Merci d'avance,

[eliepoinT]

Je suis sur la piste d'un ICETOOL COPY avec un OUTREC qui irait bien mais je ne trouve pas le bon paramétrage pour faire rentrer les 9 chiffres du matricule dans 5 octets...
Si quelqu'un a une idée je prends!

[bernard59139]

Bonjour

pas besoin d'ICETOOL

Avec le tri, ceci devrait le faire:

Code :

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

 OUTFIL OUTREC=(1,9,zd,to=pd,length=4)

fait de mémoire, à vérifier avec la doc

[eliepoinT]

Merci Bernard, ta mémoire est bonne c'est bien comme ça qu'il faut coder le OUTREC cf le lien de la doc: http://www-01.ibm.com/support/knowle...t.htm%23outcst

Par contre je ne comprend pas bien ce que tu entend par "pas besoin de ICETOOL", où ajouter le OUTREC dans ce tri?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//STEPJOIN EXEC PGM=SORT                              
//SYSOUT   DD SYSOUT=*                                
//IN01     DD DSN=TEST.ICETOOL.TRI1,DISP=SHR     
//           DD DSN=TEST.ICETOOL.TRI1BIS,DISP=SHR  
//           DD DSN=TEST.ICETOOL.TRI1TER,DISP=SHR  
//IN02     DD DSN=TEST.ICETOOL.TRI2HEXA,DISP=SHR 
//SORTOUT  DD DSN=TEST.ICETOOL.TRIRESUL,DISP=SHR 
//SYSIN    DD *                                       
  JOINKEYS F1=IN01,FIELDS=(28,5,A)                    
  JOINKEYS F2=IN02,FIELDS=(1,5,A)                     
  REFORMAT FIELDS=(F1:1,200)                          
  OPTION COPY                                         
/*

[escartefigue]

Ajoutez les cartes DD JNFnCNTL avec n=n° du fichier (1 ou 2 dans votre cas), et une carte inrec
Exemple donné ici :

http://www-01.ibm.com/support/knowle...3wq962?lang=fr

[eliepoinT]

Merci escartefigue c'est pas exactement comme ce que tu conseils mais ça fonctionne

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
//STEP1   EXEC PGM=ICETOOL                           
//TOOLMSG  DD SYSOUT=*                                
//DFSMSG   DD SYSOUT=*                                
//IN01     DD DSN=TEST.ICETOOL.TRI1,DISP=SHR     
//         DD DSN=TEST.ICETOOL.TRI1BIS,DISP=SHR  
//         DD DSN=TEST.ICETOOL.TRI1TER,DISP=SHR  
//IN02     DD DSN=TEST.ICETOOL.TRI2,DISP=SHR     
//TMP      DD DSN=&&TEMP1                             
//SORTOUT  DD DSN=TEST.ICETOOL.TRIRESUL,DISP=SHR 
//TOOLIN   DD *                                       
  COPY  FROM(IN02) TO(TMP) USING(CPY1)                
  SORT JKFROM TO(SORTOUT) USING(CPY2)                 
/*                                                    
//CPY1CNTL DD *                                       
  OUTREC BUILD=(1,9,ZD,TO=PD)                         
//CPY2CNTL DD *                                       
  JOINKEYS F1=IN01,FIELDS=(28,5,A)                    
  JOINKEYS F2=TMP,FIELDS=(1,5,A)                      
  REFORMAT FIELDS=(F1:1,200)                          
  OPTION COPY                                         
/*

Petite question @Bernard pourquoi ne pas utiliser ICETOOL ? Moins lourd que SORT?

[bernard59139]

ICETOOL est une "surcouche" du SORT.
cette surcouche apporte pas mal de fonctionnalités.

Personnellement, je n'utilise que très rarement ICETOOL. Et quand j'utilise, c'est pour les fonctionalités ICETOOL, pas pour faire du SORT dans ICETOOL (ce qui, à terme, apporte souvent son lot d'ennuis).

Sans testé, et juste avec le lien fourni par le collègue, ton icetool devient:

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
//STEP1   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//IN01     DD DSN=TEST.ICETOOL.TRI1,DISP=SHR
//         DD DSN=TEST.ICETOOL.TRI1BIS,DISP=SHR
//         DD DSN=TEST.ICETOOL.TRI1TER,DISP=SHR
//IN02     DD DSN=TEST.ICETOOL.TRI2,DISP=SHR
//SORTOUT  DD DSN=TEST.ICETOOL.TRIRESUL,DISP=SHR
//JNF2CNTL DD *
  INREC BUILD=(1,9,ZD,TO=PD)
//SYSIN DD *
  JOINKEYS F1=IN01,FIELDS=(28,5,A)
  JOINKEYS F2=IN02,FIELDS=(1,5,A)
  REFORMAT FIELDS=(F1:1,200)
  OPTION COPY
/*

En plus, économie du fichier &tmp.

[eliepoinT]

Effectivement vu comme ça c'est plus simple avec juste SORT.
Merci pour tout==>

[eliepoinT]

J'ai encore un petit soucis, une fois l'INREC et la jointure faite je dois finalement reformater les enregistrements: en sélectionner certaines parties et les transformer de l'hexa vers de l'étendu.
Pour cela j'utilise REFORMAT FIELDS mais on ne peut faire de conversion PD,TO=ZD directement dans le REFORMAT. J'ajouterai bien une carte OUTREC mais je ne vois pas comment faire... escartefigue m'a donné la solution pour les fichiers en entré mais pour ceux en sortie...

Dans ce JCL:

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
//STEP1   EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                              
//IN01     DD DSN=TEST.ICETOOL.TRI1,DISP=SHR                   
//IN02     DD DSN=TEST.ICETOOL.NUGER,DISP=SHR                  
//SORTOUT  DD DSN=TEST.ICETOOL.TRIRESUL,DISP=SHR               
//JNF2CNTL DD *                                                     
  INREC BUILD=(1,9,ZD,TO=PD)                                        
//SYSIN DD *                                                        
  JOINKEYS F1=IN01,FIELDS=(28,5,A)                                  
  JOINKEYS F2=IN02,FIELDS=(1,5,A)                                   
  REFORMAT FIELDS=(F1:28,5,                                         
                      36,64,                                        
                      25,3,                                         
                      110,24,                                       
                      103,3,   
                      106,4,    
                      1,4,      
                      5,3)      
  OPTION COPY 
/*

Il faudrait que je puisse ajouter cet OUTREK si possible en me passant de fichier intermédiaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//CPY1CNTL DD *                          
  OUTREC BUILD=(1:1,5,PD,TO=ZD,LENGTH=10,
         11:10,64,                       
         75:74,3,PD,TO=ZD,LENGTH=6,      
         81:77,24,                       
         105:101,3,PD,TO=ZD,LENGTH=6,    
         111:104,4,PD,TO=ZD,LENGTH=8,    
         119:108,4,PD,TO=ZD,LENGTH=8,    
         127:112,3,PD,TO=ZD,LENGTH=6)    
/*

[eliepoinT]

Question bête réponse bête: le outrec va dans la sysin à la suite de la jointure:

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
//STEP1   EXEC PGM=SORT                                            
//SYSOUT   DD SYSOUT=*                                             
//IN01     DD DSN=TEST.ICETOOL.TRI1,DISP=SHR                              
//IN02     DD DSN=TEST.ICETOOL.NUGER,DISP=SHR                        
//SORTOUT  DD DSN=TEST.ICETOOL.TRIRESUL,DISP=SHR                           
//JNF2CNTL DD *                                                    
  INREC BUILD=(1,9,ZD,TO=PD)                                       
/*                                                                 
//SYSIN DD * 
  JOINKEYS F1=IN01,FIELDS=(28,5,A)        
  JOINKEYS F2=IN02,FIELDS=(1,5,A)         
  REFORMAT FIELDS=(F1:28,5,               
                      36,64,              
                      25,3,               
                      110,24,             
                      103,3,              
                      106,4,              
                      1,4,                
                      5,3)                
  OPTION COPY                             
  OUTREC BUILD=(1:1,5,PD,TO=ZD,LENGTH=10, 
         12:6,32,                         
         45:38,32,                        
         78:70,3,PD,TO=ZD,LENGTH=6,       
         85:73,24,                        
         110:97,3,PD,TO=ZD,LENGTH=6,      
         117:100,4,PD,TO=ZD,LENGTH=8,     
         126:104,4,PD,TO=ZD,LENGTH=8,     
         135:108,3,PD,TO=ZD,LENGTH=6)     
/*