Discussion :

[RICO6101]

Bonjour,

J'aimerai savoir s'il existe un moyen (utilitaire ibm, REXX, ..) pour remplacer une chaine de caractère par une autre dans tous les membres d'un PDS.

Merci d'avance pour vos réponses.

[Lemmings1406]

Eh oui il existe un moyen bien simple, ci dessous le JCL. Il est préférable de faire un passage en CHECK, ainsi, tu pourras vérifier que les changements que tu veux faire sont bons et ensuite, tu passes en UPDATE.

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
//*======================================================= 
//* EN PARM : CHECK ===> VERIFICATION                                  
//*           UPDATE ===> MISE AJOUR                                   
//*=======================================================
//PROCLIB EXEC PGM=IPOUPDTE,                                           
//*             PARM='UPDATE'                                           
//               PARM='CHECK'                                            
//SYSPRINT DD  SYSOUT=*                                                
//àINST0   DD  DISP=SHR,DSN=BIBLI1                          
//àINST1   DD  DISP=SHR,DSN=BIBLI2                         
//àINST12  DD  DISP=SHR,DSN=BIBLI12                          
//SYSIN    DD  *                                                       
Chaine_à_remplacer<Nouvelle_chaine<<                                 
TOTO.TATA.**<TOT%.TITI.**<<

[benchab]

des infos ici:

http://www.developpez.net/forums/d92...mble-data-set/

[Peut-êtreUneRéponse]

En complément, s'il est disponible, on peut aussi utiliser File-AID en mode batch. Il permet par rapport aux solutions précédentes d'appliquer les modifications sur des membres précis, ou avec un motif spécifique grace à des caractères joker.

Un exemple où l'on remplace 'DB2D' par 'DBG2' et 'S2500' par 'S8200' dans tous les membres du PDS PDS.A.CHECKER commençant par STTB :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//STEPFA   EXEC PGM=FILEAID,REGION=4M   
//STEPLIB  DD  DISP=SHR,DSN=SYS2.FA.LOAD
//SYSPRINT DD  SYSOUT=*                 
//SYSLIST  DD  SYSOUT=*                 
//DD01     DD  DSN=PDS.A.CHECKER,     
//             DISP=OLD                 
//SYSIN    DD  *                        
$$DD01  UP EA=(1,0,C'DB2D",C'DBG2'),         
           EA=(1,0,C'=S2500',C'S8200'),     
           MEMBERS=STTB                     
/*

La même chose pour tous les membres :

Code :

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

1
2
3
4
5
6
                 
//SYSIN    DD  *                        
$$DD01  UP EA=(1,0,C'DB2D",C'DBG2'),         
           EA=(1,0,C'=S2500',C'S8200'),     
           MEMBERS=ALL 
/*

File-AID en mode batch permet d'effectuer bien d'autres travaux très puissants. Compulser la documentation complète depuis chez moi sur cet article : File-AID/MVS Batch Reference Manual

.