Subject: | |
From: | |
Reply To: | |
Date: | Wed, 4 Oct 2000 13:56:55 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
A while back I was asking for help on checking how full a ksam file is.
Below is a command file I created that will do just that. It mus run
inside mpex to work.
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").flimit)*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_@
EXAMPLE:
%ksamfull [log in to unmask]
Ksam File Name Full EOF FLIMIT
------------------------- ---- ------- --------
BRINV.DATA.FMMTX 81% 305543 375011
BRSER.DATA.FMMTX 80% 1168754 1455111
BRSO.DATA.FMMTX 89% 73692 81911
If you try this and it works/doesn't work please let me know.
--
Larry Barnes
Director of I.T.
Mitek Corp.
602-438-4545 x1366
Phoenix, AZ 85040
Check Us Out !
http://www.mitekcorp.com
|
|
|