Concaténer 2 fichiers en ayant les colonnes jointes

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:

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

Evoution du pb

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:

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 ?

Evolution du pb 2

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:

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 ?

Bonjour

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

a+

Citation:

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 ?

Merci pour la réponse

[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 ?

Citation:

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 ?

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.

Citation:

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.

Citation:

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 ...

Citation:

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:

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

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:

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+

pb résolu

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:

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                                                     
/*