HP3000-L Archives

October 2000, 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:
From:
Larry Barnes <[log in to unmask]>
Reply To:
Larry Barnes <[log in to unmask]>
Date:
Wed, 4 Oct 2000 13:56:55 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (49 lines)
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

ATOM RSS1 RSS2