Borrado de SPOOLs

hay ocasiones en las que se topa uno con que debe de borrar spools de una Queue en AS400, un trabajo sencillo con la opción 14:

opción que borra todo el contenido del Queue, no obstante, si nos piden borrar de una fecha en especifico SOLAMENTE.

ahí es cuando entra en trabajo la opción:

con esta opción podremos definir una serie de parámetros para BORRADO de spools detallando, tipo de archivo, fecha, hora, etc etc:

                          Delete Spooled File (DLTSPLF)                     
                                                                             
 Type choices, press Enter.                                                 
                                                                             
 Spooled file . . . . . . . . . .                 Name, *SELECT             
 Job name . . . . . . . . . . . .   *             Name, *                   
   User . . . . . . . . . . . . .                 Name                       
   Number . . . . . . . . . . . .                 000000-999999             
 Spooled file number  . . . . . .   *ONLY         1-999999, *ONLY, *LAST, *ANY
 Job system name  . . . . . . . .   *ONLY         Name, *ONLY, *CURRENT, *ANY
 Spooled file created:                                                       
   Creation date  . . . . . . . .   *ONLY         Date, *ONLY, *LAST         
   Creation time  . . . . . . . .                 Time, *ONLY, *LAST         
 Select files for:                                                           
   User . . . . . . . . . . . . .   *CURRENT      Name, *CURRENT, *ALL       
   Print device . . . . . . . . .   *ALL          Name, *ALL, *OUTQ         
   Form type  . . . . . . . . . .   *ALL          Form type, *ALL, *STD     
   User data  . . . . . . . . . .   *ALL          User data, *ALL           
   ASP  . . . . . . . . . . . . .   *ALL          1-32, *ALL, *ASPDEV       
 ASP device . . . . . . . . . . .   *             Name, *, *SYSBAS, *CURASPGRP 

No obstante hay ocasiones que debemos de borrar a MANO cierta cantidad de Spools (por ejemplo unas 12 000 spools)  de una QUEUE, o simplemente no tenemos autoridad para ejecutar el DLTSPLF para borrar Spools de fechas especificas, es ahi donde podemos utilizar la herramienta de MACROS de teclado de automatización vista en un post anterior AQUI.

este seria el macro, que colocara "4"=DELETE a 10 paginas

[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]
[roll up]
[edit-paste]

y este el Funcionamiento

Colocar opción de DELETE a los archivos de toda una pagina , luego copiar la fila de 4

y listo cada vez que se ejecutara el macro lo que hará es pegar esa "fila de 4" a 10 paginas desde la actual a 9 posteriores, para finalmente Darle ENTER para confirmar el borrado de 10 paginas a la vez, con esto se automatizaría el borrado de 90 spools a la vez, en vez de realizarlo de a uno

Se puede modificar el macro para que borre de MAS Spools a la vez .. considerando siempre que en cada pagina solamente se muestran 10 spools, personalmente borre de 50 paginas en 50 paginas osea 450 en 450 reportes a la vez de esta manera tengo control de lo que estoy borrando