define syntax help_syntax
	noparameters
	qualifier	help,		default
	qualifier	expiration_date		!Causes HELP output correctly
define verb setdate
	image		sys$disk:[]setdate.exe
	parameter	p1,			label=filename,
						prompt="File",
						value(list,required,type=$FILE)
	qualifier	help,			nonnegatable,
						syntax=help_syntax
	qualifier	log,			nonnegatable
	qualifier	reset,			nonnegatable
	qualifier	touch,			nonnegatable
	qualifier	expiration_date,	negatable,
						value(required,type=$DATETIME)
	qualifier	creation_date,		negatable,
						value(required,type=$DATETIME)
	qualifier	backup_date,		negatable,
						value(required,type=$DATETIME)
	qualifier	revision_date,		negatable,
						value(required,type=$DATETIME)
	qualifier	all_dates,		negatable,
						value(required,type=$DATETIME)
	disallow	any2(reset,touch)