variabiliser pour une sauvegarde

[sam01]

Bonjour à tous,

j'ai la sauvegarde suivante d'un catalogue :

Code :

1
2
3
4
5
6
7
8
9
10
11
12

//TEST1  EXEC PGM=IDCAMS                                
//SYSPRINT DD SYSOUT=*                                   
//IN       DD DSN=CATALOG.MVS.TEST1,DISP=SHR       
//RECEIVE  DD DSN=FIC.CAT,UNIT=VTS2,    
//         DISP=(,CATLG),LABEL=(1,SL)                     
//SYSIN    DD *                                          
 EXPORT CATALOG.MVS.TEST1        -                 
        INFILE(IN)                     -                 
        OUTFILE(RECEIVE)  TEMPORARY                      
/*

Mon souci est le suivant, lorsqu'il y a montée de version, le nom du catalogue change et devient CATALOG.MVS.TEST2

Comment anticiper ça ?

[BernardBZH]

Bonjour Sam01

En farfouillant sur le forum, je tombe sur cette demande de ta part. Ca me fait penser à nos derniers échanges sur la prise en compte de variables symboliques en SYSIN.

Dans ce cas présent, tu pourrais avoir une PROC avec un premier STEP pour créer un fichier temporaire de trois lignes que tu exploiterais dans ta SYSIN en entrée de l'IDCAMS.

[sam01]

Bonjour BernardBZH,

je te remercie pour ta réponse.

J'ai tout simplement fait un step en amont qui vérifie la présence du fichier en question. S'il n'est pas présent, c'est forcément l'autre. Avec les Code Conditions qui vont bien. Ca fonctionne.

[BernardBZH]

Bonjour Sam01,

En effet c'est sûrement plus simple. Pour satisfaire ma curiosité et pour la culture générale, comment as-tu codé le step dont tu parles ?

[sam01]

Voici :

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
//*------------------------------------------------------------------- 
//VERIFEXA EXEC PGM=IDCAMS                                             
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD *                                                        
  LISTC ENT('CAT.MVS.VSYS001')                                 
          IF LASTCC GT 0 THEN SET MAXCC = 4                            
/*                                                                     
//*------------------------------------------------------------------- 
//S90A EXEC PGM=IDCAMS,COND=(0,EQ,VERIFEXA)                            
//SYSPRINT DD SYSOUT=*                                                 
//IN      DD DSN=CAT.MVS.VSYS002,DISP=SHR                      
//RECEIVE  DD DSN=XXXXX.YYYYY.VSYS002,DISP=(,CATLG,DELETE),    
//        UNIT=VTS2,LABEL=(8,SL),VOL=REF=XXXXX.YYYYY.ZRL    
//SYSIN    DD DSN=&VVENVIR..PARAM(PPPPPPP),DISP=SHR                   
//*------------------------------------------------------------------- 
//S90B EXEC PGM=IDCAMS,COND=(0,NE,VERIFEXA)                            
//SYSPRINT DD SYSOUT=*                                                 
//IN      DD DSN=CAT.MVS.VSYS001,DISP=SHR                      
//RECEIVE  DD DSN=XXXXX.YYYYY.VSYS001,DISP=(,CATLG,DELETE),    
//        UNIT=VTS2,LABEL=(8,SL),VOL=REF=XXXXX.YYYYY.ZRL    
//SYSIN    DD DSN=TTTT.PARAM(OOOOOO),DISP=SHR                   
//*-------------------------------------------------------------------

[BernardBZH]

Merci Sam.