Pour épurer les spools sous Movex v12, il faut épurer à la fois le fichier dans l'instance et les fichiers dans l'ifs. Voici un petit script qui va vous permettre de préciser un nombre de jours de rétentions

PGM PARM(&INST &NBJOUR) /*------------------------------------------*/
/*                                                                  */
/* Epuration des spools d'une instance                              */
/*                                                                  */
/* CREATION PLBERTHOIN LE 05/10/2005                                */
/*                                                                  */
/* REMARQUES  COMPILER ADOPTION DE DROIT QSECOFR                    */
/*                                                                  */
/*------------------------------------------------------------------*/
DCL &INST *CHAR 3                                                     
DCL &NBJOUR *CHAR 2                                                   
/*------------------------------------------------------------------*/
DCL &CMD1 *CHAR 20  ('find /Movex_v12/env/')                          
DCL &CMD2 *CHAR 38  ('/MovexOutput             -mtime +')             
DCL &CMD3 *CHAR 15  ('-exec rm {} \;')                                
dcl &cmd  *char 105                                                   
 dcl &cmd  *char 105                                                  
 /*------------------------------------------------------------------*/
 /* Epuration dU FICHIER DES SPOOLS                                  */
 /*------------------------------------------------------------------*/
              SNDMSG     MSG('Epuration spool pour instance' *BCAT +  
                           &INST *BCAT 'lancé') TOUSR(QSYSOPR)        
              STRQMQRY   QMQRY(EPUSPLQ) SETVAR((INST &INST) (NBJ +    
                           &NBJOUR))                                  
 /*------------------------------------------------------------------*/
 /* Epuration des logs                                               */
/*------------------------------------------------------------------*/
chgvar &cmd (&cmd1 *tcat &inst *tcat &cmd2 *tcat &nbjour *bcat &cmd3)
             STRQSH     CMD(&CMD)                                    
             FIN:                                                    
ENDPGM                                                               

le qmqry epusplq

DELETE FROM MVXCDTA&INST/CCTLSF WHERE DAYS(CURDATE())-              
DAYS(DATE(SUBSTR(DIGITS(C4RGDT), 7, 2) CONCAT '/' CONCAT            
SUBSTR(DIGITS(C4RGDT), 5, 2) CONCAT '/' CONCAT SUBSTR(DIGITS(C4RGDT),
> &NBJ