Page 1 sur 1
Supprimer des objets de plus de 40 jours
Posté : mer. 10 nov. 2010, 14:39:29
par 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
(sans texte)
Posté : mer. 10 nov. 2010, 15:06:56
par 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é
(sans texte)
Posté : mer. 10 nov. 2010, 15:40:02
par 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.
Exemple de CL
Posté : lun. 15 nov. 2010, 11:47:38
par 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
(sans texte)
Posté : ven. 21 janv. 2011, 19:01:00
par 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