BIB sur 2 fichiers

**walacouper** · 09/07/2009, 14h47

Bonjour,

c'est urgent :

bon j'ai deux fichiers ( fichier1 : 1600 ) ( fichier2 : 2000)

je voulais faire un bib sur les deux fichiers afin d'extraire la difffrence des enregistrements et la faire enregister dans un autre fichier

avez vous une idéée ,

merci

**Homer-ac** · 09/07/2009, 17h34

Au plus simple, tu peux retravailler le résultat d'un SUPERC (le 3.13 habituel sous TSO, mais ça peut s'exécuter en batch, c'est le même utilitaire que pour le 3.14).
Tu bornes la comparaison sur la longueur du < enreg. par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//*-------------------------------------------------------------*    
//* SUPERC - COMPARAISON IRSUPC -CF - ISPF USEG GUIDE VOL.2 (ISPU250)
//*-------------------------------------------------------------*    
//SUPERC  EXEC PGM=ISRSUPC,PARM=(CHNGL,LINECMP,                      
//            ' SEQ',                                                
//            '')                                                    
//OLDDD    DD  DISP=SHR,DSN=MON.FICHIER.NO1                          
//NEWDD    DD  DISP=SHR,DSN=MON.FICHIER.NO2                          
//OUTDD    DD  SYSOUT=*                                              
//SYSIN    DD  *                                                     
CMPCOLM 1:1600                                                         
//*

nb. Tu auras bien les lignes en différence mais pas les différences, surtout si ça ne porte pas sur le début du fichier. Mais au moins le SUPERC fait le plus difficile, donner les lignes en écart et se recaller si insert ou suppression de lignes. Ces infos simplifient pas mal un retraitement spécifique en aval.
Voir aussi si un autre produit ne fournit pas qque chose comme ça sur ton site. Cortex par exmple fournit un utilitaire de comparaison plus fin.

**walacouper** · 09/07/2009, 17h46

oui mais les fichies que j'ai se trouve sur un site au je peux livré que des BIB100 ( en assembleur ). mais je ne peux pas livrée des batchs

**Homer-ac** · 09/07/2009, 17h55

On a croisé nos réponses alors que je complétais, tu peux détailler ? Je ne saisis pas bien le pb.

**walacouper** · 09/07/2009, 18h05

alors j'ai deux fichier sur un site

je veux utiliser un bib100 pour les comparé et ecrire le résultat sur un autre fichier qui sera traiter par un JOB .

le problème c'est que je ne sais pas sur TSO ets ce qu'il existe cet option uo non , tous ce que j'ai un le superc mais le résultat ne prend pas la meme forme que les 2 fichiers en entrès .

Cordialement

**Homer-ac** · 10/07/2009, 14h36

J'ai attendu pour voir si qqun avait une autre idée, le besoin n'est pas clair, à ma connaissance 'bib100' n'est pas un terme MVS.
SUPERC est un utilitaire puissant et permet pas mal de choses mais reste fondamentalement llimité pour la sortie à 203 caractères via le paramêtre LONGLN (cf doc. SC34-4823-05).
Donc il te faut retraiter le résultat pour relire le fichiers, sélectionner les lignes en sortie du SUPERC et écrire ton fichier delta. REXX, COBOL ou tout autre langage, Comme indiqué auparavant, à mon avis tu ne couperas pas à un programme de retraitement, sauf à choisir de réécrire un équivalent SUPERC mais ce serait nettement plus hard, même en REXX sauf si les 2 fichiers ont le même nombre de lignes.
Sinon, je verrais bien un ISRSUPC pour sortir un fichier des comparaisons, relu ensuite avec les fichiers d'origine par un REXX ou autre pour obtenir ce que tu veux (3 cas à gérer: MAJ, insertions, suppressions). Le fichier résultant d'indiquant les cas et les lignes en écart du fichier OLD et du NEW, un petit REXX devrait sans trop de difficultés gérer ça.

**bernard59139** · 10/07/2009, 15h34

Bonjour

je ne sais pas ce qu'est BIB (ou BIB100 ou autres...).

Si le besoin est d'extraire les diffrérentes lignes d'un fichier qui ne sont pas présentes dans un autre fichier, il faut passer :

soit par un programme spécifique
soit par un utilitaire style INSYNC (FILEAID, je ne connais pas)

Que je sache, dans le MVS de base, il n'y a rien.

Il y a des trucs possible avec le tri; mais la mise en oeuvre est assez complexe à mon gout. il faut chercher dans les forums de langue anglaise.