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;