HP3000-L Archives

February 2004, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: CI Script question
From:
"Vance, Jeff H (Cupertino)" <[log in to unmask]>
Reply To:
Vance, Jeff H (Cupertino)
Date:
Tue, 3 Feb 2004 13:29:55 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (27 lines) 
...
> You will have to create
> a script that is fed the list of files to a msg file.  Then 
> read each file
> and do an FINFO with the option "EXTSIZE". 

This *might* work (untested):

 PARM fileset=./@, numExtents=100
 # display files > "numExtents" extents
 file lfmsg;MSG
 listfile !_lf_file,6 >*lfmsg
 setvar _lf_eof finfo("LFMSG",'eof')
 while setvar(_lf_eof,_lf_eof-1) >= 0 do
    input _lf_file <*lfmsg
    setvar _lf_file word(_lf_file)
    if finfo(_lf_file,'extents') > !numExtents then
       echo !_lf_file
     endif
 endwhile
 
 
  

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2