.title	fdvcls
	.ident	/v02/
	.list	meb

	.mcall	cf$ent,cf$xit

fdvcls::	cf$ent
	$fdv	fnc=cls
	cf$xit
	.end