AS/400 - Reorganizar archivos

Como puedo hacer un CL que me de todos los archivos fisicos que tienen registros borados y que por tanto necesitan de reorganizar. El proceso manual buscando de archivo en archivo es super largo

STRPDM-->CODLIB-->ALL-->F11-->F14-->5-->B
RGZPFM

gracias

Buen dia, quien suscribe Victor, tengo el gusto de poder ayudarte en tu pregunta. Primero utiliza el comando dspobjd *all/biblioteca objtype(*file) detail(*full) output(qtemp/misarchivo).Segundo puedes crear un pgm. tipo CL para leer el archivo creado en QTEMP/misarchivo, en el archivo encontraras un buen numero de atributos de archivos que componen la biblioteca seleccionada en el primer punto.
Espero que se gran utilidad mi propuesta.
Gracias