$ SET NOON
$ STATE = 'F$VERIFY(0)'
$!
$!	D I S C O U N T . C O M
$!
$! THIS COMMAND PROCEDURE READS THE QUOTA FILE FOR GIVEN DEVICE AND
$! GIVES TOTALS FOR ACTUAL USAGE AND ASSIGNED QUOTAS.
$!
$! USAGE:	@DISCOUNT <device>
$!
$! THE DEVICE DEFAULTS TO THE USERS DEFAULT DEVICE IF NOT SUPPLIED.
$!
$ ASSIGN/USER_MODE SYS$MANAGER:QUOTA.TMP SYS$OUTPUT
$ IF 'F$LENGTH("'P1'")' .EQ. 0 THEN GOTO QUOTA
$ ASSIGN/USER_MODE 'P1' SYS$DISK
$QUOTA:
$ MCR DISKQUOTA
SHOW [*,*]
$ ASSIGN/USER_MODE TT: SYS$OUTPUT
$ USAGE = 0
$ QUOTA = 0
$ OPEN/READ LIST QUOTA.TMP
$LOOP:
$ READ/END_OF_FILE=DONE LIST REC
$ IF 'F$LOCATE("[",REC)' .EQ. 'F$LENGTH(REC)' THEN GOTO LOOP
$ U = 'F$EXTRACT(18,13,REC)'
$ Q = 'F$EXTRACT(31,13,REC)'
$ USAGE = USAGE + U
$ QUOTA = QUOTA + Q
$ GOTO LOOP
$DONE:
$ CLOSE LIST
$ DELETE QUOTA.TMP;*
$ SET VERIFY
$! 'P1' USAGE TOTAL 'USAGE'
$! 'P1' QUOTA TOTAL 'QUOTA'
$ VERIFY = 'F$VERIFY(STATE)'