HP3000-L Archives

August 2000, Week 4

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:
Mon, 28 Aug 2000 13:55:21 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (36 lines)
I recently sent a command file that had to be modified.  Below is the
updated version.

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_@

--
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