Supprimer des objets de plus de 40 jours

[XSAMMY]

Je voudrai supprimer des objets dans une bibliothèque et ne garder que ceux des 5 derniers jours.

Vu la quantités (plus de 50000) je voudrai savoir comment le faire par CL ou en SBMJOB

Quelqu'un a t'il une idée ? je n'ai pas envie de faire option 4 + entrée 500000 fois

[gmenu]

Bonjour,
Il y surement des outils plus performants, mais en CLP on peut utiliser :
- DSPOBJD de tous les objets de la lib avec sortie OUTFILE
- une petite boucle de lecture du fichier
- analyse de la date de chaque objet (création/modification ou dernier accès suivant ton besoin), pour sélection par comparaisaon avec la date du jour - n jours
- DLTOBJ si sélectionné

[XSAMMY]

Merci,

Je sais que je suis fainéant (ou pas d'effort) pourrais-tu me faire un petit CLP histoire de voir car je bloque.

[cmasse]

Voici un exemple de structure de CL :

Code : Tout sélectionner

PGM                
DCLF QADSPOBJ      
DSPOBJD    OBJ(MABIB/*ALL) OBJTYPE(*ALL) DETAIL(*FULL) +  
             OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJ1)      


OVRDBF QADSPOBJ QTEMP/DSPOBJ1


LECTURE:    RCVF /* LECTURE */                                        
                   MONMSG CPF0864 EXEC(GOTO FIN) 
                              
             /* faire ici le test et passer la bonne commande */

             GOTO LECTURE                                              

FIN:      
             ENDPGM                   

[XSAMMY]

Merci pour le CL. E n fait j'ai fait au plus simple. Suppression par groupe de nom
==> WRKOBJ [bib]/[débutnomfichier*]

Puis DLTF [bib]/[débutnomfichier*] en SBMJOB car je devais garder 40 jours

et c'est tout bon