-----Original Message----- From: Craig Lalley [mailto:[log in to unmask]] Subject: [HP3000-L] CI Script question First off let me say, this sight does not have MPEX. How can I list all the file with more than 100 extents? ********************************* I was bord today so I created a command file that will display what you are looking for. It takes two parms, the first is the file set and the second is the minimum # of extents to check for. It also shows EOF and sectors in the output. ***************************************************************** parm files,min_ext # Joshua Johnson 02/03/2004 # Command lists file that have more than min_ext number of extents. file tempf,oldtemp if finfo('*tempf','exists') purge tempf,temp endif build tempf;disc=50000;temp;msg errclear continue listf !files,6 > *tempf if cierror<>0 echo !hpcierrmsg escape !cierror endif setvar _eof finfo('*tempf','eof') setvar _c 0 setvar _c2 0 setvar _rec '' setvar _not_found true while _c<_eof input _rec,<*tempf setvar _rec rtrim(_rec) if word(_rec,'.',3)<>'HPSPOOL' and finfo(_rec,'extents')>=!min_ext if _not_found echo FILE GROUP ACCOUNT EXTENTS EOF SECTORS setvar _not_found false endif setvar _rec lft(word(_rec,'.',1)+' ',9)+& lft(word(_rec,'.',2)+' ',9)+& lft(word(_rec,'.',3)+' ',9)+& rht(' ![finfo(_rec,'extents')]',9)+& rht(' ![finfo(_rec,'eof')]',13)+& rht(' ![finfo(_rec,'sectors')]',15) echo !_rec setvar _c2 _c2+1 endif setvar _c _c+1 endwhile echo Total Files: !_eof Total Files Displayed: !_c2 purge tempf,temp deletevar _c,_c2,_eof,_rec * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *