Hp3000MpexXeqDbxListf < TWiki

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;

-- ChrisBartram - 09 Jun 2006

Topic Hp3000MpexXeqDbxListf . { Edit | Attach | Backlinks: Web All webs | Printable | History: r1 More }

Parents: WebHome > Hp3000CommandFiles > Hp3000MpexXeqs

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback
Note: Please contribute updates to this topic on TWiki.org at TWiki:TWiki.Hp3000MpexXeqDbxListf

	TWiki > TWiki > Hp3000CommandFiles > Hp3000MpexXeqs > Hp3000MpexXeqDbxListf	TWiki webs: Main \| TWiki \| Sandbox
	TWiki . { Welcome \| Register \| Changes \| Topics \| Index \| Search \| Go }