define verb diskcharge
	image ACC$:diskcharge
	parameter p1,	label=FILE, prompt="File", value(type=$file)
	qualifier SET
	qualifier SHOW
	qualifier SUMMARY
	qualifier REMOVE
	qualifier REPLACE
	qualifier SCAN
	qualifier LOG
	qualifier DEFAULT
        qualifier PROJECT,	nonnegatable,  value
        qualifier ACCOUNT,	nonnegatable,  value
	qualifier TRACE, 	value
	qualifier OUTPUT,	default,value (default="SYS$OUTPUT",type=$outfile)
        qualifier OLDPROJECT,	nonnegatable,  value		!REPLACE only
        qualifier OLDACCOUNT,	nonnegatable,  value            !REPLACE only
	qualifier USER,		nonnegatable, value		      !SUMMARY ONLY
	qualifier SINCE,	value(default="TODAY",type=$DATETIME) !SUMMARY only
	qualifier BEFORE,	value(default="TODAY",type=$DATETIME) !SUMMARY only
	qualifier SIZE,		default				!SHOW only
	qualifier GRAND_TOTAL                                   !SHOW only
	qualifier EXCEPT,       nonnegatable, value             !SHOW only
	qualifier INVALID                                       !SHOW only
	qualifier REPAIR					!SCAN only
	qualifier ERROR,	value (type=$outfile)		!SCAN only

disallow SET        and (SHOW or SUMMARY or REMOVE or REPLACE or SCAN)
disallow SHOW       and (SET or SUMMARY or REMOVE or REPLACE or SCAN)
disallow SUMMARY    and (SET or SHOW or REMOVE or REPLACE or SCAN)
disallow REMOVE     and (SET or SHOW or SUMMARY or REPLACE or SCAN)
disallow REPLACE    and (SET or SHOW or SUMMARY or REMOVE or SCAN)
disallow SCAN       and (SHOW or SUMMARY or REMOVE or REPLACE or SET)
disallow INVALID    and (DEFAULT or ACCOUNT or PROJECT)
disallow DEFAULT    and (SHOW or SUMMARY or REMOVE) 
disallow OLDPROJECT and (SHOW or SUMMARY or REMOVE or SET)
disallow OLDACCOUNT and (SHOW or SUMMARY or REMOVE or SET)
disallow REPLACE and (not OLDACCOUNT and not OLDPROJECT)
disallow ((SET or REPLACE) and (not DEFAULT and not PROJECT and not ACCOUNT))
disallow SINCE      and (SET or SHOW or REPLACE or REMOVE or SCAN)
disallow BEFORE     and (SET or SHOW or REPLACE or REMOVE or SCAN)
disallow USER       and (SET or SHOW or REPLACE or REMOVE or SCAN)
disallow ERROR      and (SET or SHOW or REPLACE or REMOVE)
disallow LOG        and (SHOW or SUMMARY)
disallow REPAIR     and (SHOW or SUMMARY or REMOVE or REPLACE or SET)
disallow (SIZE or GRAND_TOTAL or EXCEPT)   and not SHOW