aux amateurs de Mainframe (le pluriel est sans doute de trop )
 
Je lance une bouteille à la mer qui ne me reviendra pas vide j'espère    
 
Problème : je dois exporter des compte-rendus de jobs de SAR dans un fichier sequentiel mais je dois prendre les 3 derniers. Pour les jobs tournant une fois par jour pas de blème, le job suivant fonctionne :
 
//*--------------------------------------------------------  
//STEP1 EXEC PGM=SARBCH                                      
//SYSPRINT DD SYSOUT=*                                        
//MMBR1 DD DSN=SSHLPR2.LISTE.OUT1,                            
//         DISP=(MOD,CATLG,),                                
//         SPACE=(CYL,(1,10),RLSE),DSORG=PS,                  
//         RECFM=FB,LRECL=80,BLKSIZE=0                        
//*                                                          
//SYSIN DD *                                                  
/DBASE NAME=SAR.SARPROD                                      
/PRINT ID=ERCO0CPE GEN=-0 DDNAME=MMBR1                        
/PRINT ID=ERCO0CPE GEN=-1 DDNAME=MMBR1                        
/PRINT ID=ERCO0CPE GEN=-2 DDNAME=MMBR1                        
/*                                                            
 
Le pb se pose avec les jobs tournant plusieurs fois par jour : le JCL ci-dessus m'exporte le dernier compte-rendu (gen=-0), mais après passe au jour précédent. Résultat : je n'ai pas les 3 derniers compte-rendus du job ERCO0CPE mais ceux des 3 derniers jours (pour gen=-1 il me prend le 1er compte-rendu après la sauvegarde quotidienne SAR)
 
j'ai essayé avec SEQ=-1, ARCH=-1, DATE... sans succès    
 
si quelqu'un a une idée pour me sauver de la doc IBM...:whistle:

Bon j'ai trouvé en fait il faut simplement combiner la génération et la séquence avec un truc du genre :
 
//*--------------------------------------------------------  
...
//SYSIN DD *  
/DBASE NAME=SAR.SARPROD  
/PRINT ID=ERCO0CPE GEN=-0,SEQ=-1 DDNAME=MMBR1  
/PRINT ID=ERCO0CPE GEN=-0,SEQ=-2 DDNAME=MMBR1  
/PRINT ID=ERCO0CPE GEN=-0,SEQ=-3 DDNAME=MMBR1  
/PRINT ID=ERCO0CPE GEN=-1,SEQ=-1 DDNAME=MMBR1  
...