IF FINFO('VFW1',0) PURGE VFW1,TEMP ENDIF IF FINFO('VFW2',0) PURGE VFW2,TEMP ENDIF IF FINFO('VFSORT',0) PURGE VFSORT,TEMP ENDIF ECHO ------ VOLUME SET ------- CONFIGURED SPACE FREE SPACE % ECHO MBYTES SECTORS MBYTES SECTORS FREE IF FINFO("VFMSG",0) PURGE VFMSG,TEMP ENDIF BUILD VFMSG;REC=-79,,F,ASCII;TEMP;MSG FILE VFMSG=VFMSG,OLDTEMP DISCFREE C>*VFMSG IF FINFO("VFW1",0) PURGE VFW1,TEMP ENDIF BUILD VFW1;REC=-79,,F,ASCII;TEMP FILE VFW1=VFW1,OLDTEMP SETVAR OFFSET_T,FALSE SETVAR TS,FALSE SETVAR CNTL_KT,0 SETVAR PV_FREE,0 SETVAR T_FREE,0 SETVAR LDEV_FLAG,FALSE SETVAR FIRST_FLAG, TRUE WHILE FINFO("VFMSG",19) <> 0 INPUT VFIN < VFMSG IF POS(STR('!VFIN',1,6),'LDEV :') > 0 IF FIRST_FLAG SETVAR FIRST_FLAG,FALSE ELSE ENDIF SETVAR LDEV_FLAG,TRUE SETVAR CNTL_KT,1 SETVAR START,POS('(','!VFIN') + 1 SETVAR END,POS(':',STR('!VFIN',7,73)) + 6 SETVAR PAD, 40 - (END - START) SETVAR VOL,STR('!VFIN',!START,!END - !START) + RPT(' ',!PAD) ELSE SETVAR CNTL_KT, !CNTL_KT + 1 ENDIF IF LDEV_FLAG AND CNTL_KT = 2 SETVAR VOL, VOL + STR('!VFIN',53,12) SETVAR VOL, VOL + STR('!VFIN',13,12) ECHO !VOL>>*VFW1 ENDIF ENDWHILE DELETEVAR VOL IF FINFO("VFMSG",0) PURGE VFMSG,TEMP ENDIF BUILD VFSORT;REC=-80,,F,ASCII;TEMP FILE VFSORT=VFSORT,OLDTEMP ECHO I VFW1 >*VFSORT ECHO O VFW2 >>*VFSORT ECHO KEY 1,50 >>*VFSORT ECHO KEY 51,29 >>*VFSORT ECHO END >>*VFSORT IF FINFO("VFW2",0) PURGE VFW2,TEMP ENDIF BUILD VFW2;REC=-79,,F,ASCII;TEMP;MSG FILE VFW2=VFW2,OLDTEMP RUN SORT.PUB.SYS;STDIN=VFSORT >$NULL SETVAR FIRSTREC,TRUE SETVAR TFREE,0 SETVAR TCFG,0 SETVAR FIRST_FLAG,TRUE WHILE FINFO("VFW2",19) <> 0 INPUT VFIN < VFW2 SETVAR FREE,STR('!VFIN',41,12) SETVAR CFG,STR('!VFIN',53,12) IF FIRSTREC SETVAR VOL,STR('!VFIN',1,40) SETVAR FIRSTREC,FALSE ENDIF IF VOL = STR('!VFIN',1,40) SETVAR TFREE, !TFREE + !FREE SETVAR TCFG, !TCFG + !CFG ELSE IF FIRST_FLAG SETVAR FIRST_FLAG,FALSE ENDIF SETVAR CMB, !TCFG / 3906 SETVAR FMB, !TFREE / 3906 SETVAR PCT, !FMB * 100 / !CMB SETVAR FMB, ' ' + '!FMB' SETVAR CMB, ' ' + '!CMB' SETVAR TCFG, ' ' + '!TCFG' SETVAR TFREE, ' ' + '!TFREE' SETVAR PCT, ' ' + '!PCT' SETVAR REC, STR('!VOL',1,30) SETVAR REC, REC + RHT('!CMB',6) + RHT('!TCFG',12) +' ' SETVAR REC, REC + RHT('!FMB',6) + RHT('!TFREE',12) +' ' SETVAR REC, REC + RHT('!PCT',3) ECHO !REC SETVAR VOL,STR('!VFIN',1,40) SETVAR TFREE,!FREE SETVAR TCFG,!CFG ENDIF ENDWHILE SETVAR CMB, !TCFG / 3906 SETVAR FMB, !TFREE / 3906 SETVAR PCT, !FMB * 100 / !CMB SETVAR FMB, ' ' + '!FMB' SETVAR CMB, ' ' + '!CMB' SETVAR TCFG, ' ' + '!TCFG' SETVAR TFREE, ' ' + '!TFREE' SETVAR PCT, ' ' + '!PCT' SETVAR REC, STR('!VOL',1,30) SETVAR REC, REC + RHT('!CMB',6) + RHT('!TCFG',12) +' ' SETVAR REC, REC + RHT('!FMB',6) + RHT('!TFREE',12) +' ' SETVAR REC, REC + RHT('!PCT',3) ECHO !REC RESET VFMSG RESET VFW1 RESET VFW2 RESET VFSORT IF FINFO('VFW1',0) PURGE VFW1,TEMP ENDIF IF FINFO('VFW2',0) PURGE VFW2,TEMP ENDIF IF FINFO('VFSORT',0) PURGE VFSORT,TEMP ENDIF DELETEVAR VFIN, OFFSET_T, TS, CNTL_KT, PV_FREE, T_FREE DELETEVAR START, END, CFG, FREE, VOL, FIRSTREC, PAD, TFREE DELETEVAR LDEV_FLAG, FIRST_FLAG