Discussion :

[bobspike]

Bonjour à tous,

Je travaille sous z/OS et je cherche à réaliser un opération de renommage via JCL. Le renommage ne porte que sur certains fichier ayant une structure particulière.

Par exemple : je veux que le PDS : TEST.ORI(CNTEST) soit renommer en TEST.ORI(PCTEST). Le tri ne porte donc que sur les PDS commençant par 'CN'

Auriez vous un exemple de JCL qui effectue ce genre d'opération ?

Merci pour vos réponses.

[coderetour0]

salut

inspire toi de ma proc rexx qui renomme les membre i* en b*

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
"ispexec lminit dataid(lib) dataset('ton_pds') enq(shrw)"
'ispexec lmopen dataid('lib') option(output)'                                
                                                                             
mbr=''                                                                       
do forever                                                                   
  'ispexec lmmlist dataid('lib') member(mbr) pattern(i*)'                    
  if rc/=0 then leave                                                        
  newmbr='B' !! substr(mbr,2)                                                
  'ispexec lmmren dataid('lib') member('mbr') newname('newmbr')'             
end                                                                          
'ispexec lmmlist dataid('lib') option(free)'                                 
                                                                             
'ispexec lmclose dataid('lib')'                                              
'ispexec lmfree dataid('lib')'

pour l'executer en batch via un jcl tu peux copier ton code rexx dans un pds temporaire avec iebgener comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//     EXEC PGM=IEBGENER      
//SYSPRINT DD SYSOUT=*            
//SYSIN    DD DUMMY               
//SYSUT2   DD DSN=&&DS1(MEM1),
//            DISP=(NEW,PASS),    
//            SPACE=(TRK,(1,,1)), 
//            RECFM=FB,LRECL=80   
//SYSUT1 DD *                     
 /* REXX */
...
...
/*

et l'appeler au step suivant avec IKJEFT01 en pensant a allouer les lib ISPF

a+