%META:TOPICINFO{author="ChrisBartram" date="1149893541" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
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;

</pre>



-- Main.ChrisBartram - 09 Jun 2006