Concaténer 2 fichiers en ayant les colonnes jointes

**puntacanien** · 08/06/2017, 09h33

Bonjour,

Je suis nouveau sur le forum alors par avance excusez moi si je fais des petites erreures dans la formulation.

J'ai 2 fichiers, l'un avec des noms de fichiers et l'autre avec leurs date de création sous forme de quantième type Qaaqqq.
Dans le 1er fichier, les noms de fichiers vont jusqu'à la collone 43 au max et dans le 2ème, j'ai les quantièmes correspondants à chaque fichiers.

Je voudrai joindre ces 2 colonnes dans un même fichier avec le quantième en position 45.
Pour cela j'ai utilisé ICETOOL de la manière suivante

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
//S1    EXEC  PGM=ICETOOL                                            
//TOOLMSG DD SYSOUT=*                                                
//DFSMSG  DD SYSOUT=*                                                
//IN1 DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01               
//IN2 DD DISP=SHR,DSN=FRHPERM.DATE02                                 
//T1 DD DSN=FRHPERM.T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(NEW,CATLG),
//     LRECL=80,RECFM=FB                                             
//OUT  DD DISP=(,CATLG,DELETE),                                      
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,               
//         DSN=FRHPERM.LISTJQ                                        
//TOOLIN DD *                                                        
COPY FROM(IN1) TO(T1) USING(CTL1)                                    
COPY FROM(IN2) TO(T1) USING(CTL2)                                    
SPLICE FROM(T1) TO(OUT) ON(1,80,CH) WITH(1,43) -                     
 WITH(45,6) WITHALL KEEPBASE USING(CTL3)                             
