Hi Larry,

I made the following command scripts to run every week and email me a list of
problem files:

Job that runs every Sunday and Thursday.

!FILE FILEFULL;DEV=LP14,3
!FILEFULL.CMD.SYS > *FILEFULL
-------------------------------------------
FILEFULL.CMD.SYS

PARM PCTLMT=75
comment  Check file full percent
ECHO
SETVAR _SPACE ' '
ECHO !_SPACE !HPINTRODATE, !HPINTROTIME
DELETEVAR _SPACE
ECHO
CONTINUE
FPERCENT <file1>,!PCTLMT
FPERCENT <file2>,!PCTLMT
FPERCENT <file3>,!PCTLMT
FPERCENT <file4>,!PCTLMT
....... all the files that I need to check .......
--------------
USER DEFINED COMMAND FILE:  FPERCENT.CMD.SYS

PARM FNAME,CUTOFF=0
#
SETVAR _SPACE ' '
#
IF FINFO("!FNAME",0) THEN
   SETVAR FEOF FINFO("!FNAME","EOF")
   SETVAR FLIMIT FINFO("!FNAME","LIMIT")
   SETVAR ACCESS FINFO("!FNAME",7)
   IF FEOF = FLIMIT
     SETVAR PERCNT 100
   ELSE
     SETVAR FLIMIT (FLIMIT / 100)
     IF FLIMIT > 0
        SETVAR PERCNT (FEOF / FLIMIT)
     ENDIF
   ENDIF
   IF !CUTOFF = 0
     ECHO !_SPACE!FNAME IS !PERCNT % FULL LAST ACCESS DATE IS !ACCESS
   ELSE
     IF !PERCNT >= !CUTOFF
       ECHO !_SPACE!FNAME IS !PERCNT% FULL LAST ACCESS DATE IS !ACCESS
     ENDIF
   ENDIF
ENDIF
#

Abraham Zwygart

------------------------------


Wirt Atmar wrote:

> Larry asks:
>
> > Does anyone know if there's a VESOFT or MPE/ix command for checking the
> >  capacity of a flat file?  I'm looking for something similar to the
> >  "dbsetfullness" command in Vesoft.
>
> My favorite is LISTF,2
>
> Wirt Atmar