.TITLE	CLEANDISK - Clean up outdated scratch files

	.FACILITY	CLEAN,1

	.SEVERITY	FATAL
	SCANERR		<error calling LIB$FILE_SCAN. Notify Systems Support>
	PARSERR		<error parsing CLEANDISK command. Notify Systems Support>
	BINTIM		<error calling $BINTIM. Notify Systems Support>
	GETTIM		<error calling $GETTIM. Nofity System Support>

	.SEVERITY	ERROR

	FILERR		<error scanning for file !AS>/FAO_COUNT=1
	OPNERR		<error opening file !AS for input>/FAO_COUNT=1
	FILNOTDEL	<error deleting file !AS>/FAO_COUNT=1

	.SEVERITY	SUCCESS
	DELETED		<!AS deleted>/FAO_COUNT=1

	.END