/*                                                                   
//CTL1CNTL DD *                                                      
  INREC BUILD=(1,43)                                                 
/*                                                                   
//CTL2CNTL DD *                                                      
  INREC BUILD=(45:38,6)                                              
/*                                                                   
//CTL3CNTL DD *                                                      
  OUTFIL FNAMES=OUT,BUILD=(1,80)

J'ai comme résultat dans T1 la liste des quantièmes en position 45 mais les colonnes maiq pas les fichiers correspondants.
Dans le fichier OUT, je n'ai que les quantièmes mais je suis loin de tous les avoir.
Petite précision, je ne souhaite pas trier les fichiers, je les vex tels qu'ils ont été produits.
J'ai fouillé sur nombre de forum mais je n'arrive pas à trouver l'exemle qui correspond à mon cas.

Merci de votre aide

**puntacanien** · 08/06/2017, 11h56

Bon, après une nouvelle recherche et un nouveau test, je réussi à obtenir dans mon fichier OUT, le même nombre d'enreg que dans mon fichier T1 mais par contre je n'ai toujours que le quantième.

JE me rend compte que le SPLICE n'est peut pas approprié car il nécessite une colonne en commun, ce qui n'est pas le cas entre les 2 fichiers et que c'est pour ça qu'il ne me reste que le quantième.

Voici mon jcl modifié

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
//S1    EXEC  PGM=ICETOOL                                            
//TOOLMSG DD SYSOUT=*                                                
//DFSMSG  DD SYSOUT=*                                                
//IN1 DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01               
//IN2 DD DISP=SHR,DSN=FRHPERM.DATE02                                 
//T1 DD DSN=FRHPERM.T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(NEW,CATLG),
//     LRECL=80,RECFM=FB                                             
//OUT  DD DISP=(,CATLG,DELETE),                                      
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,               
//         DSN=FRHPERM.LISTJQ                                        
//TOOLIN DD *                                                        
COPY FROM(IN1) TO(T1) USING(CTL1)                                    
COPY FROM(IN2) TO(T1) USING(CTL2)                                    
SPLICE FROM(T1) TO(OUT) ON(1,43,CH) WITH(45,6) WITHALL KEEPBASE -    
 USING(CTL3)                                                         
/*                                                                   
//CTL1CNTL DD *                                                      
  OUTREC FIELDS=(1:1,43)                                             
/*                                                                   
//CTL2CNTL DD *                                                      
  OUTREC FIELDS=(45:38,6)                                            
/*                                                                   
//CTL3CNTL DD *                                                      
  OUTFIL FNAMES=OUT,BUILD=(1,80)                                     
/*

Selon vous, quelle option devrai-je utiliser ?

**puntacanien** · 09/06/2017, 09h53

Bonjour,

En gardant le fichier T1 et en le mettant en DISP=(MOD,PASS), j'ai tous mes enregistrements mais j'ai d'abord la liste des fichiers en position 1 et 43 de longueur puis en dessous, tous les quantième correspondants en postion 45 (comme souhaité) mais les 2 colonnes ne sont pas juxtaposées comme je le voudrai.

Voici le code utilisé

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
//S1    EXEC  PGM=ICETOOL                                          
//TOOLMSG DD SYSOUT=*                                              
//DFSMSG  DD SYSOUT=*                                              
//IN1 DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01             
//IN2 DD DISP=SHR,DSN=FRHPERM.DATE02                               
//T1 DD DSN=FRHPERM.T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)                                           
//OUT  DD DISP=(,CATLG,DELETE),                                    
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,             
//         DSN=FRHPERM.LISTJQ                                      
//TOOLIN DD *                                                      
COPY FROM(IN1) TO(T1)                                              
COPY FROM(IN2) TO(T1) USING(CTL2)                                  
COPY FROM(T1) TO(OUT) USING(CTL3)                                  
/*                                                                 
//CTL2CNTL DD *                                                    
  OUTREC FIELDS=(45:38,6)                                          
/*                                                                 
//CTL3CNTL DD *                                                    
  OUTFIL FNAMES=OUT,BUILD=(1,80)                                   
/*

Une suggestion pour juxtaposer les 2 colonnes ?

**bernard59139** · 10/06/2017, 07h26

Bonjour

utilise JOINKEY & REFORMAT, https://www.ibm.com/support/knowledg...00/joinrec.htm

a+

**Luc Orient** · 11/06/2017, 19h01

Envoyé par puntacanien

...
J'ai 2 fichiers, l'un avec des noms de fichiers et l'autre avec leurs date de création sous forme de quantième type Qaaqqq.
Dans le 1er fichier, les noms de fichiers vont jusqu'à la collone 43 au max et dans le 2ème, j'ai les quantièmes correspondants à chaque fichiers.

Je voudrai joindre ces 2 colonnes dans un même fichier avec le quantième en position 45.

Mais comment sont identifiés les fichiers dans le second fichier ?

**puntacanien** · 12/06/2017, 11h49

[QUOTE=Luc Orient;9360735]Mais comment sont identifiés les fichiers dans le second fichier ?[/QUOTE

D'abord, merci de m'avoir répondu.

Le second fichier ne contient que les quantièmes correspondants à chaque fichier.
Il n'y a pas de colonne en commun.
On m'a suggéré de faire un JOINKEY mais le joinkey a besoin de colonnes en commun et je l'avais déjà essayé.

J'ai aussi essayé le MERGE mais je n'arrive pas à trouver la bonne option pour l'instant.

Que me suggères tu ?

**puntacanien** · 12/06/2017, 11h56

Envoyé par bernard59139

Bonjour

utilise JOINKEY & REFORMAT, https://www.ibm.com/support/knowledg...00/joinrec.htm

a+

Tout d'abord, merci de m'avoir répondu, je commençais à désespérer.

J'ai déjà essayé le joinkey mais le pb est que mes fichiers n'ont pas de colonnes en commun.

Je me suis donc tourné vers le MERGE mais pour l'instant, je ne trouve pas la bonne option.

Mon 1er fichier ne contient que des noms de fichiers de la colonne 1 à 43.
Mon 2ème fichier ne contient que les quantièmes en position 38 et du type Qyyqqq

Je veux que que mon fichier final contienne mes noms de fichier en colonne 1 à 43 et le quantième en colonne 45.

As tu besoin d'info complémentaire pour me suggérer la bonne option ?

**Darkzinus** · 12/06/2017, 11h56

Sans clef entre les deux fichiers, je ne saisis pas bien comment tu constitues ton fichier de sortie ... Ou alors, il faut numéroter chaque fichier (s'ils ont bien le même nombre d'enregistrement) et joindre sur ce numéro qui sera commun aux deux fichier. De mémoire (je ne suis plus sur plateforme MVS) c'est le mot clé SEQNUM, mais à vérifier pour la numérotation.

**puntacanien** · 12/06/2017, 12h16

Envoyé par Darkzinus

Sans clef entre les deux fichiers, je ne saisis pas bien comment tu constitues ton fichier de sortie ... Ou alors, il faut numéroter chaque fichier (s'ils ont bien le même nombre d'enregistrement) et joindre sur ce numéro qui sera commun aux deux fichier. De mémoire (je ne suis plus sur plateforme MVS) c'est le mot clé SEQNUM, mais à vérifier pour la numérotation.

Bonjour,

Dans mon jcl, mon listcat liste les fichiers et leur infos.
De ce 1er fichier j'extrait
1) la liste des fichiers seuls
2) leur date de création que je triture pour le formater en quantième.

Je précise que je ne trie pas les fichiers.

J'ai donc 2 fichiers avec le même nombre d'enreg, l'un avec les fichiers et l'autre avec les quantièmes correspondants.
Dans mon 3ème message, mon jcl me crée un fichier avec d'abord la liste des fichiers et en dessous, les quantième correspondants.

Ce que je veux, c'est que les colonnes soit juxtaposées.

Cela dit, ta solution peut être intéressante, même si je dois retriturer les 2 fichiers.

Je vais assayer mais si tu as un solution plus économique, je suis preneur.

**Luc Orient** · 12/06/2017, 20h56

Envoyé par puntacanien

...
Dans mon jcl, mon listcat liste les fichiers et leur infos.
De ce 1er fichier j'extrait
1) la liste des fichiers seuls
2) leur date de création que je triture pour le formater en quantième.

Je précise que je ne trie pas les fichiers.

J'ai donc 2 fichiers avec le même nombre d'enreg, l'un avec les fichiers et l'autre avec les quantièmes correspondants.

Mais pourquoi travailler avec 2 fichiers ?

Le LISTCAT te donne le lien entre un nom de fichiers et ses caractéristiques. Ce lien est cohérent et établi. En éclatant comme tu le fais tu perds ce lien que tu dois ensuite rétablir de manière compliquée !

Ou alors quelque chose m'échappe ...

**puntacanien** · 13/06/2017, 08h36

Envoyé par Luc Orient

Mais pourquoi travailler avec 2 fichiers ?

Le LISTCAT te donne le lien entre un nom de fichiers et ses caractéristiques. Ce lien est cohérent et établi. En éclatant comme tu le fais tu perds ce lien que tu dois ensuite rétablir de manière compliquée !

Ou alors quelque chose m'échappe ...

Bonjour,

Alors peut être que je m'y prend mal mais je vais expliquer un peu mieux le contexte car il est vrai que bien que connaissant le jcl, je ne m'étais jamais livré à ce genre de manip avant.Quand je fais le listcat, je triture le fichier (en un seul step) pour ne garder que les noms de fichiers et leur date de création mais lors de cette opération, ça me le fait sur 2 lignes comme cela

nom.fic
WNER-----(NULL) CREATION--------2017.132

Alors il y peut être moyen d'avoir les 2 infos sur la même ligne et de convertir la date en quantième Qyyqqq mais comme je ne suis pas assez expert, j'ai éclaté les 2 infos avec le bout de code ci dessous.

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
//TRI01    EXEC PGM=SORT                               
//SYSPRINT DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCP     
//SORTOUT  DD DISP=(,CATLG,DELETE),                    
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80, 
//         DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01        
//SYSIN    DD *                                        
  SORT FIELDS=COPY                                     
  INCLUDE COND=(1,9,CH,EQ,C'V0NONVSAM')                
  OUTREC FIELDS=(19,80)                                
//*                                                    
//*                                                    
//TRI02    EXEC PGM=SORT                               
//SYSPRINT DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCP     
//SORTOUT  DD DISP=(,CATLG,DELETE),                    
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80, 
//         DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR02        
//SYSIN    DD *                                        
  SORT FIELDS=COPY                                     
  INCLUDE COND=(39,8,CH,EQ,C'CREATION')                
  OUTREC FIELDS=(19,80)                                
//*

S'il est possible, à partir du fichier de listcat, d'obtenir le nom de fichier et sa date de création sous forme Qyyaaa, je voudrai savoir avec quel utilitaire : IEBGENER oeut être ?

D'avance merci de ta réponse

**bernard59139** · 13/06/2017, 17h45

Amha, Traiter un listcat avec un tri, c'est assez casse-gueule. Il y a trop de cas à gérer (CLUSTER, AIX, PAGE, GDG, ....) . Sans parler d'un changement de version possible (et donc, de format).

Il existe de nombreux logiciels qui font ca très bien (file-aid, insync, PDR-Report, ..).

un exemple de ce que j'ai déjà utilisé (et abandonné):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//LISTE    EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DISP=SHR,DSN=fichier.de.listcat 
//SORTOUT  DD SYSOUT=* 
//SYSIN    DD * 
   SORT FIELDS=COPY 
   INREC IFTHEN=(WHEN=GROUP,BEGIN=(6,7,CH,EQ,C'NONVSAM'),   
                 PUSH=(130:22,44)) 
  OUTFIL VTOF, 
         INCLUDE=(42,6,CH,EQ,C'CREATION'), 
         OUTREC=(C' ',130,44,C' ',58,08)
//*

bonne journée, a+

**puntacanien** · 20/06/2017, 12h53

Merci à vous tous car grâce à vos conseils j'ai pu résoudre mon pb.

Tout d'abord en ajoutant un colonne SEQNUM à chaque fichier puis en utilisant le JOINKEY sur la colonne SEQNUM, j'ai pu obtenir la juxtapostion des noms de fichier et leur quantième créé à partir de leur date de création.

En fin de compte, ç'était simple dans le principe mais j'ai dû faire de manière empirique pour en arriver là et je n'y serai pas arrivé sans votre aide.

Voici les bouts de jcl nécéessaires.
Dans les 2 1ers step, je rajoute la colonne SEQNUM et dans le dernier, je fais le JOINKEY

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//***************************************************************
//** EXTRACTION DES NOMS DE FICHIER              ****************
//***************************************************************
//TRI01    EXEC PGM=SORT                                         
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCP               
//SORTOUT  DD DISP=(,CATLG,DELETE),                              
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,           
//         DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01                  
//SYSIN    DD *                                                  
  SORT FIELDS=COPY                                               
  INCLUDE COND=(1,9,CH,EQ,C'V0NONVSAM')                          
  OUTREC FIELDS=(19,69,70:SEQNUM,8,PD,78:C'   ')                 

//TRI04    EXEC PGM=SORT                               
//SYSPRINT DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DISP=SHR,DSN=FRHPERM.DATE02              
//SORTOUT  DD DISP=(,CATLG,DELETE),                    
//         SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80, 
//         DSN=FRHPERM.DATE03                          
//SYSIN    DD *                                        
  SORT FIELDS=COPY                                     
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(38,1,CH,EQ,C'Q'),    
                   PUSH=(45:38,6))                     
  OUTREC FIELDS=(45,6,70:SEQNUM,8,PD,78:C'   ')        


//***************************************************************
//** JOINTURE DES FICHIERS NOMS ET DATE (AU FORMAT QYYQQQ     ***
//***************************************************************
//JOINTURE EXEC PGM=SORT                                         
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT DD SYSOUT=*                                             
//IN01 DD DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01,DISP=SHR          
//IN02 DD DSN=FRHPERM.DATE03,DISP=SHR                            
//SORTOUT DD DSN=FRHPERM.T1,DISP=OLD                             
//SYSIN DD *                                                     
 JOINKEYS F1=IN01,FIELDS=(70,8,A),SORTED                         
 JOINKEYS F2=IN02,FIELDS=(70,8,A),SORTED                         
 JOIN UNPAIRED                                                   
 REFORMAT FIELDS=(F1:1,44,F2:1,6,F2:7,30)                        
 OPTION COPY                                                     
/*

Concaténer 2 fichiers en ayant les colonnes jointes

JCL - SORT

Discussions similaires

Partager

Partager