Barry Lake wrote:
> ...one could probably write a customized listf mode or
> script that calculated the *true* fullness, taking into
> account whether or not DDX has been enabled.


Probably!     ;-)

Pat & Custe this into a file, then save it in the 'LISTF'
group in the 'VESOFT' account (I named it 'DBX'):

VAR PREVROOT: STRING[8];
VAR PREVGROUPACCT: STRING[17];

SUBROUTINE LINEITEM;
VAR SETNAME: STRING[32];
VAR SETENTRIES: INTEGER;
VAR SETCAPACITY: INTEGER;
BEGIN
  SETNAME:=DBSETNAME;
  SETENTRIES:=DBSETENTRIES;
  IF DBSETDYNAMIC THEN
    SETCAPACITY:=DBSETMAXCAPACITY
  ELSE
    SETCAPACITY:=DBSETCAPACITY;
  IF SETNAME[0:7]='fserror' THEN
    SEG (BEGIN
    WRITEPROMPT (FILE:10);
    WRITEMPEMESSAGE (8, INTEGERPARSE(UNTILCR(STRLDROP(SETNAME,8))));
    END)
  ELSE
    BEGIN
      WRITELN (FILE:8,
               FMTOPENED:2,
               SETNAME[0:16]:16,
               DBSETTYPE:1,
               SETENTRIES:8,
               SETCAPACITY:8,
               (IF DBSETDYNAMIC THEN '*' ELSE ' '):1,
               (* If less than .1% full, output would be in E fmt *)
               (IF SETENTRIES//SETCAPACITY<=.0005 THEN 0
                  ELSE SETENTRIES//SETCAPACITY)*100:6:1, '%',
               SECTORS:8,
               CREDATE:'  MM/DD/YY ',
               MODDATE:' MM/DD/YY');
    END;
END;

PREVGROUPACCT:='';
PREVROOT:='';
MPEXHEADER1:="FILENAME  SET NAME      TYPE  ENTRY   CAPA-   %FULL"+
             " SECTORS    DATE      DATE ";
MPEXHEADER2:="                              COUNT     CITY       "+
             "           CREATED  MODIFIED";
MPEXHEADER3:="";

FOR RFILE IN MPEXFILESETGENERAL (1, TRUE)
  ALREADYSORTED (ACCOUNT:8, GROUP:8)
  SELECT INTCODE=-401
  DO
    BEGIN
      IF GROUP+'.'+ACCOUNT=PREVGROUPACCT AND
         STRRDROP(FILE,2) <>PREVROOT THEN
        WRITELN;
      LINEITEM;
      PREVGROUPACCT:=GROUP+'.'+ACCOUNT;
      PREVROOT:=STRRDROP(FILE,2);
    END
  ONBREAKAFTER 2
    BEGIN
      WRITELN ;
      WRITELN ("                                                  ",
               TOTAL(2,SECTORS):9,
               "  SECTORS");
    END;

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HPe3000s since 1983!     Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+