Wyell Grunwald writes:

> When one does a LISTF on a KSAMXL file, the number of records shows as
31.
> There are 13 LOGICALLY deleted  records in this file.  Is there any
command, MPEX command,
> file attribute, etc. that would give us the number of active records
in the file (in this case 18) ?
> I have been unable to locate any such command or attribute ?
>
> Wyell Grunwald
>

Several years ago I wrote an MPEX expression that does what I think
Wyell is looking for.  It doesn't set a var but it could be added easy
enough.

Here's the text:
************************************************************************
**********************

parm fset,pct=.80 
setvar mpexfileset="!fset" 
echo Ksam File Name            Full EOF     FLIMIT 
echo ------------------------- ---- ------- -------- 
repeat 
 setvar ksm_pct &

integer((vefinfo("!mpexcurrentfile").eof//vefinfo("!mpexcurrentfile").fl
imit)*100)
 if len("!ksm_pct") = 2
  setvar ksm_l1 rpt(" ",26 - len("!mpexcurrentfile"))
 else
  setvar ksm_l1 rpt(" ",25 - len("!mpexcurrentfile"))
 endif
 setvar ksm_eof vefinfo("!mpexcurrentfile").eof
 setvar ksm_lmt vefinfo("!mpexcurrentfile").flimit
 setvar ksm_l2  rpt(" ",9 - len("!ksm_eof"))
 setvar ksm_l3  rpt(" ",10 - len("!ksm_lmt"))
 echo !mpexcurrentfile !ksm_l1 !ksm_pct%!ksm_l2!ksm_eof!ksm_l3!ksm_lmt
forfiles !mpexfileset(code="KSAM" and flimit > 10 and eof>(flimit*!pct))

deletevar ksm_@

****************************************

Inside mpex you would type: (I called the file ksamfull)

Ksamfull <fileset>,<percent>

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